Cita:
Iniciado por coor 
pero lo necesito el codigo en visual basic
Primero cargas los aleatorios (descartando los repetidos) en un array y después los vuelcas a las etiquetas:
Código vb6.0:
Ver originalPrivate Sub cmdjugar_Click()
Dim MiVector(4) As Integer, iCont As Integer, j As Integer, x As Integer
Dim oControl As Label
' inicializamos el generador de aleatorios
Randomize
For iCont = 0 To 4
inicio:
' generamos un aleatorio entre el 1 y el 100
x = Int(100 * Rnd)
For j = 0 To iCont
' si el número ya existe en el array, lo descartamos
If x = MiVector(j) Then GoTo inicio
Next j
' no existe, lo añadimos a la matriz
MiVector(iCont) = x
Next iCont
' cargamos las etiquetas
Label1.Caption = MiVector(0)
Label2.Caption = MiVector(1)
Label3.Caption = MiVector(2)
Label4.Caption = MiVector(3)
Label5.Caption = mivector4
End Sub
