Generador de Numeros

[pkj]

He cargado un PC virtual que tengo con VB 2005 y así me ha funcionado:

Código :

Public Class Form1
  Private Function Aleatorio(ByVal Minimo As Long, ByVal Maximo As Long) As Single
    Aleatorio = Int((Minimo - Maximo) * Rnd()) + Maximo
  End Function
  Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    TextBox1.Text = CStr(Aleatorio(1000, 9999))
    TextBox2.Text = CStr(Aleatorio(1000, 9999))
    TextBox3.Text = CStr(Aleatorio(1000, 9999))
    TextBox4.Text = CStr(Aleatorio(100000, 999999))
    TextBox4.Text = TextBox4.Text & CStr(Aleatorio(100000, 999999))
  End Sub
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Randomize() 'Llamar a Randomize una única vez
  End Sub
 

La única diferencia que debe haber con tu código es la declaración del evento click del boton, de modo que para tu VB el código sería:

Código :

Public Class Form1
  Private Function Aleatorio(ByVal Minimo As Long, ByVal Maximo As Long) As Single
    Aleatorio = Int((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 = CStr(Aleatorio(1000, 9999))
    TextBox2.Text = CStr(Aleatorio(1000, 9999))
    TextBox3.Text = CStr(Aleatorio(1000, 9999))
    TextBox4.Text = CStr(Aleatorio(100000, 999999))
    TextBox4.Text = TextBox4.Text & CStr(Aleatorio(100000, 999999))
  End Sub
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Randomize() 'Llamar a Randomize una única vez
  End Sub
 

Ha sido un placer.

PD: Esto no es .NET