Private Sub Command1_Click()
Cls
Dim i As Integer
Dim x(10) As Integer
Dim sun As Integer
Randomize
For i = 1 To 10
x(i) = Int(1000 * Rnd)
Sum = Sum + x(i)
Next i
Print Sum
End Sub
for 这种方法, 不用i i=i+1, 更简便。
方法二
Private Sub Command1_Click()
Cls
Dim i As Integer
Dim a As Integer
Dim sum As Integer
Randomize
For i = 1 To 10
a = Int(1000 * Rnd)
sum = sum + a
MsgBox " 10个随机数的和是 " & sum
Next
End Sub
这两种方法类似, 但是方法二 要点击10次才能出现最后的结果
方法三
Private Sub Command1_Click()
Cls
Dim s As Integer
Dim n As Integer
Dim x(10) As Integer
n = 1
While n <= 10
x(n) = Int(1000 * Rnd)
n = n + 1
Wend
n = 1
While n <= 10
Print x(n)
n = n + 1
Wend
n = 1
While n <= 10
s = s + x(n)
n = n + 1
Print s
Wend
End Sub
这样的好处:显示每一个随机数,还有 随机数的和。方法和 15个数字的大小排列类似。
方法四
Private Sub Command1_Click()
Cls
Dim i As Integer
Dim a As Integer
Dim sum As Integer
Do While i <= 10
Randomize
a = Int(1000 * Rnd)
sum = sum + a
i = i + 1
MsgBox " 10个随机数的和是 " & sum
Loop
End Sub
方法五
Private Sub Command1_Click()
Cls
Dim i As Integer
Dim a As Integer
Dim sum As Integer
Do
Randomize
a = Int(1000 * Rnd)
sum = sum + a
i = i + 1
MsgBox " 10个随机数的和是 " & sum
Loop While i <= 10
End Sub
方法六
Private Sub Command1_Click()
Cls
Dim i As Integer
Dim a As Integer
Dim sum As Integer
Do Until i > 10
Randomize
a = Int(1000 * Rnd)
sum = sum + a
i = i + 1
MsgBox " 10个随机数的和是 " & sum
Loop
End Sub
方法七
Private Sub Command1_Click()
Cls
Dim i As Integer
Dim a As Integer
Dim sum As Integer
Do
Randomize
a = Int(1000 * Rnd)
sum = sum + a
i = i + 1
MsgBox " 10个随机数的和是 " & sum
Loop Until i > 10
End Sub
方法 四五六七的 区别 : 在运算顺序有所不同。
方法八
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
它显示的是 1到10的和
方法九
Private Sub Command1_Click()
Cls
Dim s As Integer
Dim n As Integer
Dim x(10) As Integer
n = 1
While n <= 10
x(n) = Int(1000 * Rnd)
n = n + 1
Wend
n = 1
While n <= 10
Print x(n)
n = n + 1
Wend
s = 0
n = 1
Dim t
For Each t In x
s = s + t
Next
Print s
End Sub
利用t 变量