十个随机数字求和
来源:互联网 发布:中邮网络培训学院登录 编辑:程序博客网 时间:2024/05/22 15:54
打开VB软件在工程一中的form1中进行
在工具箱中找到commandbutton在form1中建立command1
在command1中进行编译,双击command1打开编译窗口
在通用中编译
Dim sum As Integer
在command1中编译
第一种:
Private Sub Command1_Click()
sum = 0
For i = 1 To 10
Randomize
a = Int(1000 * Rnd)
sum = sum + a
MsgBox "10个随机数和为:" & sum
Next
Do While i <= 10
Randomize
a = Int(1000 * Rnd)
sum = sum + a
MsgBox "10个随机数和为:" & sum
Loop
End Sub
第二种
Private Sub Command1_Click()
sum = 0
For i = 1 To 10
Randomize
a = Int(1000 * Rnd)
sum = sum + a
i=i+1
Next
MsgBox "10个随机数和为:" & sum
Do While i <= 10
Randomize
a = Int(1000 * Rnd)
sum = sum + a
i = i + 1
Loop
MsgBox "10个随机数和为:" & sum
End Sub
第三种
i = 1
Do Until i > 10
Randomize
a = Int(1000 * Rnd)
sum = sum + a
i = i + 1
Loop
MsgBox "10个随机数和为:" & sum
第四种
i = 1
Do
Randomize
a = Int(1000 * Rnd)
sum = sum + a
i = i + 1
Loop While i <= 10
MsgBox "10个随机数和为:" & sum
i = 1
Do
Randomize
a = Int(1000 * Rnd)
sum = sum + a
i = i + 1
Loop Until i > 10
MsgBox "10个随机数和为:" & sum
End Sub
第五种
Private Sub Command1_Click()
Cls
Dim n As Integer, s As Integer
Dim 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
Dim t As Integer
For Each t In a
s = s + t
Next
Print s
End Sub
注:for each 数组的控件变量是变体
六:
Private Sub Command1_Click()
Cls
Font.Size = 70
Print f(100)
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
在工具箱中找到commandbutton在form1中建立command1
在command1中进行编译,双击command1打开编译窗口
在通用中编译
Dim sum As Integer
Dim i As Integer
Dim a As Integer在command1中编译
第一种:
Private Sub Command1_Click()
sum = 0
For i = 1 To 10
Randomize
a = Int(1000 * Rnd)
sum = sum + a
MsgBox "10个随机数和为:" & sum
Next
Do While i <= 10
Randomize
a = Int(1000 * Rnd)
sum = sum + a
MsgBox "10个随机数和为:" & sum
Loop
End Sub
第二种
Private Sub Command1_Click()
sum = 0
For i = 1 To 10
Randomize
a = Int(1000 * Rnd)
sum = sum + a
i=i+1
Next
MsgBox "10个随机数和为:" & sum
Do While i <= 10
Randomize
a = Int(1000 * Rnd)
sum = sum + a
i = i + 1
Loop
MsgBox "10个随机数和为:" & sum
End Sub
第三种
i = 1
Do Until i > 10
Randomize
a = Int(1000 * Rnd)
sum = sum + a
i = i + 1
Loop
MsgBox "10个随机数和为:" & sum
第四种
i = 1
Do
Randomize
a = Int(1000 * Rnd)
sum = sum + a
i = i + 1
Loop While i <= 10
MsgBox "10个随机数和为:" & sum
i = 1
Do
Randomize
a = Int(1000 * Rnd)
sum = sum + a
i = i + 1
Loop Until i > 10
MsgBox "10个随机数和为:" & sum
End Sub
第五种
Private Sub Command1_Click()
Cls
Dim n As Integer, s As Integer
Dim 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
Dim t As Integer
For Each t In a
s = s + t
Next
Print s
End Sub
注:for each 数组的控件变量是变体
六:
Private Sub Command1_Click()
Cls
Font.Size = 70
Print f(100)
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
更专业的手机邮箱应用,让工作更舒适!
0 0
- 十个随机数字求和
- 随机十个数求和
- 随机十个数求和
- 随机十个数求和2
- 随机十个数求和3
- 随机十个数求和4
- 随机十个数求和5
- 随机十个数求和6
- 随机十个数求和7
- 随机十个数求和8
- 十个随机数字
- 给随机的十个数求和
- 对任意十个数字求和(7)
- 随机选十个0-1000的数并求和
- 随机生成0~9十个数字,十个数字不重复(包含升序,降序)
- 网友提出的问题:随机生成十个数字,不重复。
- 一列数字随机求和等于某数的算法(整理)
- 十个随机数求和
- 一分钟掌握Spring中bean的生命周期!
- 1.煤球
- 研发人员考核与激励学习总结
- 桥接模式《设计模式》
- MySQL免安装版配置方法
- 十个随机数字求和
- java实现排列组合
- 2.生日蜡烛
- zzuoj 10452: "分"数 【dp】
- asp.net web控件数据绑定
- 广告轮播
- C++和JAVA在内存管理上的特点
- mysql sqlserver oracle分页语句
- php保存session