'El ejemplo que te dieron esta en VB 6.0 lleva mas de una década de estar obsoleto.
En Visual Basic .NET moderno, usas la clase Random http://msdn.microsoft.com/en-us/library/vstudio/sy... esta tiene un método llamado Next() que devuelve un numero aleatorio y le puedes pasar como parámetros el rango da valores que quieres. Para obtener letras convierte el entero (Int32) a caracter (char) usando como referencia los valores de la tabla ASCII.
'Tu código en VB.NET
Module Module1
Sub Main()
Dim rand As New Random( DateTime.Now.Millisecond)
Dim numero As Int32 = rand.Next( 0, 100)
Dim letra As Char = Convert.ToChar( rand.Next(97, 122))
Luego, debes declarar una variable de tipo entera y en ella escribir la fórmula para generar el número aleatorio:
//Generador de números aleatorios entre 1 y 6
Randomize()
Dim number As Integer
number = CInt( Int( 6 * Rnd() ) + 1 )
Ahora para obetener un caracter aleatorio puedes hacer uso del valor obtenido anteriormente y enviarla como argumento a la función "CChar" que recibe como parámetro un entero comprendido entre 0 y 65535 (sin signo).
Answers & Comments
Verified answer
'El ejemplo que te dieron esta en VB 6.0 lleva mas de una década de estar obsoleto.
En Visual Basic .NET moderno, usas la clase Random http://msdn.microsoft.com/en-us/library/vstudio/sy... esta tiene un método llamado Next() que devuelve un numero aleatorio y le puedes pasar como parámetros el rango da valores que quieres. Para obtener letras convierte el entero (Int32) a caracter (char) usando como referencia los valores de la tabla ASCII.
'Tu código en VB.NET
Module Module1
Sub Main()
Dim rand As New Random( DateTime.Now.Millisecond)
Dim numero As Int32 = rand.Next( 0, 100)
Dim letra As Char = Convert.ToChar( rand.Next(97, 122))
Console.WriteLine( "Numero aleatorio: {0}", numero)
Console.WriteLine( "Letra aleatoria: {0}", letra)
Console.ReadKey()
End Sub
End Module
Es sencillo:
Para generar el número aleatorio primero debes inicializar el generador de números aleatorios, para ello debes invocar al método Randomize().
Luego, debes declarar una variable de tipo entera y en ella escribir la fórmula para generar el número aleatorio:
//Generador de números aleatorios entre 1 y 6
Randomize()
Dim number As Integer
number = CInt( Int( 6 * Rnd() ) + 1 )
Ahora para obetener un caracter aleatorio puedes hacer uso del valor obtenido anteriormente y enviarla como argumento a la función "CChar" que recibe como parámetro un entero comprendido entre 0 y 65535 (sin signo).
Suerte.
Saludos.