¡Urgente! ¡urgente! ¡urgente! Programación con VB, cuatro operaciones aritméticas, preguntas aleatorias, respuestas correctas o incorrectas, respuestas correctas

¿Número aleatorio? Puede usar RND para obtener dos operandos.

Coloque los cuatro operadores en la matriz. Al tomar el operador, el subíndice de la matriz es aleatorio. El operador es aleatorio.

Dim?i?As?Integer

Dim?j?As?Integer

Privado?Sub?Command1_Click()

Texto1 .Text?=?Rnd(1)?*?1000//Números reales dentro de 1000

Text2.Text?=?Rnd(1)?*?1000

Dim?b ?¿Como?Entero

Dim?a(4)?Como?Cadena

a(1)?=?"+"

a(2)? =?"-"

a(3)?=?"*"

a(4)?=?"/"

b?=? Int((Rnd?*?4)?+?1)?//Operador de extracción aleatoria

Label1.Caption?=?a(b)

Text3.Text?= ? ""?//Limpiar para hacer la siguiente pregunta

End?Sub

Private?Sub?Command2_Click()

Dim?c?As?Double

Select?Case?Label1.Caption?//Resultado correcto de la operación

Case?"+" c?=?Text1.Text?+?Text2.Text

Caso?"-" c?=?Texto1.Texto?-?Texto2.Texto

Caso?"*" c?=?Texto1.Texto?*?Texto2.Texto

Caso?"/" c?=?Text1.Text?*?Text2.Text

Fin?Select

If?Text1.Text?=?""?Then< / p>

MsgBox?"Por favor seleccione un tema primero"//Preguntar para seleccionar un tema

Else

If?Text3.Text?=?""?Then

MsgBox?"Por favor, haga la pregunta primero"//Preguntar para hacer la pregunta

Else

If?Text3.Text?=?c?Then

Etiqueta6. Caption?=?"Correcto"

i?=?i?+?1//Recuerda el número correcto de preguntas

Else

Label6.Caption?= ?"Error"?&?Space(3)?&?"El resultado correcto es "?&?c//Error, espacio, resultado correcto

j?= ?j?+?1?// Recuerda el número incorrecto de preguntas

End?If

End?If

End?If

End?Sub

Private?Sub?Command3_Click()

Label7.Caption?=?iEl número final de preguntas correctas

Label8.Caption?= ?j

Fin ?Sub