十个随机数求和
来源:互联网 发布:中国煤炭网软件下载 编辑:程序博客网 时间:2024/06/05 20:30
Private Sub Command1_Click()
Cls
Dim n As Integer, s As Integer, a(10) As Integer
n = 1
While n <= 10
a(n) = Int(Rnd * 1000)
n = n + 1
Wend
n = 1
While n <= 10
Print a(n)
n = n + 1
Wend
s = 0
n = 1
While n <= 10
s = s + a(n)
n = n + 1
Wend
Print “和为”; s
End Sub
2
Dim i As Integer, a As Integer, sum As Integer
Private Sub Command1_Click()
Cls
sum = 0
For i = 1 To 10 Step 1
Randomize
a = Int(Rnd * 1000)
sum = sum + a
Next
Print “和为” & sum
End Sub
3
Private Sub Command1_Click()
Cls
Dim n As Integer, sum As Integer, a(10) As Integer
n = 1
While n <= 10
a(n) = Int(Rnd * 1000)
n = n + 1
Wend
For Each t In a
s = s + t
Next
Print s
End Sub
4
Private Sub Command1_Click()
Cls
Dim i As Integer, a As Integer, sum As Integer
i = 1
Do While i <= 10
Randomize
a = Int(Rnd * 1000)
sum = sum + a
i = i + 1
Loop
Print “和为” & sum
End Sub
5
Private Sub Command1_Click()
Cls
Dim i As Integer, a As Integer, sum As Integer
i = 1
Do Until i > 10
Randomize
a = Int(Rnd * 1000)
sum = sum + a
i = i + 1
Loop
Print “和为” & sum
End Sub
6
Private Sub Command1_Click()
Cls
Dim i As Integer, a As Integer, sum As Integer
i = 1
Do
Randomize
a = Int(Rnd * 1000)
sum = sum + a
i = i + 1
Loop While i <= 10
Print “和为” & sum
End Sub
7
Private Sub Command1_Click()
Cls
Dim i As Integer, a As Integer, sum As Integer
i = 1
Do
Randomize
a = Int(Rnd * 1000)
sum = sum + a
i = i + 1
Loop Until i > 10
Print “和为” & sum
End Sub
8
Private Sub Command1_Click()
Cls
Print f(10)
End Sub
Private Function f(x As Integer) As Long
If x = 1 Then
f = x
Else
f = x + f(x - 1)
End If
End Function
最后一个不会
- 十个随机数求和
- 十个随机数求和
- 十个随机数求和
- 十个随机数的求和
- 十个随机数求和 一
- 十个随机数求和 二
- 十个随机数求和 三
- 十个随机数求和 四
- 十个随机数求和
- 十个随机数求和
- 十个随机数求和 1044 郑明雨
- 随机十个数求和
- 十个随机数字求和
- 十个随机变量的求和
- 随机十个数求和
- 任意十个数求和
- 十个随机数的生成
- 生成十个随机数
- java中equals()与hashCode()的学习
- 分布式数据库资料
- 【tune2fs】调整文件系统的相关属性
- 搜索题目列表
- 面试相关
- 十个随机数求和
- Mercurial使用笔记(4)
- 【watch】周期性的执行指定命令,并以全屏方式显示结果
- 进程、线程和协程的理解
- 横竖屏切换时候Activity的生命周期的总结
- 《Java程序设计基础教程》第19讲 JavaGUI编程高级
- 1
- 数位DP 浅谈(hihocoder 1033:交错和)
- 三个静态页面练习总结