Question

问个按键精灵关于数组的问题

以下脚本怎么不是我要的结果啊？
dim MyRzStr,RzStr()
RzStr(1) = "身轻担重轻挑重,脚短路长短走长"
RzStr(2) = "鸡蛋无盐真淡蛋,猪肠未切好长肠"
RzStr(3) = "新年纳余庆，嘉节号长春"
RzStr(4) = "搅碎月影蠢柳枝，穿破苔痕恶笋芽"
RzStr(5) = "歪诗抛满天山北，蹇驴行遍大江南"
RzStr(6) = "短衣射虎真堪乐，长竿钓鳖最忘忧"
RzStr(7) = "仙子有待乘黄鹤，海客无心随白鸥"
RzStr(8) = "门前学种抚生柳，路旁时卖故侯瓜"
RzStr(9) = "轻薄今世千夫指，粪土当年万户侯"
RzStr(10) = "鹦鹉前头休多语，小人身边须慎行"
RzStr(11) = "炭墨火红灰似雪，谷黄米白饭如霜"
RzStr(12) = "移椅倚楼同观月，点灯登阁各攻书"
RzStr(13) = "握蛇骑虎安乐业，舞文弄墨殃祸根"
RzStr(14) = "家事每同国事办，小臣更比大臣劳"
RzStr(15) = "塞鸿飞急觉犹尽，蹇驴步缓怨路长"
RzStr(16) = "犬卧阶眠知地湿，鸟临窗语报天晴"
RzStr(17) = "柳外雕鞍游子醉，花边纨扇丽人行"
RzStr(18) = "松叶竹叶叶叶翠，秋声雁声声声寒"
RzStr(19) = "无若有情天亦老，月如无恨月长圆"
RzStr(20) = "书生惊驭无鞍马，将军羞吟多情诗"
Randomize
MyRzStr = "RzStr("&Int((20 * Rnd) + 1)&")"
MessageBox MyRzStr

Answer 1

RzStr(1) = "身轻担重轻挑重,脚短路长短走长"
RzStr(2) = "鸡蛋无盐真淡蛋,猪肠未切好长肠"
RzStr(3) = "新年纳余庆，嘉节号长春"
RzStr(4) = "搅碎月影蠢柳枝，穿破苔痕恶笋芽"
RzStr(5) = "歪诗抛满天山北，蹇驴行遍大江南"
RzStr(6) = "短衣射虎真堪乐，长竿钓鳖最忘忧"
RzStr(7) = "仙子有待乘黄鹤，海客无心随白鸥"
RzStr(8) = "门前学种抚生柳，路旁时卖故侯瓜"
RzStr(9) = "轻薄今世千夫指，粪土当年万户侯"
RzStr(10) = "鹦鹉前头休多语，小人身边须慎行"
RzStr(11) = "炭墨火红灰似雪，谷黄米白饭如霜"
RzStr(12) = "移椅倚楼同观月，点灯登阁各攻书"
RzStr(13) = "握蛇骑虎安乐业，舞文弄墨殃祸根"
RzStr(14) = "家事每同国事办，小臣更比大臣劳"
RzStr(15) = "塞鸿飞急觉犹尽，蹇驴步缓怨路长"
RzStr(16) = "犬卧阶眠知地湿，鸟临窗语报天晴"
RzStr(17) = "柳外雕鞍游子醉，花边纨扇丽人行"
RzStr(18) = "松叶竹叶叶叶翠，秋声雁声声声寒"
RzStr(19) = "无若有情天亦老，月如无恨月长圆"
RzStr(20) = "书生惊驭无鞍马，将军羞吟多情诗"
Randomize
MyRzStr = "RzStr("&Int((20 * Rnd) + 1)&")"