求问高手 FOR NEXT 嵌套循环 题目

private sub form_click()
text1.text="" 先把text1清空
text1.setfocus
x=val(text1.text) 把text1的赋值给x
for i =0 to 1 i从0到1循环两次
x=x+1 先把X加1再去循环J
for j =0 to 3 j从0-3循环三次，i循环一次它就循环三次
if not (j mod 2) then x =x+1
next j
next i
text1.text=str(x)
end sub

当i=0时，j从0到3循环三次，然后再返回上面for i =0 to 1 当i=1,j再从0-3，再返回for i =0 to 1,已经不符合要求，执行text1.text=str(x) 把x赋值给text1显示

楼上有两个解了，三个再看不懂真的没话说了，加油好好学

....这是啥题目?
private sub form_click() '当form按下的的时候执行里面内容, 就是下面的内容
text1.text="" '设置TEXT1控件text内容为空
text1.setfocus 'setfocus 控件的交点,是这样用么?还真不知道
x=val(text1.text)'给X赋值, val(text1.text)方法 是返回text1.text里面的数值
for i =0 to 1 '循环开始 i从0开始循环到1,循环一次I+1
x=x+1 '这个就不用说了吧
for j =0 to 3 '循环 j从0开始 循环到3和 上面的i一样
if not (j mod 2) then x =x+1' 如果 不是 j整除2 则执行 x=x+1
next j '循环下一次
next i '循环下一次
text1.text=str(x) '将X的