十个随机数字

来源：互联网发布：手机js文件怎么打开编辑：程序博客网时间：2024/06/07 22:17

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

六：

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