十个随机数求和 一
2016-04-14 16:49
337 查看
Private Sub Command1_Click()
sum = 0
For i = 1 To 10
Randomize
a = Int(1000 * Rnd)
sum = sum + a
MsgBox "10个随机数和为:" & sum
Next
Do While i <= 10
Randomize
a = Int(1000 * Rnd)
sum = sum + a
MsgBox "10个随机数和为:" & sum
Loop
End Sub
sum = 0
For i = 1 To 10
Randomize
a = Int(1000 * Rnd)
sum = sum + a
MsgBox "10个随机数和为:" & sum
Next
Do While i <= 10
Randomize
a = Int(1000 * Rnd)
sum = sum + a
MsgBox "10个随机数和为:" & sum
Loop
End Sub
相关文章推荐
- ansible经常使用模块使用方法
- 2016.4.14
- thinkphp3.2.3之自动完成的实现
- C# Socket SSL通讯笔记
- poj 3404&&poj1700(贪心)
- GDI绘图中的映射模式CDC::SetMapMode()
- 用反射通过构造函数给窗体传参
- vs2010删除类
- 初识html5基本格式
- ubuntu14.04在忘记密码的情况下,重设密码
- 模仿音乐播放器项目
- 安卓006单元测试
- Leetcode no. 52
- Ubuntu Server 13.10安装配置图解教程
- 对每个边缘求最小外接矩形,通过最小矩形提取每个边缘
- 操作系统——进程与线程笔记
- 快速排序 和 希尔排序
- Jackson学习笔记(一)
- 运维通用python脚本框架
- plupload使用指南(转)