用while随机求十个数的和
来源:互联网 发布:最基本的网络通信协议 编辑:程序博客网 时间:2024/05/18 00:25
Private Sub Command1_Click()
Cls
Dim n As Integer
Dim a(10) As Integer
n = 1
While n <= 10
a(n) = Int(Rnd * 1000)
Print a(n)
n = n + 1
Wend
Dim sum As Integer
s = 0
n = 1
While n <= 10
sum = sum + a(n)
n = n + 1
Wend
Print sum
End Sub
0 0
- 用while语句求随机十个数个的和
- 用while随机求十个数的和
- do-while随机求十个数的和
- 用do-until语句求随机十个数的和
- do-until随机求十个数的和
- 计算随机十个数的和
- 用do-while语句求随机是个数的和
- 随机十个数的和 九种方法
- 利用全局变量求十个数的最大值和最小值
- 随机生成十个不同的数
- 随机生成十个不相同的数
- 随机生成十个不同的数
- 随机生成十个不同的数
- 随机生成十个不同的数
- 给随机的十个数求和
- 求十个数中最大的数
- 输入十个数求十个数的平均数
- 用if随机生成十个数排序
- HDU 2946 Letter Cookies
- HDU 1864最大报销额
- HDU 1231最大连续子序列
- 常见面试之机器学习算法思想简单梳理
- HDU 1003Max Sum
- 用while随机求十个数的和
- HDU 1506Largest Rectangle in a Histogram
- UVA 11991Easy Problem from Rujia Liu?
- solr添加IKAnalyzer分词器
- UVA 11995I Can Guess the Data Structure!
- LA 3135 - Argus
- 栈,队列,优先队列的使用
- 链队列的综合操作(详解、演示)C语言实现
- Redis主从备份以及key的过期时间配置