• Home
 · 
• Miscellaneous
 · 
• Bowling Score Average

Bowling Score Average

Bowling Score Average

Rate Bowling Score Average

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub cmdCalculate_Click()
    Dim intGame1 As Integer
    Dim intGame2 As Integer
    Dim intGame3 As Integer
    Dim dblAverage As Integer
    
    intGame1 = txtScore1 'Get user input
    intGame2 = txtScore2 'Get user input
    intGame3 = txtScore3 'Get user input
    dblAverage = (intGame1 + intGame2 + intGame3) / 3
    
    lblAverage.Caption = dblAverage
End Sub

Private Sub cmdPrint_Click()
    'Prints current form at run time
     Me.PrintForm
End Sub

Private Sub Form_Load()
    'Displays the programmer name ,project name, current date and time
     lblInfo.Caption = "Zunaira Tariq" & vbCrLf & "Bowling Score Average" & vbCrLf & Date & vbCrLf & Time
End Sub
Private Sub cmdDone_Click()
    'Unload current form
    Unload frmBowlingScoreAverage
End Sub