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

来源:百度知道 编辑:UC知道 时间:2024/06/10 02:16:38
以下脚本怎么不是我要的结果啊?
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)&&qu

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)&")"