十个随机数求和
2016-06-16 17:40
176 查看
1.
Option Explicit
Private Sub Command1_Click()
Cls
Dim i As Integer, Sum As Integer
Dim a(10) As Integer
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 1000) + 1
Sum = Sum + a(i)
Next i
Print Sum
End Sub
2.
Private Sub Command1_Click()
Cls
Dim a(10) As Integer
Dim x As Integer
x = 1
While x <= 10
a(x) = Int(Rnd * 1000)
x = x + 1
Wend
sum = 0
x = 1
While x <= 10
sum = sum + a(x)
x = x + 1
Wend
Print sum
End Sub
Option Explicit
Private Sub Command1_Click()
Cls
Dim i As Integer, Sum As Integer
Dim a(10) As Integer
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 1000) + 1
Sum = Sum + a(i)
Next i
Print Sum
End Sub
2.
Private Sub Command1_Click()
Cls
Dim a(10) As Integer
Dim x As Integer
x = 1
While x <= 10
a(x) = Int(Rnd * 1000)
x = x + 1
Wend
sum = 0
x = 1
While x <= 10
sum = sum + a(x)
x = x + 1
Wend
Print sum
End Sub
相关文章推荐
- 第三部分 linux busybox最小文件系统的移植
- iOS与HTML5交互方法总结
- 深度探索c++对象模型
- 路由器接口配置与管理——4
- 华为C语言编程规范—程序效率
- 在线预览附件
- n个数乘一个数
- 选择法排序
- [js]面向对象编程
- Zabbix 3.0 监控交换机(4)——温度、风扇监控及配置Trigger
- oh-my-zsh ,“zsh: command not found: adb”
- GIt安装和配置
- LeetCode OJ 347. Top K Frequent Elements hashmap+排序求解
- typedef struct
- sublime2创建一个html5的snippets文件
- 29、JavaScript的event对象和事件冒泡
- 华为C语言编程规范—函数、过程
- Charles破解
- 一位数乘一位数
- Hibernate关联操作、查询操作、高级特性、并发处理机制