code47a.txt

来自「VB大全（精华版）源代码」· 文本 代码 · 共 15 行

Public Sub Main ()
  Dim Seconds_In_An_Hour As Integer
  Dim Average As Single

  Seconds_In_An_Hour = 60 * 60
  Average = (5 + 10 + 15 + 20) / 4

  Debug.Print "The number of seconds in an hour: " & _   
     Seconds_In_An_Hour
  Debug.Print "The average of 5, 10, 15, and 20 is: " & _
     Average
  Debug.Print "The number of seconds in 48 minutes is: " & _
     Seconds_In_An_Hour - (12 * 60)
End Sub