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 stmp como una cadena
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 ","
Imprimir sOtro
MsgBox "Completo"
Terminará si...
Finalizar conector