十个随机变量的求和

插入按钮图标后输入以下代码

方法一
 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

方法二
 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

方法三
 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

方法四
 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

方法五
 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

方法六
 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

方法七
 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

方法八
 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