AMI ME JALO CON EL SIGUIENTE CODIGO DENTRO DEL COMMANBUTTON Y TENIENDO UN LIST BOX
For i = 1 To 5 ' tabla(i) = (Int(num * Rnd) + 1) ' Next i 'Do While tabla(1) = tabla(2) Or tabla(1) = tabla(3) Or tabla(1) = tabla(4) Or tabla(1) = tabla(5) ' tabla(1) = (Int(num * Rnd) + 1) ' Loop
'Do While tabla(2) = tabla(1) Or tabla(2) = tabla(3) Or tabla(2) = tabla(4) Or tabla(2) = tabla(5) ' tabla(2) = (Int(num * Rnd) + 1) ' Loop
'Do While tabla(3) = tabla(1) Or tabla(3) = tabla(2) Or tabla(3) = tabla(4) Or tabla(3) = tabla(5) ' tabla(3) = (Int(num * Rnd) + 1) ' Loop
'Do While tabla(4) = tabla(1) Or tabla(4) = tabla(2) Or tabla(4) = tabla(3) Or tabla(4) = tabla(5) ' tabla(4) = (Int(num * Rnd) + 1) ' Loop
'Do While tabla(5) = tabla(1) Or tabla(5) = tabla(2) Or tabla(5) = tabla(3) Or tabla(5) = tabla(4) ' tabla(2) = (Int(num * Rnd) + 1) ' Loop
For m = 1 To Num Lista.AddItem tabla(m) Next m
|