随机生成十个数,排顺序
来源:互联网 发布:excel表格数据取整 编辑:程序博客网 时间:2024/05/22 17:14
Option Explicit
Private Sub Command1_Click()
Cls
Dim i As Integer
Dim sum As Integer
Dim a(10) As Integer
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 1000)
sum = sum + a(i)
Next i
Print sum
End Sub
Private Sub Command1_Click()
Cls
Dim i As Integer
Dim sum As Integer
Dim a(10) As Integer
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 1000)
sum = sum + a(i)
Next i
Print sum
End Sub
0 0
- 随机生成十个数,排顺序
- 随机生成十个数
- 随机生成十个数
- 随机生成十个数
- 随机生成十个数并生成最大值
- 随机生成十个不同的数
- 随机生成十个不相同的数
- 随机生成十个不同的数
- 随机生成十个数并选出最大值
- 随机生成十个不同的数
- 随机生成十个不同的数
- 用if随机生成十个数排序
- 随机十个数求和
- 随机十个数求和
- vb随机生成十个数并求出最大值
- 用if语句随机生成十个数,排序
- 随机生成十个整数
- 随机十个数求和2
- java中创建对象的方法(转)
- HDU3231Box Relations
- c++作业 4月10号
- 【Matlab】matlab与matplotlib作图比较
- 我的C++第三次上机作业
- 随机生成十个数,排顺序
- 组织部--EasyUI Combobox中getValue和getText
- Gulp部署
- SVN常用命令
- 看科比特如何成为工业级无人机新标杆
- 深入理解 Android 的 IPC 机制--------Binder
- JNI 开发笔记 - 基本概念
- Caffe FastRCNN installing (recommand reference)
- 四大组件之Service初步