complete the program.
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
Case1..........6
Label1.Caption="You are under 7
years old."
Case7,8,9,10
Label1.Caption="You are under 11
years old."
Case Else
Label1.Caption="You are over 10
years old."
End...........