vb发出声音音乐代码

正确例题
Private Declare Function Beep Lib “kernel32” (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
Dim X(24) As Integer, I As Integer, J As Integer
X(1) = 784: X(2) = 659: X(3) = 523: X(4) = 784
X(5) = 659: X(6) = 523: X(7) = 880: X(8) = 698
X(9) = 587: X(10) = 880: X(11) = 698: X(12) = 587
X(13) = 1568: X(14) = 1318: X(15) = 1046
X(16) = 1568: X(17) = 1318: X(18) = 1046
X(19) = 1760: X(20) = 1396: X(21) = 1174
X(22) = 1760: X(23) = 1396: X(24) = 1174
For I = 1 To 2
For J = 1 To 24
Beep X(J), 200
Next J
Next I
End Sub

正确例题
Private Declare Function Beep Lib “kernel32” (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
Dim X As Integer, I As Integer

For I = 1 To 2
Beep 1784, 200

Next I
End Sub

正确例题

Private Declare Function Beep Lib “kernel32” (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Private Sub Form_Load()
Dim X As Integer, I As Integer

For I = 1 To 30
Beep Rnd * 1784, 200

Next I
End Sub

正确例题

Private Declare Function Beep Lib “kernel32” (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Private Sub Form_Load()
Dim I As Integer

For I = 1 To 30
Beep Rnd * 9999, 200

Next I
End Sub

正确例题
Private Declare Function Beep Lib “kernel32” (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
Dim I As Integer

For I = 1 To 20
Beep Rnd * 9999, 200

Next I
End Sub

正确例题
Private Declare Function Beep Lib “kernel32” (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
Dim I As Integer

For I = 1 To 20
Beep Rnd * 9999, 200
Beep Rnd * 9999, 200
Beep Rnd * 9999, 200
Beep Rnd * 9999, 200
Beep Rnd * 9999, 200
Beep Rnd * 9999, 200
Beep Rnd * 9999, 200
Beep Rnd * 9999, 200
Beep Rnd * 9999, 200
Beep Rnd * 9999, 200
Beep Rnd * 9999, 200

Next I
End Sub

正确例题
Private Declare Function Beep Lib “kernel32” (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
Dim X As Integer, I As Integer

For I = 1 To 20
Beep Rnd * 1784, 200

Next I
End Sub

正确例题
Private Declare Function Beep Lib “kernel32” (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Private Sub Command1_Click()
Beep Rnd * 1784, 200
End Sub

正确例题
Private Declare Function Beep Lib “kernel32” (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Private Sub Command1_Click()
Beep 1784, 400
End Sub

正确例题
Private Declare Function Beep Lib “kernel32” (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Private Sub Command1_Click()
Beep 500, 900 '500表示频率，单位为㎐；900表示持续时间，单位为㎳。
End Sub

正确例题
Private Declare Function Beep Lib “kernel32” (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Private Sub Command1_Click()
Beep 500, 600 '500表示频率，单位为hz；600表示持续时间，单位为?。

End Sub