' Page 83 problem number 58

Option Explicit

Private Sub cmdWindow_Click()
    Dim floor_area As Integer
    floor_area = 14 * 16
    
    Dim window_area As Double
    window_area = floor_area * 0.1
    
    picOut.Print "Floor area is " 'note the quotes
    picOut.Print floor_area 'note: no quotes here
    
    picOut.Print "Minimum window area is: "; 'note semicolon
    'semicolon above means: don't hit enter key after print
    picOut.Print window_area
End Sub