Question

按键精灵随即输入指定组内文字 高手请进

运行应该是这样：
可随机选择文字如下 一行是一个词

----------
美丽的的
时代复分
的覆盖的法
时的覆盖
我而改变
-----------
问题是如何随机从这5个词里选择1个输入到所选位置呢？
请高手指教
看过了 但不是我想要的。
我的意思是，例如在桌面建立一个TXT文档，打开之后，然后运行脚本，运行一次就随机输入一个。

Answer 1

dim a(6)
a(1)="美丽的的"
a(2)="时代复分"
a(3)="的覆盖的法"
a(4)="时的覆盖"
a(5)="我而改变"
Randomize
i=int((5-1+1)*rnd+1)
msgbox i&"-"&a(i)

Answer 2

Dim strMessage, lngUBound, lngIndex
strMessage = "美丽的的*时代复分*的覆盖的法*时的覆盖*我而改变"
astrArray = Split(strMessage, "*", -1, 1)
lngUBound = UBound(astrArray)
Randomize
lngIndex = Round(lngUBound * Rnd)
SayString astrArray(lngIndex)