Como profesor de aritmética para estudiantes de primaria, resuelve programas VB
Versión 5.00
Inicia VB. Formulario Formulario 1
Caption = "Form1 "
Altura del cliente = 5580
Cliente izquierdo = 60
Cliente superior = 450
ClientWidth = 6825
LinkTopic = "Form1 "
Alto de escala = 5580
Ancho de escala = 6825
StartUpPosition = 3 'Valor predeterminado de la ventana
Iniciar VB. Botón de comando Comando 1
Caption = "Fin"
Alto = 495
Izquierda = 3960
TabIndex = 8
Arriba = 4320
Ancho = 1215
Fin
Iniciar VB. Marco Marco1
Título = "Logro"
Alto = 3855
Izquierda = 3240
TabIndex = 3
Superior = 120
Ancho = 2415
Iniciar VB. Texto del cuadro de texto 5
Alto = 375
Izquierda = 840
Bloqueado = -1 'True
TabIndex = 12
Arriba = 1920
Ancho = 975
Fin
Inicio VB. Texto del cuadro de texto 4
Alto = 375
Izquierda = 840
Bloqueado = -1 'True
TabIndex = 11
Arriba = 1320
Ancho = 975
Fin
Iniciar VB. Texto del cuadro de texto 3
Alto = 375
Izquierda = 840
Bloqueado = -1 'Verdadero
TabIndex = 10
Arriba = 840
Ancho = 975
Fin
Iniciar VB. Texto del cuadro de texto 2
Alto = 375
Izquierda = 840
Bloqueado = -1 'Verdadero
TabIndex = 9
Arriba = 360
Ancho = 975
Fin
Iniciar VB. Etiqueta Etiqueta2
Título = "Tasa correcta"
Altura = 375
Índice = 3
Izquierda = 120
TabIndex = 7
Superior = 2040
Ancho = 735
Fin
Iniciar VB. LabelLabel2
Título = "Error"
Alto = 375
Índice = 2
Izquierda = 120
TabIndex = 6
Superior = 1440
Ancho = 495
Fin
Iniciar VB. LabelLabel2
Caption = "Correcto"
Alto = 375
Índice = 1
Izquierda = 120
TabIndex = 5
Superior = 840
Ancho = 495
Fin
Iniciar VB. Etiqueta Etiqueta2
Título = "***Respuesta"
Alto = 375
Índice = 0
Izquierda = 120
TabIndex = 4
Superior = 360
Ancho = 495
Fin
Fin
Inicie VB. Texto del cuadro de texto 1
Alto = 735
Izquierda = 1920
TabIndex = 2
Arriba = 4080
Ancho=735
Fin
Iniciar VB.
Cuadro de lista Lista1
Color de fondo = & ampH8000000F & amp
Altura = 3660
Izquierda = 240°
TabIndex = 0< / p>
Arriba = 240
Ancho = 2655
Fin
Inicio VB. Etiqueta Etiqueta1
Alineación = 1 'Alinear a la derecha
Título = "Etiqueta1 "
Altura = 495
A la izquierda = 360 grados
TabIndex = 1
Superior = 4200
Ancho = 1455
Fin
Fin
Atributo VB_Name = "Form1 "
Atributo VB_GlobalNameSpace = False
Atributo VB_Creatable = False
Atributo VB_PredeclaredId = True
Atributo VB_Exposed = False
Marcar Da como un número entero
Subcomando privado 1_Click()
Fin
Finalizar conector
Privado subform_Load()
Pantalla
Da = Ct
' Texto2 = 0 '
Texto3 = 0
Texto4 = 0
Texto1. SetFocus
Conector final
Función pública Ct() en forma de número entero
Tome a como un número entero, b como un número entero, c como un número entero
Marcar D como cadena
Aleatorización (temporizador)
Cx:
a = Int(Rnd() * 11)
b = Int(Rnd() * 11)
c = Int(Rnd() * 4)
Seleccione caso c
Caso 0
D = "+"
Ct = a + b
Caso 1
D = "-"
Si a & lt entonces vaya a Cx
Ct = a - b
Caso 2
D = "×"
Ct = a * b
Caso 3
d = " #
Si b = 0 y c = 3, vaya a Cx
si Int(a/b)<& gta/b entonces vaya a Cx
Ct = a/b
finalizar selección
etiqueta 1 = a & amp D & ampb & amp"="
Función final
Subtexto privado 1 _ KeyDown (el código de tecla es un número entero, Shift es un número entero)
Si Keycode = 13, entonces
Si Text1 = " "Entonces
MsgBox" ¡Complete la respuesta y presione Enter! "
ElseIf Val(Text1) = Da Then
List1. AddItem etiqueta 1 y texto 1 &"
Texto2 = Val(Text2) + 1
Texto3 = Val(Texto3) + 1
texto 5 = Int(100 * Val(texto 3)/Val(texto 2)+0.5)
Da = Ct
Text1 = " "
Text1.SetFocus
Otro
Texto 1 & "
Texto2 = Val(Texto2) + 1
Texto4 = Val(Texto4) + 1
texto 5 = Int (100 * Val(texto 3) /Val(texto 2)+0.5)
Da = Ct
Texto1 = " "
Texto1.
SetFocus
Terminará si...
Terminará si...
Finalizar conector