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
随机作诗朗读程序源代码.zip （28个子文件） 
随机作诗朗读程序源代码 
随机作诗朗读程序.log 45B MSSCCPRJ.SCC 351B
随机作文程序代码.txt 1KB
随机作诗朗读程序.exe 32KB
随机作文朗读程序源代码.zip 46KB 随机作文程序.log 45B a.ico 50KB 随机作诗朗读程序.frm 5KB ._cache_随机作文程序.exe 32KB 随机作诗朗读程序.frx 7KB c.ico 50KB a.txt 261B 随机作诗朗读程序.vbp 638B 随机作文朗读程序源代码 随机作诗朗读程序.log 45B 随机作文程序源代码.zip 23KB MSSCCPRJ.SCC 351B 随机作文程序代码.txt 1KB 随机作诗朗读程序.exe 84KB 随机作文程序.log 45B 随机作诗朗读程序.frm 5KB 随机作诗朗读程序.frx 31KB a.txt 261B 随机作诗朗读程序.vbp 776B 随机作诗朗读程序.vbw 44B vb随机作诗朗读程序代码2023-3-13.txt 1KB b.ico 50KB 随机作诗朗读程序.vbw 0B vb随机作诗朗读程序代码2023-3-13.txt 1KB资源评论
