vb中关于循环了几次的问题~~~~~~~~~

Question

(19)在窗体上画一个名称为 Text1 的文本框和一个名称为 Commandl 的命令按钮，然后编写如下事件过程：
Private Commandl_Click()
Dim i As Integer, n As Integer
For i=0 To 50
i = i+3
n = n+1
If i>10Then Exit For
Next
Textl.Text=Str(n)
End Sub
程序运行后，单击命命令按钮，在文本框中显示的值是 （ ） 。
A．5
B．4
C．3
D．2

==============================
请写一下思路，谢谢

Answer 1

唉...我给你回答一下吧....不过请先允许我啰嗦一下....

1.出题的人是个严重脑残患者,这段代码开始 Private 后面少个 Sub 不说,就看看这个循环的写法,就是在幻想,因为这种写法在实际应用中根本不可能出现,它根本不符合程序编写规范!在循环体中改变循环变量值是一种很愚蠢的做法,而且可能会出现与设计不符的结果..如果要实现上述代码的功能,正确的写法应该是 For i=3 to 50 step 4 从3开始,步长为4

2.楼上两位的回答全部都错误了,因为你们没考虑到,遇到Next之后,i还加了1

我给出的正确答案如下
第一次循环执行到Next时 i=3,n=1 ,执行Next语句后, i=4,n=1
第二次循环执行到Next时 i=7,n=2 ,执行Next语句后,i=8,n=2
第三次循环执行到If i>10 时 i=11,n=3,跳出循环
所以,最后n的值是3

Answer 2

B 5
控制循环的是i变量，但是在循环变量里面i的值改变了
i=i+3
那么i每次会增加3，就是0,3,6,9,12,15等等
但是后面有个条件，当i大于10就退出循环
所以i循环到第5次就退出循环了，那么n就是5了

Answer 3

Private Sub Command1_Click()

Dim i As Integer, n As Integer
For i = 0 To 50
i = i + 3
n = n + 1
If i > 100 Then Exit For
Next
Text1.Text = Str(n)
End Sub

楼上的也是老残，text1.text 他写成什么了？

Answer 4

A，i=0,3,6,9,12所以是五次