VB 提示音编歌曲

Private Declare Function APIBeep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Private Sub Command1_Click()
Call 小幸运
End
End Sub

Function 小幸运()
Let turn = 54
Let A = 2000
Let B = 1000
Let c = 500 '一拍 四分音符
Let D = 250 '半拍 八分音符
Let E = 125
Let F = 63

Rem 低音
Let L1 = 262
Let L2 = 294
Let L3 = 330
Let L4 = 349
Let L5 = 392
Let L6 = 440
Let L7 = 493

Rem 半弦音
Let n1 = 532
Let n2 = 588
Let n3 = 660
Let n4 = 698
Let n5 = 784
Let n6 = 880
Let n7 = 988

Rem 高音
Let h1 = 1046
Let h2 = 1175
Let h3 = 1319
Let h4 = 1397
Let h5 = 1568
Let h6 = 1760
Let h7 = 1976

    Rem 也许当时忙着微笑和哭泣
        Rem APIBeep H3, D: APIBeep H2, E: APIBeep H1, E + D: APIBeep N7, D: APIBeep N6, D: APIBeep N6, D: APIBeep N6, D: APIBeep N6, D: APIBeep N6, D: APIBeep H3, D: APIBeep H2, D: APIBeep H2, D * 3:

    Rem 原来你是我最想留住的幸运，原来我们和爱情曾经靠得那么近
        APIBeep n5, c: APIBeep h3, D: APIBeep h2, E: APIBeep h1, E: APIBeep 0, E: APIBeep h2, D:
        APIBeep h3, D: APIBeep n5, D: APIBeep h2, D: APIBeep h3, D: APIBeep 0, D: APIBeep n5, D: APIBeep h2, D: APIBeep h3, D:

        APIBeep 0, D: APIBeep h2, D: APIBeep h2, D: APIBeep h3, E: APIBeep h4, E: APIBeep 0, D: APIBeep h3, D: APIBeep h2, D: APIBeep n7, D:
        APIBeep h1, D: APIBeep n3, D: APIBeep n6, D: APIBeep h1, D: APIBeep 0, D: APIBeep n3, D: APIBeep n6, D: APIBeep n7, D:

    Rem 那为我对抗世界的决定，那陪我淋的雨，一幕幕都是你 一尘不染的真心
        APIBeep 0, D: APIBeep n7, D: APIBeep n7, D: APIBeep h3, E: APIBeep h5, E: APIBeep 0, D: APIBeep h3, D: APIBeep h1, D: APIBeep n7, D:
        APIBeep n6, D: APIBeep h4, E: APIBeep h4, E: APIBeep 0, c: APIBeep 0, D: APIBeep h5, D: APIBeep h4, D: APIBeep h3, D:
        APIBeep n5, D: APIBeep h3, E: APIBeep h3, E: APIBeep 0, c: APIBeep 0, D: APIBeep h4, D: APIBeep h3, D: APIBeep h1, D:
        APIBeep n4, D: APIBeep h2, E: APIBeep h2, E: APIBeep 0, c: APIBeep 0, D: APIBeep h2, D: APIBeep h1, D: APIBeep h3, D:
        APIBeep 0, D: APIBeep h2, D: APIBeep h1, D: APIBeep h3, D: APIBeep 0, D: APIBeep h2, D: APIBeep h1, D: APIBeep h1, D:

    Rem 与你相遇 好幸运
        APIBeep h3, D: APIBeep n5, D: APIBeep h2, D: APIBeep h3, D: APIBeep 0, D: APIBeep n5, D: APIBeep h2, D: APIBeep h3, D:

    Rem 可我已失去为你泪流满面的权利
        APIBeep 0, D: APIBeep h2, D: APIBeep h2, D: APIBeep h3, E: APIBeep h4, E: APIBeep 0, D: APIBeep h3, D: APIBeep h2, D: APIBeep n7, D:
        APIBeep h1, D: APIBeep n3, D: APIBeep n6, D: APIBeep h1, D: APIBeep 0, D: APIBeep n3, D: APIBeep n6, D: APIBeep n7, D:

    Rem 但愿在我看不到的天际，你张开了双翼，遇见你
        APIBeep 0, D: APIBeep n7, D: APIBeep n7, D: APIBeep h3, E: APIBeep h5, E: APIBeep 0, D: APIBeep h3, D: APIBeep h1, D: APIBeep n7, D:
        APIBeep n6, D: APIBeep h4, E: APIBeep h4, E: APIBeep 0, c: APIBeep 0, D: APIBeep h5, D: APIBeep h4, D: APIBeep h3, D:
        APIBeep n5, D: APIBeep h3, E: APIBeep h3, E: APIBeep 0, c: APIBeep 0, D: APIBeep h4, D: APIBeep h3, D: APIBeep h1, D:
    
    Rem 的注定
        APIBeep n4, D: APIBeep h2, E: APIBeep h2, E: APIBeep 0, c:

    Rem 她会有多幸运
        APIBeep 0, D: APIBeep h3, D: APIBeep h1, D: APIBeep h1, D: APIBeep h3, D + E: APIBeep h2, D + E: APIBeep h1, D + c
    
End Function

小幸运简谱参考：https://www.zhaogepu.com/jianpu/378555.html

曲谱节拍简单教学视频：https://baijiahao.baidu.com/s?id=1607858953848120582&wfr=spider&for=pc
参考：https://blog.csdn.net/qq_34333801/article/details/80726911