Dim pl As String
Dim tpl As String
Dim tpl2 As String
Dim i As Integer
Cls
Do
    Input pl
    If pl="e" Then
        Exit Do
    End If
    For i=1 To Len(pl)
        tpl=Mid$(pl,i,1)
        Select Case tpl
            Case "1"
                tpl="c"
            Case "2"
                tpl="d"   
            Case "3"
                tpl="e"
            Case "4"
                tpl="f"
            Case "5"
                tpl="g"
            Case "6"
                tpl="a"
            Case "7"
                tpl="b"
            Case Else
                Print "Error"
                Exit For
        End Select
        tpl2=tpl2+tpl
    Next
    Cls
    Play tpl2
    tpl2=""
Loop


输入 1234567
就可以演奏啦

靠，不用音响也可以发声。。。我把音响关了还在演奏呢

啊~原来是用PC喇叭啊…有点类似于Beep函数

楼主，我是新手，过几天10.1是我老婆生日，现在看到你这编程就想编出来给她，不过编写出来之后在
     tpl2=tpl2+tpl
这一项他先是   Type mismatch
我是新手，其实看不懂这程序，只想编出来，送给我老婆，能不能帮个忙，帮我看看？？
我QQ是351020853，能不能加我，帮我弄下？？谢咯！！

你是不是输入了空格？
你将这段数字直接输进去试试：5334221234555533422
13553222223
4333334553342213551

额····恕我白痴····还是不行··或者说不懂····

楼主的程序有点、、、、
第一，不能升降调
第二，不能用浮点
第三，不能控制节奏

阿萨