BEZAEL
12 de Octubre del 2004

Hola, tengo un pequeño problema.
Quiero obtener un numero de manera aleatoria entre 65 y 90, para luego el resultado convertirlo en el equivalen a codigo ASCII. Por eje. si el numero aleatorio es 65, hacer la conversion y mostrar la A que es el equivalente a 65.
¿quien me ayuda ?
GRACIAS

Bartolom
12 de Octubre del 2004

En un formulario coloca un CommandButton y dos TextBox. Luego, coloca este código:

Private Sub Command1_Click()
Dim Sup As Integer, Inf As Integer
Inf = 65
Sup = 90
Randomize
Text1 = Int((Sup - Inf + 1) * Rnd + Inf)
Text2 = Chr(Text1)
End Sub

O si quieres reducir el código, también puedes hacerlo así:

Private Sub Command1_Click()
Randomize
Text1 = Int((26 * Rnd) + 60)
Text2 = Chr(Text1)
End Sub

Saludos!
Bartolom
Chile