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
miércoles, 12 de noviembre de 2008
Suscribirse a:
Enviar comentarios (Atom)
No hay comentarios:
Publicar un comentario