Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim dblPrice As Double
Dim dblTotal As Double = 0
Dim intAge As Integer
Dim dblAge As Double = 0
Dim inthowmanymembers As Double
Dim strInput As String
Dim intadultsignle As Integer
Dim strFirstName As String
Dim strSecondName As String
Dim strAge As String
Dim intAdultSingle As Integer
Const intSingle = 450
Const intCouple = 850
Const intFamily = 1300
Const intFamilyA = 1300
Const intFmailyB = 850
Const intFamilyC = 450
Const intchild = 150
Const intextrachildren = 150
Const intextrachildren2 = 200
If RadioButton1.Checked Then
dblPrice = intSingle
ElseIf RadioButton3.Checked Then
dblPrice = intCouple
ElseIf RadioButton2.Checked Then
dblPrice = intFamily
End If
strFirstName = InputBox("Enter your first Name", "First Name")
strSecondName = InputBox("Enter your Second Name", "Second Name")
strAge = InputBox("Enter your Age", "Age")
intNumberInClass = CInt(strInput)
While (dblAge > 16)
intAdultSingle = CInt(strInput)
dblTotal = dblTotal + intAge
intCounter = intCounter + 1
End While
End Sub
End Class
