在一个文本框中,随机产生数字,如何用VB调用每个数字的声音文件!
来源:百度知道 编辑:UC知道 时间:2024/05/31 13:16:30
Private Sub Command1_Click()
Dim MYSAPI
Randomize
Text1.Text = Int(Rnd * 9)
Set MYSAPI = CreateObject("Sapi.SpVoice")
MYSAPI.Speak Text1.Text
End Sub
问题太模糊
随机数用rnd函数即可
UC知道是一部内容开放、自由的互动网络百科全书
客观、专业、权威的知识性百科全书
来源:百度知道 编辑:UC知道 时间:2024/05/31 13:16:30
Private Sub Command1_Click()
Dim MYSAPI
Randomize
Text1.Text = Int(Rnd * 9)
Set MYSAPI = CreateObject("Sapi.SpVoice")
MYSAPI.Speak Text1.Text
End Sub
问题太模糊
随机数用rnd函数即可