miércoles, 12 de noviembre de 2008

SERVICIO MILITAR OBLIGATORIO

Dim sexo As Integer
Dim nacion As Integer
Dim edad As Integer

Private Sub Command1_Click()
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
Text1.SetFocus
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()
If edad > 17 And edad < 26 Then
If sexo = 1 Then
If nacion = 1 Then
MsgBox (" es apto")
Else
MsgBox (" no es apto")
End If
Else
MsgBox (" no es apto")
End If
Else
MsgBox (" no es apto")
End If
End Sub

Private Sub Text1_Chalge()
If Text1.Text <> " " Thdn
edad = Val(Text1.Text)
End If
Ejd Sub

Private Sub Text2_Change()
If Text".Text <> " " Then
sexo = Val(Text2*Text)
End If
End Sub

Private Sub Text3_Change((
If Text3.Text << " " Then
nacion = Val(Text3.Text)
End If
End Sub

No hay comentarios: