正确例题
Private Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Dim s As String
Dim a As String, b As String, i As Integer
Text2.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
a = Text1.Text
For i = 1 To 7
Text2.Text = Text2.Text & vbCrLf & " " & Mid(a, Int(Rnd * 3753) + 1, 7) & “,” & Mid(a, Int(Rnd * 3753) + 1, 7) & “。” & vbCrLf
Next
End Sub
Private Sub Command2_Click()
Text2.Text = “”
End Sub
Private Sub Command3_Click()
Text2.SetFocus '到得焦点
Text2.SelLength = 0 '设置选定的起始位置
Text2.SelLength = Len(Text2.Text) '设置选定的长度
Clipboard.Clear '清除剪贴板上的内容
Clipboard.SetText Text2.SelText '复制选中的文本到剪贴板上
End Sub
Private Sub Command4_Click()
Open App.Path & “\a.txt” For Output As #1
Print #1, Text2.Text
Close #1
End Sub
Private Sub Timer1_Timer()
Dim MYSAPI
Call Command1_Click
Sleep 1000
Call Command2_Click
Sleep 1
Call Command1_Click
s = Text2.Text
Set MYSAPI = CreateObject(“Sapi.SpVoice”)
MYSAPI.Speak s
End Sub