这个算难题,还是我基础太差了?

Question

static r as longif text1.text="33" then
r=r+1
text2.text=r
else
end if每点击一次cmd，text2.text就会增加1个。
我想实现的是，如果连续两次或两次以上等于33，
text3.text=就会记录已经连续几次出现，如果
接下来的数字不等于33，那么text3.text=0

Answer 1

r=0
if text1.text="33" then
  r=r+1
  if r>=2 then
     text2.text=r
  enf if
else
 r=0
 text2.text=r
end if

Answer 2

是这个意思：
static r as long
private sub command1_click()
if text1.text="33" then
r=r+1
text2.text=r
else
text2.text=0
end if               <<第一次输入33后，返回text2.text=1,
                       第二次还是输入33后，返回text2.text=2
                       第三次还是输入33后，返回text2.text=3
                       第四次输入12后，返回text2.text=1
                       第五次输入18后，返回text2.text=1
                       第六次输入18后，返回text2.text=2
                       第七次输入29后，返回text2.text=1
                                     ""
                                     ""
                这样写明白点了吗？