十个随机数求和 一
来源:互联网 发布:popo聊天软件 编辑:程序博客网 时间:2024/05/21 07:50
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
0 0
- 十个随机数求和 一
- 十个随机数求和
- 十个随机数求和
- 十个随机数求和
- 十个随机数的求和
- 十个随机数求和 二
- 十个随机数求和 三
- 十个随机数求和 四
- 十个随机数求和
- 十个随机数求和
- 十个随机数求和 1044 郑明雨
- 随机十个数求和
- 十个随机数字求和
- 十个随机变量的求和
- 随机十个数求和
- 任意十个数求和
- 十个随机数的生成
- 生成十个随机数
- 数据挖掘基本知识框架
- 初识html5基本格式
- 笔试题24. LeetCode OJ (11)
- vs2010删除类
- 判断大端还是小端
- 十个随机数求和 一
- java android找工作面试必备
- 设计模式
- 第二章 Object-c 读书笔记
- 最小花费_ssl2206_dijkstra
- 项目感想
- java开发中的23种模式详解
- 2016Android某公司面试题
- 十个随机数求和 二