十个随机数求和 1044 郑明雨
来源:互联网 发布:杜兰特新秀体测数据 编辑:程序博客网 时间:2024/06/05 04:11
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
0 0
- 十个随机数求和 1044 郑明雨
- 十个随机数求和
- 十个随机数求和
- 十个随机数求和
- 十个随机数的求和
- 十个随机数求和 一
- 十个随机数求和 二
- 十个随机数求和 三
- 十个随机数求和 四
- 十个随机数求和
- 十个随机数求和
- 随机十个数求和
- 十个随机数字求和
- 十个随机变量的求和
- 随机十个数求和
- 任意十个数求和
- 十个随机数的生成
- 生成十个随机数
- 腾讯2016春季校园实习招聘技术岗终面(HR面)问题汇总(CC++后台)
- AngularJS_3 Form
- 数据结构与算法汇总(持续更新中)
- 一位数 * 一位数
- 【PHP-Laravel框架学习】在ubuntu上配置环境
- 十个随机数求和 1044 郑明雨
- 用闹钟运算
- CAlayer层的属性
- Git版本控制软件结合GitHub从入门到精通常用命令学习手册
- hihocoder 1288
- iOS 语音读文字so easy
- iOS QQ第三方登录的简单实现
- 余数和商 一位数乘一位数
- android抽屉实现