我这串代码为什么只有确定，没有是否，是哪里写错了吗？

更新时间2018-06-18 12:44:19

Dim Style,Title,Help,Ctxt,MyString '定义变量

Dim Msg1,Msg2,Msg3   '定义消息文本

Dim Response         '定义返回对象

Dim Msg()

redim Msg(4)

Msg(0)="做我女朋友好吗？"

Msg(1)="房产证上写你名"

Msg(2)="保大"

Msg(3)="我妈会游泳!"

Style=vbYes+vbInformation

Title="小姐姐我要撩你"

for i=0 to 3

    Response=MsgBox(Msg(i),Style,Title)

    If Response=vbYes Then   '用户选择[是].

        Mystring="Yes"    'Perform some action.

        Response=MsgBox("已拿下小姐姐",vbOKOnly,Title)

        exit for

    Else    '用户选择[否].

        Mystring="No"     'Perform some action.

        If i=3 Then

            i=-1

        End If

    End If

Next

估计你自己根本不懂编程，抄了别人的程序而自己不会修改

这么简单的你没看明白

程序中的

Style=vbYes+vbInformation

就是只能显示Yes，改为

Style=vbYesNo+vbInformation

就可以了