' Mr. Minich
' Period 1
' Ch3Demo1
' 9/14/2000
' Purpose - This program demonstrates the use of variables and declaration statements.

Option Explicit

Private Sub Form_Activate()
    
    Dim strName As String           ' name of runner
    Dim sngDistance As Single       ' distance of the race
    Dim intHours As Integer         ' hours run
    Dim intMinutes As Integer       ' leftover minutes run
    Dim intTotalMinutes As Integer  ' total minutes run
    Dim sngPace As Single           ' running pace in mins/mile
    
    strName = "Bill Rodgers"
    sngDistance = 26.2
    intHours = 2
    intMinutes = 9
    intTotalMinutes = intHours * 60 + intMinutes    ' computing total minutes run
    
    sngPace = intTotalMinutes / sngDistance         ' computing pace
    
    frmMain.Print "Welcome to the Running Calculator Program"
    frmMain.Print
    frmMain.Print "The great runner, Bill Rodgers, won his first "
    frmMain.Print "Boston Marathon in 1975 with a time of "
    frmMain.Print "approximately " & intHours & " hours and " & intMinutes & " mins."
    frmMain.Print
    frmMain.Print "Since a marathon is " & sngDistance & " miles, ";
    frmMain.Print "his average mile pace was "
    frmMain.Print sngPace & " mins/mile."

End Sub