随机作诗朗读程序vb代码

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, Rnd * 3753, 1) & Mid(a, Rnd * 3753, 1) & Mid(a, Rnd * 3753, 1) & Mid(a, Rnd * 3753, 1) & Mid(a, Rnd * 3753, 1) & Mid(a, Rnd * 3753, 1) & Mid(a, Rnd * 3753, 1) & “，” & Mid(a, Rnd * 3753, 1) & Mid(a, Rnd * 3753, 1) & Mid(a, Rnd * 3753, 1) & Mid(a, Rnd * 3753, 1) & Mid(a, Rnd * 3753, 1) & Mid(a, Rnd * 3753, 1) & Mid(a, Rnd * 3753, 1) & “。” & 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