vb For循环例子
来源:互联网 发布:php应聘简历 编辑:程序博客网 时间:2024/05/17 02:25
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 '单击事件结束
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 '单击事件结束
- vb For循环例子
- vb的FOR循环
- JAVA-FOR循环例子
- Java for循环例子
- 循环例子-for经典循环例子
- VB.NET中的for循环
- 循环例子-for高级应用
- for循环的简单例子
- for循环的一个例子
- PL/SQL FOR循环例子
- java经典for循环例子
- for循环用于延时例子
- for循环的基本例子
- ASP--VB流程控制,for循环
- VB For 循环语句的用法
- for循环 一个简单的例子
- volatile的一段for循环例子
- 双重for循环的几个例子
- 窗体生命周期所响应的消息
- 同一时间同一帐号只能登陆一
- asp.net控件,
- GridView实现用“...”代替超长字符串
- 搬迁...
- vb For循环例子
- junit3测试spring下的service层
- asp.net 中repeater控件的使用
- ERROR 10004
- 遇上新科海 我不再迷茫
- J2EE框架学习经典总结
- JUnit学习笔记
- 从今天开始,CSDN空间正式实施实名制,请大家尽快填写。
- 使用VMWare+SoftICE的方法总结