Programación VB, los estándares de examen físico para los reclutadores de una determinada unidad son los siguientes: Hombre: altura de 165 cm y superior, agudeza visual de 1,0 y superior

Opción explícita

Atenuar MinH como entero

Subcomando privado1_Click()

If (Val(Text1.Text) >= MinH ) Y (Val(Text2.Text) >= 1) Entonces

Text3.Text = "Aprobó el examen físico"

De lo contrario

Text3.Text = " Examen físico No cumple con el estándar"

End If

End Sub

Private Sub Form_Load()

Command1.Enabled = False

End Sub

Sub privado Option1_Click()

Option2.Value = False

MinH = 165

Command1 .Enabled = Verdadero

End Sub

Sub privado Option2_Click()

Option1.Value = False

MinH = 156

Command1.Enabled = Verdadero

Fin Sub