Necesita un subprograma vb con un número aleatorio del 1 al 12 (no repetible) y una interfaz clara y hermosa. Gracias dentro de 1 día.

Marcar k como un número entero

Private subform_Load()

k = 0

Conector final

Subcomando privado 5_Click()

Dim s1 es una cadena, s es un número entero

Aleatorizar tiempo ()

Si stmp = " "entonces stmp = ","

Hacer mientras k & lt12

s = Int(Rnd *(12-1+1)+1)

Si InStr( 1,stmp,"," & amp stmp."," = 0 entonces

k = k + 1

Exportar Do

Terminará si... .

Anillo

Si s & lt& gt entonces 0

stmp = stmp & amp s&p ","

Otro

MsgBox "Completo"

Terminará si...

Finalizar conector