随机作诗朗读程序源代码.zip

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