vb For循环例子

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 '单击事件结束