测试例题 1
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long,
ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
Dim s As String
Dim i As Integer
s = Text1. Text
For i = 1 To Len(s)
Select Case Mid(s, i, 1)
Case "-"
Beep 0, 200
Case "0"
Beep 523, 200
Case "1"
Beep 587, 200
Case "2"
Beep 659, 200
Case "3"
Beep 698, 200
Case "4"
Beep 784, 200
Case "5"
Beep 880, 200
Case "6"
Beep 980, 200
Case "7"
Beep 1060, 200