Código en Visual Basic 5.0 para la ACT-170310-1-Rafael Soriano Ramírez, Jose Luis Días de la Luz, Jose Luis Alejandro Aguilar Zarazua

Private Sub Seleccionar_Click()
verificarDato
End Sub

Public Function verificarDato()

If climatxt.Text = "nublado" Then
clima
ElseIf climatxt.Text = "cálido" Then
clima
ElseIf climatxt.Text = "templado" Then
clima1
ElseIf climatxt.Text = "lluvioso" Then
clima
Else
MsgBox ("no escribió bien el clima favor de verificarlo, gracias")
End If
climatxt.Text = ""
End Function

Public Function clima()
MsgBox ("no puede ir al cine")
climatxt.Text = ""
End Function

Public Function clima1()
MsgBox ("puede ir al cine")
climatxt.Text = ""
End Function