¿Cómo utilizar EXCEL para dibujar números aleatorios?

Const entumecido = 2000

Dim S(1 Para entumecido) Como cadena, C(1 Para entumecido) Como Cadena 's() es la fuente numérica, c() es el número aleatorio

Sub Main()

Dim k, tmp

k = 1

Hacer mientras k lt;= entumecido

Aleatorizar 'Establece un número aleatorio no repetitivo

tmp = Int(Rnd() * 1999 1)

If S(tmp) lt；gt "" Entonces

C(k) = S(tmp)

S(tmp) = ""

k = k 1

End If

p>

Bucle

End Sub

Debido a que c() es un número aleatorio, los primeros 10 números se pueden tomar como resultado de una lotería cada vez hasta que termine la lotería