China Naming Network - Auspicious day query - Excel lottery program

Excel lottery program

Suppose there are 25 numbers, 5 rows and 5 columns. Draw two command buttons below the numbers, modify the title attributes to "draw lots" and "pause" respectively, and draw the codes of the buttons (). The key codes are as follows:

K=0: Flag =0

Do until flag= 1

For i=6 to 10

For j=3 to 7

If k=0, then

Cell (i, j). choose

Multiple activities

k= 1

Cell (i, j). choose