¿Cómo utilizar VB para crear un extractor de números aleatorios de estudiantes?

Esto requiere los siguientes pasos:

Escribir una función para obtener un número de estudiante aleatorio.

Vincula esta función a un control para activar el evento de sorteo del número de estudiante.

Muestre este número de estudiante aleatorio en una interfaz de salida.

En primer lugar, el número de estudiante debe ser un número entero, así que defina una variable entera en el área de código del formulario para almacenarlo.

Dim StudentNum as Integer

Luego, cree un nuevo módulo A, se escribe una función de número aleatorio en el módulo y la función tiene un valor de retorno entero.

Esta función pasa 2 parámetros, que se utilizan para definir los límites superior e inferior de números aleatorios (es decir, los valores máximo y mínimo)

Función pública GetNum (Byval L , Byval U) como entero

Aleatorizar? 'Restablecer la semilla aleatoria

GetNum=Int((U - L + 1) * Rnd + L)?'Asignar un entero aleatorio en el rango al valor de retorno de la función

Función final

Después de escribir esta función, escriba su expresión ¿Recibir variable = GetNum (valor mínimo, valor máximo)

Finalmente, dibuja un botón (Comando1), un cuadro de texto (llamado Texto1) y un temporizador (Timer1) en el formulario

1. Haz doble clic en el formulario Form1 y escribe en su Carga. evento Siguiente:

Timer1.Interval=50 'Dejar que el cronómetro funcione una vez cada 50 segundos

Timer1.Enabel=True ?'Permitir que el cronómetro operar

…

2. Haga doble clic en el temporizador Timer1 y escriba en su evento:

StudentNum=GetNum(1). , 30) ? 'Supongamos que el número de estudiante es del 1 al 30. Si cambia con frecuencia, se puede obtener desde el exterior y representar mediante una variable.

Text1.Text=StudentNum & "number"

'Mostrar el número aleatorio obtenido en el cuadro de texto

…

3. Haz doble clic en el botón Command1 y escribe en su evento de clic

IF?Timer1.Enable=True

Timer1.Enable=False 'El temporizador deja de funcionar

Msgbox "Selected" &?StudentNum & "No.",26,"El número de estudiante está seleccionado" ? 'Aparece el resultado en el cuadro de diálogo

Else

Timer1.Enable = True ? 'Habilitar el cronómetro detenido para la siguiente selección de número

Finalizar IF