编程下标越界number：6怎么改
Dim Msg1,Msg2,Msg3 '定义消息文本 Dim Response '定义返回对象 Dim Msg() redim Msg(5) Msg(0) = "我想你一定没有时间，所以只用看前三个字就好了。" Msg(1) = "最近有谣言说我喜欢你，我要澄清一下，这是真的" Msg(2) = "我想环游世界，而你就是我的世界，围着你就好" Msg(3) = "你什么时候有空，有空的时候嫁给我！" Msg(4) = "我越过十二万公里.越过昼夜与星辰.越过硝烟与战火.你在哪里 我去见你" Msg(5) = "人间烟火，山河远阔，无一是你，无一不是你。" Msg(6) = "大概喜欢你就是 早上想你 中午想你 晚上想你 梦里还要遇见你 马不停蹄 生生不息的去见你" Msg(7) = "如果你来了，春天就不用来了" Msg(8) = "你是我无药可医的顽疾，注定沦陷的宿命" Msg(9) = "你用半生踏遍山川湖海 自诩赏尽天下良辰美景 也没曾想过在你身后 你的身影投在我眼眸里是宇宙" Msg(10) = "我对你，如鲸向海，如鸟投林，不可避免，退无可退" Style = vbYesNo + vbInformation Title = "做我女朋友好吗" for i=0 to 4 Response = MsgBox(Msg(i), Style, Title) If Response = vbYes Then ' 用户选择[好]. MyString = "Yes" ' Preform some action. Response = MsgBox("我就知道你会同意的，哈哈！",vbOKOnly ,Title) exit for Else ' 用户选择[不好], MyStrig = "No" ' Perform some action. If i =4 Then i=-1 End If End If Next
你的
redim Msg(5)
只定义了0~5，6个数组
而你使用时，却用了
Msg(6) = "大概喜欢你就是 。。。。
Msg(7) =。。。。
Msg(8) = 。。。。
。。。。
Msg(10)=。。。
当然不对
就这个错而言，改
redim Msg(5)
为
redim Msg(10)
就可以了（其它的未测试）
下一篇：给背影的每一段拟一个标题
上一篇：如何在新建文件夹中拖动排序