📄 code148a.txt

📁 VB大全（精华版）源代码

💻 TXT

字号:

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

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -