你可以参考以下VBS的教程:
http://www.runoob.com/vbscript/vbscript-variables.html开始我是抄你的,后面改了下,你参考下,解决了越界的问题:
Dim Msg1,Msg2,Msg3
Dim Response
Dim Msg(4)
Msg(0)="做我女朋友,好吗?"
Msg(1)="房产证写你名!"
Msg(2)="保大!"
Msg(3)="我妈会游泳!"
Style=vbYesNo+vbInformation
Title="小姐姐我要撩你"
for i = 1 to 4
Response=MsgBox(Msg(i-1),Style,Title)
If Response=vbYES Then
MyString="YES"
Response=MsgBox("3号目标已拿下",vbOKOnly,Title)
exit for
Else
MyString="NO"
If i = 4 Then
i = 1
End If
End If
Next