El programa de lotería de Excel no se repite.

Debe agregar un botón de inicialización, el código es el siguiente (el botón de comando1 es el siguiente, el botón de comando2 es el botón de inicialización).

Dim arr(), count

Subcomando privadoButton1_Click()

Si cuenta <then=29

n= Int(Rnd *( UBound(arr)-LBound(arr)+1))+LBound(arr)

Cuadro de texto 1. Text = Array (n)

Celdas (count+1, 10) = arr (n)' El código de prueba se puede eliminar.

Celda (cuenta+1, 11) = n 'El código de prueba se puede eliminar.

Contar = contar + 1

arr(n) = arr(UBound(arr))

Si UBound(arr)>1 entonces ReDim Preserve arr( 1 a UBound(arr) - 1)

Otros

MsgBox "Todo el personal ha terminado de fumar"

Terminará si...

Conector final

Subcomando privado Button2_Click()

ReDim arr(1 a 30)

Irregularizar

Cuadro de texto 1.

text = " "

Para i = 1 a 30

arr(i) = Celdas(i, 1)

Entonces

MsgBox "Inicializado"

Conteo = 0

Conector final

上篇: ¿Cuáles son las Trece A en “Periodo Primavera y Otoño”? 下篇: Zheng Jun y Liu Yun tienen una fuerte sensación de cambio. ¿Qué opinas de su relación?