numeros aleatorios no repetidos

[coor]

hola a todos

la verdad ando un poco preocupado con un problema que estoy realizando. la cuestion es que debo mostrar en 5 label, 5 numeros aleatorios no repetidos. el problema esta alli ya que el me genera los numeros aleatorios en cada label, pero me aparecen repetidos en algunos casos

por favor una ayuda ando bastante estresado

aca envio el codigo para quien me pueda colaborar les agradezco mucho


Private Sub cmdjugar_Click()
Label1.Caption = Int(Rnd * 100)
Label2.Caption = Int(Rnd * 100)
Label3.Caption = Int(Rnd * 100)
Label4.Caption = Int(Rnd * 100)
Label5.Caption = Int(Rnd * 100)
End Sub

[hackdie]

Código PHP:

  Public Class Form1 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
        Dim x, con, cont As Integer 
        Dim matriz(4) As Integer 
        For cont = 0 To 4 
            For con = 1 To 10 
                x = 100 * Rnd() 
 
                matriz(cont) = x 
            Next 
            Me.TextBox1.Text = matriz(0) 
            Me.TextBox2.Text = matriz(1) 
            Me.TextBox3.Text = matriz(2) 
            Me.TextBox4.Text = matriz(3) 
            Me.TextBox5.Text = matriz(4) 
        Next 
    End Sub 
End Class  
   

[coor]

pero lo necesito el codigo en visual basic

[Avellaneda]

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:

Private 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
 

[hackdie]

Iniciado por coor

pero lo necesito el codigo en visual basic

viejo ese codigo es visual basic pero en la version 2005

[coor]

todas las gracias del mundo hermano