Generador de Numeros

[pkj]

Código :

Option Explicit
 
Public Class Form1
 
 
    Private Function Aleatorio(ByVal Minimo As Long, ByVal Maximo As Long) As Long
 
        Aleatorio = CLng((Minimo - Maximo) * Rnd() + Maximo)
 
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        TextBox1.Text = Aleatorio(1000, 9999)
 
        TextBox2.Text = Aleatorio(1000, 9999)
 
        TextBox3.Text = Aleatorio(1000, 9999)
 
        TextBox4.Text = Aleatorio(100000, 999999)
 
        TextBox4.Text = TextBox4.Text & Aleatorio(10000, 99999)
 
    End Sub
 
    Private Sub Form_Load()
 
        'Randomize(Timer1) 'Llamar a Randomize una única vez
 
    End Sub
End Class
 

Así deberia funcionar. Si da error ahí, deshabilita tambíen la línea del Option Explicit que solo es para obligarte a declarar las variables.
Estudia la página que dice David si tienes problemas con el RND o quieres mejores resultados (y estás usando .NET, algo de lo que no estoy muy seguro)