Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Quizá con este código puedas orientarte aunque no está hecho para net. Suerte.
Option Explicit Dim arrNum25() As Integer Dim i
'------------
Private Sub Command1_Click()
Static count As Integer Dim intNum As Integer
If count = 25 Then Labelcontar.Caption = intNum count = 0 Exit Sub
Else ReDim Preserve arrNum25(1 To 25) As Integer count = count + 1 Randomize intNum = Int((25 * Rnd) + 1) If count <> 1 Then For i = 1 To count - 1 Do Until arrNum25(i) <> intNum If arrNum25(i) = intNum Then intNum = Int((25 * Rnd) + 1) i = 1 End If Loop Next i End If
arrNum25(count) = intNum Labelcontar.Caption = intNum End If End Sub