十个随机数求和
来源:互联网 发布:ubuntu etc rc.local 编辑:程序博客网 时间:2024/05/18 00:40
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 郑明雨
- 随机十个数求和
- 十个随机数字求和
- 十个随机变量的求和
- 随机十个数求和
- 任意十个数求和
- 十个随机数的生成
- 生成十个随机数
- U3D结合第三方库ICSharpCode.SharpZipLib 实现文件夹打包解包
- oh-my-zsh ,“zsh: command not found: adb”
- 个人信息的输入
- 深度探索c++对象模型
- android权限机制,你真的了解么
- 十个随机数求和
- 压测工具stress
- 对于随机数ab的比较
- POI数据导入Excel
- pycurl 分块下载
- python格式化输出 学习学习
- 基于 Token 的身份验证
- 华为C语言编程规范—质量保证
- OpenGL ES渲染YUV图像