按键精灵写一段代码，想把：你好，对不起，谢谢，再见，不客气，没关系，随机其中一个词组，输入到输入框

Question

按键精灵写一段代码，想把：你好，对不起，谢谢，再见，不客气，没关系，随机其中一个词组，输入到输入框中，然后继续执行下面的代码，请教如何写？最好能将这个随机，做成子程序

Answer 1

//功能函数
Function MyText()
Texts = "你好|对不起|谢谢|再见|不客气|没关系"
Text = Split(Texts, "|")
Randomize
Number = Int((UBound(Text) + 1) * Rnd)
MyText = Text(Number)
End Function

//下面举例说明调用方法
While True
a = MyText() //a的内容就是上面Texts里面随机一句
MessageBox a //具体用在哪你自己写代码，这里我以弹出对话框为例
Wend追问

实测，改成输出到文档文本中，可行，但无法实现多次调用。可能是表达有误，我的意思是，像子程序那样，可随时使用call调用，且每次出现的词语不同，当输入一个随机词语结束后，并继续执行后面的代码，非常感谢您的回答

连续多次saystring，并加入初始化随机数，结果在文本文档中多次输入同一个词

追答

你自己想输入多少次就调用多少次，是你自己不理解代码，你有没有调试我调用的例子，我那个是无限循环，对话框会一直弹出来，你自己搞不懂就别说人家代码不行。写这些子程序和函数我都弄了很多了。