作业3
2016-04-14 16:35
337 查看
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
End Sub
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
End Sub
相关文章推荐
- FOJ Problem 2221 RunningMan
- EditView的监听者TextWatcher
- python常用的一些东西——sys、os等
- androd欢迎页播放视频和广告页面
- 10的阶乘
- 淘宝封装的一款ui 非常不错
- 关于委托,事件和类的设计准则
- 一个flag
- 10个随机数的和
- 【JS】:JS实现页面的刷新,后退和前进
- ASP.NET自定义控件开发示例(一)
- 【LeetCode】96. Unique Binary Search Trees 解法及注释
- <css 十五>尺寸设置
- 九种求和方法
- C#开发微信门户及应用(32)--微信支付接入和API封装使用
- js最新手机号码、电话号码正则表达式
- MySQL入门很简单: 4 创建 修改删除表
- 转]解析C语言中的sizeof
- ftp服务器简单配置
- ANT 、Junit、JunitReport、Spring、MyBatis