Visual Basic - Numeros aleatorios

Hola, soy nuevo en esto de Visual, quisiera hacer una combinación de números aleatorios del 1 al 49, para poderlos presentar en 49 Label, pero el problema es que en alguna Label se me presenta el mismo número.

Donde está el ERROR, o que tendría que cambiar.

Private Sub lblgenerar_Click()

Dim i, Num As Integer

For i = 0 To 48

Randomize

Num = Int((49 - 1 + 1) * Rnd + 1)

Label1(i).Caption = Num


Next i

End Sub

Gracias, y saludos

Teo

La función Randomize te genera un número aleatorio entre dos rangos, en tu caso 1-49, pero en cada numero que genera puede repetir ó no el anterior, es decir no te genera todos los nùmeros sin repeticion de tu rango. Espero haberme explicado.

Saludos

Gracias por responderme D. Pola.

Pero que es lo que tendría que cambiar para que no se me repitan los números, entonces

Lo q

Haber Dennis, que tendría que cambiar aqui, para que no se me repita algun numero en cualquiera de los 49 Label.

Esa era la pregunta

Private Sub lblgenerar_Click()

Dim i, Num As Integer

For i = 0 To 48

Randomize

Num = Int((49 - 1 + 1) * Rnd + 1)

Label1(i).Caption = Num

Next i

'Ya entendi lo que deseas, prueba con esto

Private Sub Label1_Click(Index As Integer)

Dim nLabel1 As Integer
Dim nLabel2 As Integer
Dim nNumero As Integer
Dim bRepetido As Boolean

For nLabel1 = 0 To 48

Do

bRepetido = False

nNumero = Rnd * 49

For nLabel2 = 0 To 48

If nNumero = Val(Label1(nLabel2).Caption) Then
Randomize
bRepetido = True
Exit For
End If

Next

Loop While bRepetido

Label1(nLabel1).Caption = nNumero

Next

End Sub

'Suerte

Sabes, deje un randomize por ahi que no se nececita, borra esa linea, bye

Chekate esto... Hice un proyecto parecido pero kon TExt..... Hice una matriz de Text..... En total fueron 9 textboxes. Espero t pueda servir... Metele un boton para cambiar de numeros otra vez. SOpas ahi t VEZ...

Dim num as Integer
Private Sub Form_Load()
Randomize
For n = 0 To 8
num = (Rnd * 100) + 1
txtnum1(n).Text = num
Next
End Sub

Private Sub cmdnumeros_Click()
Randomize
For n = 0 To 8
num = (Rnd * 100) + 1
txtnum1(n).Text = num
Next
end sub

Gracias Dennis

Eso es lo que andaba buscando, que los números no se repitieran, así tengo los 49 Números distintos en sus respectivas 49 Label.

Grcacias has sido muy amable.

Saludos

Teo

Para servirte, fue un placer
Suerte