Visual Basic

jedi2832 · 2003-10-13T18:02:32

Private Sub cmdExit_Click() End End Sub Private Sub cmdPurchase_Click() Dim x As Integer y = 0 x = Val(InputBox("Enter Your Age: ")) If x < 12 And x >= 1 Then MsgBox ("$ ") & 5.5 y = y + 1 ElseIf x > 55 And x <= 200 Then MsgBox ("$ ") & 6.5 y = y + 1 ElseIf x >= 12 And x <= 55 Then MsgBox ("$ ") & 7.5 y = y + 1 Else MsgBox "Error!", vbCritical End If MsgBox y End Sub Private Sub Form_Activate() Dim y As Integer End Sub in this code i try to get the y to add up, so every time a pop window comes up to ask your age, u enter ur age, and it converts how much money it cost, but i cant seem to add up the money, and tell the user, how much money total it gonna cost. plz help