Fill in the blanks. Visual Basic in 24hrs book.
Dim strAge as String
Dim intAge as __________
StrAge = InputBox("How old are you?", "Age ask")
If (strAge = "") Then
__________ 'Terminates the application
End If
IntAge = Val(strAge)
Do _____________ ((IntAge<1) or (intAge>99))
MsgBox "Age is between 1 and 99" , vbExclamation, "Error!"
StrAge = _______________ ("How old are you?", "Age Ask")
If (strAge = "") Then
_____________ 'Terminates the application
End If
___________ 'End the Do section
IntAge = Val(strAge)
__________ Case IntAge
Case 1 __________________ 6
Label1.Caption = "You are under 7 years old."
Case 7, 8, 9, 10
Label1.Caption = "You are under 11 years old."
Case Else
Label1.Caption = "You are over 10 years old."
End ________________
|