excel 计算机beep,Beep语句有什么用？？

最新推荐文章于 2022-10-28 22:55:58 发布

Cherry菊

最新推荐文章于 2022-10-28 22:55:58 发布

阅读量391

点赞数

文章标签： excel 计算机beep

用beep来演奏"大长今"

Public Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Sub peng()

Dim a, b, c, d, e, f, G, h, Z As String

G = 100

a = 261.626 '1

b = 293.665 '2

c = 329.628 '3

d = 349.228 '4

e = 391.995 '5

f = 440 '6

G = 493.883 '7

h = 523.251 '8

xi b, G

xi c, G

xi b, G

xi a, G

xi f, G

xi a, G

xi b, G

xi 1, G

xi a, G

xi 1, G

xi b, G

xi c, G

xi 1, G

xi c, G

xi e, G

xi c, G

xi 1, G

xi c, G

xi b, G

xi c, G

xi 1, G

xi c, G

xi 1, G

xi e, G

xi f, G

xi 1, G

xi f, G

xi e, G

xi c, G

xi 1, G

xi c, G

xi e, G

xi f, G

xi 1, G

xi e, G

xi 1, G

xi b, G

xi c, G

xi 1, G

xi b, G

xi c, G

xi 1, G

xi b, G

xi c, G

xi f, G

xi 1, G

xi f, G

xi 1, G

xi b, G

xi a, G

xi f, G

xi 1, G

xi b, G

xi a, G

xi f, G

xi 1, G

xi b, G

xi c, G

xi a, G

xi 1, G

xi b, G

xi c, G

xi e, G

xi 1, G

xi f, G

xi e, G

xi c, G

xi 1, G

xi b, G

xi a, G

xi f, G

xi 1, G

xi f, G

xi e, G

xi f, G

xi 1, G

xi f, G

xi 1, G

xi b, G

xi a, G

xi f, G

xi 1, G

xi b, G

xi a, G

xi f, G

xi 1, G

xi b, G

xi c, G

xi a, G

xi 1, G

xi b, G

xi c, G

xi e, G

xi f, G

xi e, G

xi c, G

xi b, G

xi a, G

xi f, G

xi e, G

xi f, G

xi e, G

xi f, G

End Sub

Sub xi(a, b)

Beep a, b

DoEvents '刷新

End Sub