Pregunta de VB: Crear un programa de práctica de sumas

Atenuar A como entero, B como entero, C como entero

Si Text3.Text = "" Entonces

MsgBox "Por favor, introduzca ¡Calcule el resultado! "

Salir Sub

Fin Si

A = Val(Text1.Text): B = Val(Text2.Text)

C = A B

Si no C = Val(Text3.Text) Entonces

Command2.Enabled = True

Finalizar si

End Sub

Private Sub Command2_Click()

Atenuar S1 como entero, S2 como entero

Si Combo1.Text = "" Entonces

MsgBox "¡Seleccione un algoritmo!"

Salir Fin.

Salir de Sub

Finalizar si

Si Combo1.Text = "Suma de un dígito" Entonces

Aleatorizar

S1 = Int(Rnd * 10 1)

Aleatorio

S2 = Int(Rnd * 10 1)

ElseIf Combo1.Text = "Suma de 2 dígitos " Luego

Aleatorizar

S1 = Int(Rnd * 100 10)

Aleatorizar

S2 = Int(Rnd * 100 10)

Aleatorizar

S2 = Int(Rnd * 100 10)

ElseIf Combo1.Text = "Suma de tres dígitos" Entonces

Aleatorizar

S1 = Int(Rnd * 1000 100)

Aleatorizar

S2 = Int(Rnd * 1000 100)

Finalizar si

Texto1.Texto = S1

Texto2.Texto = S2

End Sub

Sub privado Form_Load()

Combo1.Clear

Combo1.AddItem "Suma de un dígito"

Combo1.AddItem "Suma de dos dígitos"

Combo1.AddItem "Tres dígitos suma" Suma de números"

Command1.Caption = "Cálculo"

Command2.Caption = "Problema"

End Sub