Hola berres, has tratado un tema bastante curioso, que es el concepto de "aleatorio" en un ordenador, que por definición es una máquina no aleatoria
![Girar ojos ::)](https://aprenderaprogramar.com/foros/Smileys/default/rolleyes.gif)
Si el programa siempre te devuelve los mismos resultados es que no está funcionando bien. Léete el texto de la entrega
"Vamos a imaginar que Visual Basic genera números aleatorios como si fuera un robot lanzador de dardos muy preciso (robot Rnd). De este modo, cuando se le dice que comience a tirar dardos..." porque ahí tienes la respuesta.
Posiblemente tengas algún error de sintaxis, y entonces el mayordomo no pone a girar la diana
![Cheesy :D](https://aprenderaprogramar.com/foros/Smileys/default/cheesy.gif)
Tienes que obtener resultados distintos cada vez, resultados aparentemente aleatorios, si no, tienes algún error.
Te dejo este pequeño código (es de visual basic 2010) de ejemplo:
Public Class Form1
Dim numeroAleatorio As Integer
Dim limiteSuperior As Integer
Dim limiteInferior As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
limiteSuperior = 100
limiteInferior = 1
For i = 1 To 10
Randomize()
numeroAleatorio = CInt(Int((limiteSuperior - limiteInferior + 1) * Rnd() + limiteInferior))
Label1.Text = Label1.Text & "Número generado: " & numeroAleatorio & vbCrLf
Next
End Sub
End ClassEn visual basic 6 sería así:
Dim numeroAleatorio As Integer
Dim limiteSuperior As Integer
Dim limiteInferior As Integer
Private Sub Form_Load()
limiteSuperior = 100
limiteInferior = 1
For i = 1 To 10
Randomize
numeroAleatorio = CInt(Int((limiteSuperior - limiteInferior + 1) * Rnd() + limiteInferior))
Label1.Caption = Label1.Caption & "Número generado: " & numeroAleatorio & vbCrLf
Next
End Sub