Dudas codigo Randomize CU00315A Visual Basic no genera aleatorios

[berres]

Tal y como me recomendasteis estoy haciendo el curso de visual basic para completar el aprendizaje del pseudocodigo.

He llegado al tema de los numeros aleatorios (CU00315A/CU00316A) y resulta que despues de seguir los ejemplos, al ejecutar el programa, siempre me devuelve los mismos resultados con lo cual me asalta la duda de "como de aleatorios" son esos numeros si al final el resultado de cada variable será la misma.

Me explico con un ejemplo.
Supongamos que quiero crear un programa en el que un dado decide las casillas que debo avanzar. El numero del dado será predecible ya que sé que resultado aparece con cada variable. Por lo tanto puedo conseguir el numero que deseo eligiendo la variable determinada para ese numero.
¿Que paso es el que hace que definitivamente sea impredecible la tirada siguiente?

[Alex Rodríguez]

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 

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  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 Class

En 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

[berres]

Hola Alex. Gracias por la rapidez en tu respuesta.

El programa que me pasas no funciona en vbasic 6.0, me dice que "i" es una variable no definida. Imagino que alguna modificacion al pasar del 2010 al 6 no es valida.

Aun asi he seguido revisando tranquilamente el código y he dado con el problema.
Al crear mi programa solo usaba rnd con las variables y no ponia Randomize antes de esto. Por lo tanto no "giraba la diana" tal y como me decias.

Gracias. Duda resuelta.

[Alex Rodríguez]

en vbasic 6.0, me dice que "i" es una variable no definida...

Esto es una cosa bien sencilla, lo que te está diciendo es que para usar una variable tienes que declarar antes que vas a usarla, y parece que al copiar el código se me olvidó copiar esa línea, lo único que habría que hacer es en vez de

Dim numeroAleatorio As Integer
Dim limiteSuperior As Integer
Dim limiteInferior As Integer

Poner:

Dim i As Integer
Dim numeroAleatorio As Integer
Dim limiteSuperior As Integer
Dim limiteInferior As Integer

Es decir, simplemente declarar que vamos a usar la variable i