9个循环2
2016-04-14 17:16
211 查看
Private Sub Command1_Click()
Dim sum As Integer
Dim n As Integer
Dim a(10) As Integer
Randomize
For n = 1 To 10
a(n) = (Rnd * 1000)
sum = sum + a(n)
Next n
Print sum
For n = 1 To 10
Print a(n)
Next n
End Sub
Dim sum As Integer
Dim n As Integer
Dim a(10) As Integer
Randomize
For n = 1 To 10
a(n) = (Rnd * 1000)
sum = sum + a(n)
Next n
Print sum
For n = 1 To 10
Print a(n)
Next n
End Sub
相关文章推荐
- RandomForest随机森林感想
- OA项目实战学习(6)——权限模型设计
- java集合框架07——Map架构与源码分析
- Displaying Graphics with OpenGL ES(一)——构建一个OpenGL ES环境
- TCP/IP详解学习笔记(12)-TCP的超时与重传
- 批量往数据库导入数据遇到的问题总结
- 比较两份文件的异同-beyond compare
- VB作业
- Tableview快速上手(方法注释到位哦)
- 太原网络营销师百度竞价(SEM)账户层级设置如何设置?
- thinkpython2
- 求和
- 易点固定资产管理云平台: “互联网+”下的固定资产管理设想
- 易点固定资产管理云平台: “互联网+”下的固定资产管理设想
- 一位数乘以一位数的计算方法
- 如何在windows下安装Python的PIL库
- Queue、BlockingQueue以及用BlockingQueue实现生产者/消费者模式
- BZOJ2242 [SDOI2011]计算器 题解&代码
- Webview获取html的title信息,webview网络加载进度条,webview返回历史页
- TCP/IP详解学习笔记(11)-TCP交互数据流,成块数据流