Private Declare Function PlaySound Lib “winmm.dll” Alias “PlaySoundA” (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Sub Command1_Click()
If Text1.Text = “1” Then
PlaySound “F:\Sound\32.wav”, 0&, SND_ASYNC + SND_FILENAME
Else
If Text1.Text = “2” Then
PlaySound “F:\Sound\34.wav”, 0&, SND_ASYNC + SND_FILENAME
Else
If Text1.Text = “3” Then
PlaySound “F:\Sound\36.wav”, 0&, SND_ASYNC + SND_FILENAME
Else
If Text1.Text = “4” Then
PlaySound “F:\Sound\38.wav”, 0&, SND_ASYNC + SND_FILENAME
Else
If Text1.Text = “5” Then
PlaySound “F:\Sound\40.wav”, 0&, SND_ASYNC + SND_FILENAME
Else
If Text1.Text = “6” Then
PlaySound “F:\Sound\42.wav”, 0&, SND_ASYNC + SND_FILENAME
Else
If Text1.Text = “7” Then
PlaySound “F:\Sound\45.wav”, 0&, SND_ASYNC + SND_FILENAME
End If
End If
End If
End If
End If
End If
End If
End Sub
正确例题朗读程序
Private Sub Command1_Click()
Dim s As String
Dim i As Integer
Dim MYSAPI
Randomize
s = Text1.Text
For i = 1 To Len(s)
Set MYSAPI = CreateObject(“Sapi.SpVoice”)
MYSAPI.Speak Mid(s, i, 1)
Next
End Sub
正确例题
Private Declare Function Beep Lib “kernel32” (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Declare Function PlaySound Lib “winmm.dll” Alias “PlaySoundA” (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags 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 1
Beep 533, 200
Case 2
Beep 933, 200
Case 3
Beep 1133, 200
Case 4
Beep 1333, 200
Case 5
Beep 1633, 200
Case 6
Beep 1933, 200
Case 7
Beep 2133, 200
End Select
Next
End Sub
Private Sub Command2_Click()
Dim s As String
Dim i As Integer
s = Text1.Text
For i = 1 To Len(s)
Select Case Mid(s, i, Rnd * 1)
Case 1
Beep 533, 200
Case 2
Beep 933, 200
Case 3
Beep 1133, 200
Case 4
Beep 1333, 200
Case 5
Beep 1633, 200
Case 6
Beep 1933, 200
Case 7
Beep 2133, 200
End Select
Next
End Sub
Private Sub Command3_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 1
PlaySound “F:\Sound\32.wav”, 0&, SND_ASYNC + SND_FILENAME
Case 2
PlaySound “F:\Sound\34.wav”, 0&, SND_ASYNC + SND_FILENAME
Case 3
PlaySound “F:\Sound\36.wav”, 0&, SND_ASYNC + SND_FILENAME
Case 4
PlaySound “F:\Sound\38.wav”, 0&, SND_ASYNC + SND_FILENAME
Case 5
PlaySound “F:\Sound\40.wav”, 0&, SND_ASYNC + SND_FILENAME
Case 6
PlaySound “F:\Sound\42.wav”, 0&, SND_ASYNC + SND_FILENAME
Case 7
PlaySound “F:\Sound\45.wav”, 0&, SND_ASYNC + SND_FILENAME
End Select
Next
End Sub
Private Sub Command3_Click()
Dim s As String
Dim i As Integer
s = Text1.Text
For i = 1 To Len(s)
Select Case Mid(s, i, Rnd * 1)
Case 1
PlaySound “F:\Sound\32.wav”, 0&, SND_ASYNC + SND_FILENAME
Case 2
PlaySound “F:\Sound\34.wav”, 0&, SND_ASYNC + SND_FILENAME
Case 3
PlaySound “F:\Sound\36.wav”, 0&, SND_ASYNC + SND_FILENAME
Case 4
PlaySound “F:\Sound\38.wav”, 0&, SND_ASYNC + SND_FILENAME
Case 5
PlaySound “F:\Sound\40.wav”, 0&, SND_ASYNC + SND_FILENAME
Case 6
PlaySound “F:\Sound\42.wav”, 0&, SND_ASYNC + SND_FILENAME
Case 7
PlaySound “F:\Sound\45.wav”, 0&, SND_ASYNC + SND_FILENAME
End Select
Next
End Sub
随机谱曲按钮
Private Sub Command2_Click()
Dim i, j, k,l,m,n,o,p As Integer
For i = 1 To 7
For j = 1 To 7
For k = 1 To 7
For l = 1 To 7
For m = 1 To 7
For n = 1 To 7
For o = 1 To 7
For p = 1 To 7
Text1.Text = Text1.Text & vbCrLf & Mid(Text1.Text, i, Rnd() * 1)& Mid(Text1.Text, j, Rnd() * 1) & Mid(Text1.Text, k, Rnd() * 1) & Mid(Text1.Text, l, Rnd() * 1)& Mid(Text1.Text, m, Rnd() * 1) & Mid(Text1.Text, n, Rnd() * 1) & Mid(Text1.Text, o, Rnd() * 1)& Mid(Text1.Text, p, Rnd() * 1)
Next
Next
Next
Next
Next
Next
Next
Next
End Sub
正确例题
Private Declare Function Beep Lib “kernel32” (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Declare Function PlaySound Lib “winmm.dll” Alias “PlaySoundA” (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags 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 1
Beep 533, 200
Case 2
Beep 933, 200
Case 3
Beep 1133, 200
Case 4
Beep 1333, 200
Case 5
Beep 1633, 200
Case 6
Beep 1933, 200
Case 7
Beep 2133, 200
End Select
Next
End Sub
Private Sub Command2_Click()
Dim s As String
Dim i As Integer
s = Text1.Text
For i = 1 To Len(s)
Select Case Mid(s, i, Rnd * 1)
Case 1
Beep 533, 200
Case 2
Beep 933, 200
Case 3
Beep 1133, 200
Case 4
Beep 1333, 200
Case 5
Beep 1633, 200
Case 6
Beep 1933, 200
Case 7
Beep 2133, 200
End Select
Next
End Sub
Private Sub Command3_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 1
PlaySound “F:\Sound\32.wav”, 0&, SND_ASYNC + SND_FILENAME
Case 2
PlaySound “F:\Sound\34.wav”, 0&, SND_ASYNC + SND_FILENAME
Case 3
PlaySound “F:\Sound\36.wav”, 0&, SND_ASYNC + SND_FILENAME
Case 4
PlaySound “F:\Sound\38.wav”, 0&, SND_ASYNC + SND_FILENAME
Case 5
PlaySound “F:\Sound\40.wav”, 0&, SND_ASYNC + SND_FILENAME
Case 6
PlaySound “F:\Sound\42.wav”, 0&, SND_ASYNC + SND_FILENAME
Case 7
PlaySound “F:\Sound\45.wav”, 0&, SND_ASYNC + SND_FILENAME
End Select
Next
End Sub
Private Sub Command4_Click()
Dim i, j, k, l, m, n, o, p As Integer
For i = 1 To 7
For j = 1 To 7
For k = 1 To 7
For l = 1 To 7
For m = 1 To 7
For n = 1 To 7
For o = 1 To 7
For p = 1 To 7
Text1.Text = Text1.Text & vbCrLf & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, j, Rnd() * 1) & Mid(Text1.Text, k, Rnd() * 1) & Mid(Text1.Text, l, Rnd() * 1) & Mid(Text1.Text, m, Rnd() * 1) & Mid(Text1.Text, n, Rnd() * 1) & Mid(Text1.Text, o, Rnd() * 1) & Mid(Text1.Text, p, Rnd() * 1)
Next
Next
Next
Next
Next
Next
Next
Next
End Sub
Private Sub Command5_Click()
Dim s As String
Dim i As Integer
s = Text1.Text
For i = 1 To Len(s)
Select Case Mid(s, i, Rnd * 1)
Case 1
PlaySound “F:\Sound\32.wav”, 0&, SND_ASYNC + SND_FILENAME
Case 2
PlaySound “F:\Sound\34.wav”, 0&, SND_ASYNC + SND_FILENAME
Case 3
PlaySound “F:\Sound\36.wav”, 0&, SND_ASYNC + SND_FILENAME
Case 4
PlaySound “F:\Sound\38.wav”, 0&, SND_ASYNC + SND_FILENAME
Case 5
PlaySound “F:\Sound\40.wav”, 0&, SND_ASYNC + SND_FILENAME
Case 6
PlaySound “F:\Sound\42.wav”, 0&, SND_ASYNC + SND_FILENAME
Case 7
PlaySound “F:\Sound\45.wav”, 0&, SND_ASYNC + SND_FILENAME
End Select
Next
End Sub
正确例题–随机谱曲
Private Sub Command4_Click()
Dim i As Integer
For i = 1 To 7
Text1.Text = Text1.Text & vbCrLf & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1)
Next
End Sub
正确例题–随机谱曲
Private Sub Command4_Click()
Dim i As Integer
For i = 1 To 7
Text1.Text = Text1.Text & vbCrLf & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1)
Next
End Sub
正确例题
Private Declare Function Beep Lib “kernel32” (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Declare Function PlaySound Lib “winmm.dll” Alias “PlaySoundA” (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags 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 1
Beep 533, 200
Case 2
Beep 933, 200
Case 3
Beep 1133, 200
Case 4
Beep 1333, 200
Case 5
Beep 1633, 200
Case 6
Beep 1933, 200
Case 7
Beep 2133, 200
End Select
Next
End Sub
Private Sub Command2_Click()
Dim s As String
Dim i As Integer
s = Text1.Text
For i = 1 To Len(s)
Select Case Mid(s, i, Rnd * 1)
Case 1
Beep 533, 200
Case 2
Beep 933, 200
Case 3
Beep 1133, 200
Case 4
Beep 1333, 200
Case 5
Beep 1633, 200
Case 6
Beep 1933, 200
Case 7
Beep 2133, 200
End Select
Next
End Sub
Private Sub Command3_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 1
PlaySound “F:\Sound\32.wav”, 0&, SND_ASYNC + SND_FILENAME
Case 2
PlaySound “F:\Sound\34.wav”, 0&, SND_ASYNC + SND_FILENAME
Case 3
PlaySound “F:\Sound\36.wav”, 0&, SND_ASYNC + SND_FILENAME
Case 4
PlaySound “F:\Sound\38.wav”, 0&, SND_ASYNC + SND_FILENAME
Case 5
PlaySound “F:\Sound\40.wav”, 0&, SND_ASYNC + SND_FILENAME
Case 6
PlaySound “F:\Sound\42.wav”, 0&, SND_ASYNC + SND_FILENAME
Case 7
PlaySound “F:\Sound\45.wav”, 0&, SND_ASYNC + SND_FILENAME
End Select
Next
End Sub
Private Sub Command4_Click()
Dim s As String
Dim i As Integer
s = Text1.Text
For i = 1 To Len(s)
Select Case Mid(s, i, Rnd * 1)
Case 1
PlaySound “F:\Sound\32.wav”, 0&, SND_ASYNC + SND_FILENAME
Case 2
PlaySound “F:\Sound\34.wav”, 0&, SND_ASYNC + SND_FILENAME
Case 3
PlaySound “F:\Sound\36.wav”, 0&, SND_ASYNC + SND_FILENAME
Case 4
PlaySound “F:\Sound\38.wav”, 0&, SND_ASYNC + SND_FILENAME
Case 5
PlaySound “F:\Sound\40.wav”, 0&, SND_ASYNC + SND_FILENAME
Case 6
PlaySound “F:\Sound\42.wav”, 0&, SND_ASYNC + SND_FILENAME
Case 7
PlaySound “F:\Sound\45.wav”, 0&, SND_ASYNC + SND_FILENAME
End Select
Next
End Sub
Private Sub Command5_Click()
Dim i As Integer
For i = 1 To 7
Text1.Text = Text1.Text & vbCrLf & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1)
Next
End Sub
Private Sub Command4_Click()
Dim i As Integer
Text1.Text =“1234567”
For i = 1 To 7
For j = 1 To 7
Text1.Text = Text1.Text & vbCrLf & Mid(Text1.Text, i, Rnd() * 7) & Mid(Text1.Text, j, Rnd() * 7)
Next
Next
End Sub