作业帮谁能帮我解释一下下面这道题啊!Private Sub Command_Click( ) Dim i,j,x For i=1 to 20,step 2 x=0 For j=i to 20,step 2 x=x+1 Next j Next i Text1.Value=Ste(x)End Sub
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/15 08:16:59
谁能帮我解释一下下面这道题啊!Private Sub Command_Click( ) Dim i,j,x For i=1 to 20,step 2 x=0 For j=i to 20,step 2 x=x+1 Next j Next i Text1.Value=Ste(x)End Sub
谁能帮我解释一下下面这道题啊!
Private Sub Command_Click( )
Dim i,j,x
For i=1 to 20,step 2
x=0
For j=i to 20,step 2
x=x+1
Next j
Next i
Text1.Value=Ste(x)
End Sub
谁能帮我解释一下下面这道题啊!Private Sub Command_Click( ) Dim i,j,x For i=1 to 20,step 2 x=0 For j=i to 20,step 2 x=x+1 Next j Next i Text1.Value=Ste(x)End Sub
标准的考试题,正常开发应该没有这么写的吧.
这是个嵌套循环,外循环(for i)从1开始循环,步长为2,循环结束于19（因为最后时i的值为21,大于20,所以结束于19）
每次循环i的值为
1,3,5,7,9,11,13,15,17,19
内循环(for j)每次以i的值开始循环,步长同样为2,循环同样结束于19(原因同上）
外循环每执行一次,内循环会执行一轮.
外循环每次执行开始时将x的值设为0
内循环每次循环时将x的值加1.
每次循环j及x的值为：
j值：1,3,5,7,9,11,13,15,17,19 x值：1,2,3,4,5,6,7,8,9,10
j值：3,5,7,9,11,13,15,17,19 x值：1,2,3,4,5,6,7,8,9
j值：5,7,9,11,13,15,17,19 x值：1,2,3,4,5,6,7,8
j值：7,9,11,13,15,17,19 x值：1,2,3,4,5,6,7
j值：9,11,13,15,17,19 x值：1,2,3,4,5,6
j值：11,13,15,17,19 x值：1,2,3,4,5
j值：13,15,17,19 x值：1,2,3,4
j值：15,17,19 x值：1,2,3
j值：17,19 x值：1,2
j值：19 x值：1
所以最终Text1.Value = 1
PS:
Text1.Value = Ste(x)这里的Ste应该是Str吧,我不记得vb里有ste这东东,str就是把给定项转换为字符.