十个随机变量的求和

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

方法一

 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