请教：调用哪个api函数可以让主板发出告警声？

Question

如题

Answer 1

Option Explicit
Private Declare Function APIBeep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As LongPrivate Sub Command1_Click()
  Dim frequency As Long, sylong As Long
  frequency = CLng(1000)
  sylong = CLng(500)
  APIBeep frequency, sylong
End Sub

Answer 2

用API可以让主机发出不同声调的声音（做好的话说不定还能做出个音乐呢：））

Answer 3

Beep 语句
      通过计算机喇叭发出一个声调。语法Beep说明呼叫的频率与时间长短取决于硬件和系统软件，并随电脑不同而不同。.

Answer 4

Beep 语句示例
本示例使用 Beep 语句让计算机连续响三声。Dim I
For I = 1 To 3   ' 循环 3 次。
   Beep   ' 发出一声。
Next I

Answer 5

Private Declare Function APIBeep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As LongPrivate Sub Command1_Click()
  Dim i As Long
  For i = 1 To 255
     APIBeep i, i
  Next
End Sub
发出255种声音，还可以更多：）