9个循环6
来源:互联网 发布:软件售前方案 编辑:程序博客网 时间:2024/05/01 09:30
Dim n As Integer
Dim a(10) As Integer
Dim sum As Integer
Private Sub Command1_Click()
sum = 0
n = 1
Do Until n > 10
Randomize
a(n) = Int(Rnd * 1000)
sum = sum + a(n)
n = n + 1
Loop
Print sum
End Sub
Dim a(10) As Integer
Dim sum As Integer
Private Sub Command1_Click()
sum = 0
n = 1
Do Until n > 10
Randomize
a(n) = Int(Rnd * 1000)
sum = sum + a(n)
n = n + 1
Loop
Print sum
End Sub
0 0
- 9个循环6
- 9个循环9
- 9个循环1
- 9个循环2
- 9个循环8
- 9个循环7
- 9个循环1
- 9个循环2
- 9个循环3
- 9个循环4
- 9个循环5
- 多个程序循环
- 发个循环星
- 第八个循环
- 3个while循环
- 写了个循环队列
- 循环输出80个星星
- 循环添加100个联系人
- Android技术博文汇总
- vb
- 用来跟踪保存数据库更改的gem包paper_trail
- Xamarin.iOS - Handing Keyboard
- iOS陆哥开发笔记(九) (SDWebImage简单使用)
- 9个循环6
- java map .put 方法
- n个随机数的排列
- 关于Navicat的动态生成SQL语句
- 80端口一直被占用,导致resin或者tomcat运行不了
- C# get
- Longest Consecutive Sequence
- 不需要继承实现模板模式
- 十的阶乘