VS 2010 Amusement Park Tickets

Hello, I am doing an assignment in my Visual Basic class and I need help setting up my coding for the assignment. The only thing I have done is named and showed what the constants are and the variables are.

Option Strict On

Public Class frmAmusmentParkTickets
' Delcartion of Constants
Const _cintTickets As Integer = 72
Const _cdecAAA As Decimal = CDec(0.15)
Const _cdecAARP As Decimal = CDec(0.175)
Const _cdecMilitaryID As Decimal = CDec(0.2)

Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click

'Delcartion of Variables
Dim intNumberOfTickets As Integer
Dim strNumberOfTickets As String



End Sub
End Class

I do not know how to do the code thing on here.