Respecto al cálculo de ecuaciones cuadráticas en VB, es mejor escribir el programa completo y agregar comentarios.
VERSIÓN 6.00
Comenzar VB.Form Form1
BorderStyle = 3 'Diálogo fijo
Caption = "Maestro de adivinanzas"
p>
ClientHeight = 2055
ClientLeft = 45
ClientTop = 435
ClientWidth = 700
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2055
ScaleWidth = 3465
StartUpPosition = 2 'Centro de pantalla
Comenzar VB.CommandButton Comando1
Caption = "Inicio"
Alto = 495
Izquierda = 1080
TabIndex = 3
Superior = 960
Ancho = 1215
Fin
Comenzar VB.TextBox Texto1
Alto = 375
Izquierda = 480
TabIndex = 0
Arriba = 360
Ancho = 855
Fin
Comenzar VB.Label Label2
Caption = "Ingrese datos entre 1 y 31 como máximo 5 veces para adivinar el número"
Alto = 375
Izquierda = 120
TabIndex = 2
Superior = 1560
Ancho = 3255
Fin
Comenzar VB.Label Label1
Caption = "Label1"
Alto = 375
Izquierda = 1680
TabIndex = 1
Superior = 360
Ancho = 975
Fin
Fin
Atributo VB_Name = "Form1"
Atributo VB_GlobalNameSpace = False
Atributo VB_Creatable = False
Atributo VB_PredeclaredId = True
Atributo VB_Exposed = Falso
Opción explícita
Atenuar p1 como entero, p2 como entero
Atenuar comenzar como booleano
Subcomando privado1_Clic ( )
p1 = 1: p2 = 31
Aleatorizar
Label1.Tag = Int(Rnd * (31 - 1) 1)
Label1.BackColor = amp;H8000000F
Begin = True
'Debug.Print Label1.Tag
End Sub
Subtexto privado1_KeyPress(KeyAscii como entero)
Si No (KeyAscii = 13 y Begin = True) Luego salga de Sub
Dim i As Integer
i = Val(Text1.Text)
If i lt; 1 O i gt; 31 Luego
MsgBox "¡Ingrese un número entre 1 y 31!", vbCritical, "Preguntar"
Salir de Sub
End If
Con Etiqueta1
Seleccione Caso i - Val(Label1.Tag)
Caso 0
.Caption = "¡Respondiste correctamente! "
.BackColor = vbGreen
Begin = False
Caso es gt; 0
.Caption = "¡Grande!"
p2 = Val(Text1.Text)
.BackColor = vbRed
El caso es 0
.Caption = "pequeño"
p1 = Val(Text1.Text)
.BackColor = vbBlack
Finalizar selección
Finalizar con
Text1.SetFocus
End Sub
Sub privado Text1_KeyUp(KeyCode como entero, Shift como entero)
Si KeyCode = vbKeyV y Shift = 2 y Begin = True Entonces
Text1.Text = IIf(((p1 p2) Mod 2) = 0, (p1 p2) / 2, Fix((p1 p2) / 2) 1)
Finalizar si
Fin Sub