谁能帮我解释一下下面这道题啊!
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/06/28 13:37:29
谁能帮我解释一下下面这道题啊!
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
![谁能帮我解释一下下面这道题啊!](/uploads/image/z/7012051-43-1.jpg?t=%E8%B0%81%E8%83%BD%E5%B8%AE%E6%88%91%E8%A7%A3%E9%87%8A%E4%B8%80%E4%B8%8B%E4%B8%8B%E9%9D%A2%E8%BF%99%E9%81%93%E9%A2%98%E5%95%8A%21)
标准的考试题,正常开发应该没有这么写的吧.
这是个嵌套循环,外循环(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就是把给定项转换为字符.
这是个嵌套循环,外循环(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就是把给定项转换为字符.