10个随机数的和

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 变量