vb随机作诗朗读程序代码-1正确例题 Private Declare Sub Sleep Lib "kernel32"

正确例题 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

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