Código fuente del ejercicio de entrada VB

Opción explícita

Puntuación atenuada como número entero

Velocidad atenuada como número entero

Tiempo de tipo atenuado como cadena

'Carácter de inicialización 1

Sub innt1()

'Genera letras mayúsculas, números y otros símbolos aleatorios

zi1.Title = Chr(Int(Rnd * 26) 97)

'Posición inicial

zi2.Left = Int(Rnd * (mm1.Ancho) - zi1.Ancho). * (mm1.Ancho - zi2.Ancho))

zi2.Arriba = mm1.Arriba - zi2.Alto

End Sub

'Inicio

Private Sub Command1_Click()

'Tiempo de entrada

typetime = InputBox (" Ingrese el tiempo de escritura en segundos: ", "Establecer tiempo")

If IsNumeric(typetime) Then

Label5.Caption = typetime

Else

Salir del sub

Finalizar si

'Llamar a subrutina

innt1

innt2

' Establecer velocidad de caída predeterminada

HScroll1.Value = 50

'Comenzar a caer

' Timer1.Enabled = True

Timer2. Verdadero

Comando1.Enabled = Falso

Etiqueta3.Enabled = Falso