Question

VB中for next循环

谁帮忙解释下这道题，谢谢！
在窗体上画一个命令按钮和两个标签，真名和分别为 Commandl 、 Labell 和 Labe12 ，然后编写如下事件过程：
Private Sub Commandl_Chick.
a = 0
For i=1 To 10
a=a+1
b=0
Forj=1 To 10
a=a+1
b=b+2
Nextj
Next i
Labell.Caption=Str(a)
Labe12.Caption=Str(b)
End Sub
程序运行后，单击命令按钮，在标签 Labell 和 Labe12 中显示的内容分别为 （ D ） 。
A．10 和 20
B．20 和 110
C．200 和 110
D．110 和 20

Answer 1

MyPrettyLife错了，我告诉大家正确的答案：什么都不会发生
首先，lz的语法是错误的，Sub名后面必须有()而不是.
其次，你的过程叫做“Command1_Chick”，但是单击Command1所执行的Sub名是“Command1_Click”，明显地，单击Command1之后什么也不会发生
第三For j=1 To 10写成Forj=1 To 10(连写)，这是错误的，Next j也是，编译器不会通过的！
综上，这个问题答案应该是“ABCD都不是”。

Answer 2

a：i=1, j=10时，a=0+1+1*10=11; i=2, j=10时，a=11+1+1*10=22 ...
即i每增加1，a就增加11，所以a=0+11*10=110

b：i=1, j=10时，b=0+2*10=20; i=2, j=10时，b=0+2*10=20 ...
即i每次变化时都会先使b=0, 然后j循环10次，每次使b增加2。所以b=0+2*10=20

Answer 3

a=1
b=0
a=2
b=2
a=3
b=4
a=4
b=6
a=5
b=8
a=6
b=10
a=7
b=12
a=8
b=14
a=9
b=16
a=10
b=18
a=11
b=20
a=12
b=0
a=13
b=2
a=14
b=4
a=15
b=6
a=16
b=8
a=17
b=10
a=18
b=12
a=19
b=14
a=20
b=16
a=21
b=18
a=22
b=20
a=23
b=0
a=24
b=2
a=25
b=4
a=26
b=6
a=27
b=8
a=28
b=10
a=29
b=12
a=30
b=14
a=31
b=16
a=32
b=18
a=33
b=20
a=34
b=0
a=35
b=2
a=36
b=4
a=37
b=6
a=38
b=8
a=39
b=10
a=40
b=12
a=41
b=14
a=42
b=16
a=43
b=18
a=44
b=20
a=45
b=0
a=46
b=2
a=47
b=4
a=48
b=6
a=49
b=8
a=50
b=10
a=51
b=12
a=52
b=14
a=53
b=16
a=54
b=18
a=55
b=20
a=56
b=0
a=57
b=2
a=58
b=4
a=59
b=6
a=60
b=8
a=61
b=10
a=62
b=12
a=63
b=14
a=64
b=16
a=65
b=18
a=66
b=20
a=67
b=0
a=68
b=2
a=69
b=4
a=70
b=6
a=71
b=8
a=72
b=10
a=73
b=12
a=74
b=14
a=75
b=16
a=76
b=18
a=77
b=20
a=78
b=0
a=79
b=2
a=80
b=4
a=81
b=6
a=82
b=8
a=83
b=10
a=84
b=12
a=85
b=14
a=86
b=16
a=87
b=18
a=88
b=20
a=89
b=0
a=90
b=2
a=91
b=4
a=92
b=6
a=93
b=8
a=94
b=10
a=95
b=12
a=96
b=14
a=97
b=16
a=98
b=18
a=99
b=20
a=100
b=0
a=101
b=2
a=102
b=4
a=103
b=6
a=104
b=8
a=105
b=10
a=106
b=12
a=107
b=14
a=108
b=16
a=109
b=18
a=110
b=20
程序：
Dim a, b

Private Sub Command1_Click()
a = 0: b = 0
For i = 1 To 10
a = a + 1
Text1.Text = Text1.Text & vbCrLf & "a=" & a
b = 0
Text1.Text = Text1.Text & vbCrLf & "b=" & b
For j = 1 To 10
a = a + 1
Text1.Text = Text1.Text & vbCrLf & "a=" & a
b = b + 2
Text1.Text = Text1.Text & vbCrLf & "b=" & b
Next j
Next i
Label1.Caption = Str(a)
Label2.Caption = Str(b)
End Sub

另：改错后：
【Dim a, b】

Private Sub Command1_【Click】【()】
a = 0: b = 0
For i = 1 To 10
a = a + 1
b = 0
For【 j】 = 1 To 10
a = a + 1
b = b + 2
Next【 】j
Next i
Label1.Caption = Str(a)
Label2.Caption = Str(b)
End Sub

Answer 4

楼主想问什么？