VB genera números enteros aleatorios entre 1 y 100, que se pueden implementar utilizando el método Rnd() propio del sistema. El código es el siguiente: Private?Sub?Command_Click()
Dim. ? MyValue?//Definir un número aleatorio
MyValue?=?Int((100?*?Rnd)?+?1)?//la función rnd() genera un número aleatorio
Print?MyValue?//Imprimir este número aleatorio
End?Sub
Private?Sub?Form_Load()
Aleatorio?//Inicializar aleatorio Dispositivo de generación de números
End?Sub