VB循环语句解释
不知有谁能够详细的解释一下这个意思啊。谢谢了。
内容如下：
Private Sub Form_Click()
Dim i, n, sum As Integer
For i = 1 To 5
For n = 1 To 100
sum = sum + n
Next n
sum = sum + i
Next i
Print sum
End Sub
还有一个和它差不多了，如下：
Private Sub Form_Click()
Dim i, n, sum As Integer
For i = 1 To 5
For n = 1 To 100
sum = sum + n
Next n
sum = sum + i
If sum ＞ 10000 Then Exit For
Next i
Print sum
End Sub
谢谢各位了，最好解释很清楚，虽然，那些格式我知道一些，不过，具体情况具体分析，我实在有点头疼了，请大家帮帮忙了。
全部回答
Private Sub Form_Click() 'FORM的单击事件
Dim i, n, sum As Integer '声明i,n,sum三个整型变量,默认值0
For i = 1 To 5 '外层FOR循环,i从1到5
For n = 1 To 100 '内层FOR循环,n从1到100
sum = sum + n 'sum变量累加n值
Next n 'FOR循环下一个n值
sum = sum + i '外层循环中,sum继续累加i值
Next i '外层循环下一个i值
Print sum '打印sum值,值为25265
End Sub '单击事件结束
Private Sub Form_Click() 'FORM的单击事件
Dim i, n, sum As Integer '声明i,n,sum三个整型变量,默认值0
For i = 1 To 5 '外层FOR循环,i从1到5
For n = 1 To 100 '内层FOR循环,n从1到100
sum = sum + n 'sum变量累加n值
Next n 'FOR循环下一个n值
sum = sum + i '外层循环中,sum继续累加i值
If sum > 10000 Then Exit For '判断sum值,如果大于10000,则退出循环
Next i '外层循环下一个i值
Print sum '打印sum值,值为10103
End Sub '单击事件结束
。
。
。
Private Sub Form_Click()
Dim i, n, sum As Integer
For i = 1 To 5
For n = 1 To 100
sum = sum + n
Next n
sum = sum + i
Next i
Print sum
End Sub
n=(1+2+。
。。+100)*5+(1+2+3+4+5) Private Sub Form_Click() Dim i, n, sum As Integer For i = 1 To 5 For n = 1 To 100 sum = sum + n Next n sum = sum + i If sum > 10000 Then Exit For Next i Print sum End Sub (1+2+。
。。+100)+1+(1+2+。。。+100)+2 这时判断sum>10000，结束for语句，输出sum。
。。+100)*5+(1+2+3+4+5) Private Sub Form_Click() Dim i, n, sum As Integer For i = 1 To 5 For n = 1 To 100 sum = sum + n Next n sum = sum + i If sum > 10000 Then Exit For Next i Print sum End Sub (1+2+。
。。+100)+1+(1+2+。。。+100)+2 这时判断sum>10000，结束for语句，输出sum。
类似问题换一批
热点推荐
热度TOP
-
妻子不怀孕岳母教我每天给妻子按摩这有用吗？
203人阅读
-
身上痒痒预示10种大病是哪些啊
38人阅读
-
南通文峰妇科坑人？
30人阅读
-
做爱后阴道出血是怎么回事？
41人阅读
-
-
大岭山男科哪里看的好
0人阅读
相关推荐
加载中...