code148a.txt

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

Private Sub Beeper(Beep_Count As Integer)
  Dim Count As Integer

  For Count = 1 to Beep_Count
     Beep
  Next
End Sub

Public Sub Main()
  Dim Count As Integer

  For Count = 1 to 3
     Debug.Print "About to beep "; count ; " times!" 
     Beeper Count
  Next
End Sub