请问一个按钮问题

Question

我想让一个按钮实现3个功能
按第一下时，弹出1
按第二下时，弹出2
按第三下时，弹出3
第四下又循环开始，请问代码怎么编的。我两下时就知道怎么编，设置一个flag字符，三个就不清楚了，请高手们帮帮忙，谢谢！

Answer 1

private intSum as integerprivate sub cmdStart_Click()
{
    intSum = intSum + 1
    if intSum = 1 then
        msgbox "1"
    else if intSum = 2 then
        msgbox "2"
    else if intSum = 3 then
        msgbox "3"
    else if intSum = 4 then
        do while 1
            doevents
        loop
}

Answer 2

这么简单我觉得你自己想想动动手,相信实践出真理不好意思最近老用C竟然写了"{}"private   intSum   as   integer private   sub   cmdStart_Click()         intSum   =   intSum   +   1 
        if   intSum   =   1   then 
                msgbox   "1 " 
        else   if   intSum   =   2   then 
                msgbox   "2 " 
        else   if   intSum   =   3   then 
                msgbox   "3 " 
        else   if   intSum   =   4   then 
                do   while   1 
                        doevents 
                loop 
end sub

Answer 3

DIM I AS LONG
PRIVATE SUB COMMAND1_CLICK()
I=I+1
I=I MOD 3
MSGBOX "I=" & I+1
END SUB

Answer 4

楼上为何要用到循环和DOEVENTS,思路比较特异，没看明白意思

Answer 5

private       intSum       as       integer intsum=0  
private       sub       cmdStart_Click()   
                intSum       =       intSum       +       1 
                if       intSum       =       1       then   
                                msgbox       "1   "   
                elseif       intSum       =       2       then   
                                msgbox       "2   "   
                elseif       intSum       =       3       then   
                                msgbox       "3   "
                                intsum = 1
                end if
end   sub

Answer 6

粗心了。。private       intSum       as       integer intsum=0  
private       sub       cmdStart_Click()   
                intSum       =       intSum       +       1 
                if       intSum       =       1       then   
                                msgbox       "1   "   
                elseif       intSum       =       2       then   
                                msgbox       "2   "   
                elseif       intSum       =       3       then   
                                msgbox       "3   "
                                intsum = 0
                end if
end   sub