10个随机数和

5：

Private Sub Command1_Click()

sum = 0

n = 1

Do Until n > 10

Randomize

a(n) = Int(Rnd * 1000)

sum = sum + a(n)

n = n + 1

Loop

Print sum

End Sub

6：

Private Sub Command1_Click()

sum = 0

n = 1

Do

Randomize

a(n) = Int(Rnd * 1000)

sum = sum + a(n)

n = n + 1

Loop Until n > 10

Print sum

End Sub

 

 

Dim n As Integer

Dim a(10) As Integer

Dim sum As Integer

7：

Private Sub Command1_Click()

Me.FontSize = 55

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

 

8：

Dim n As Integer

Dim a(10) As Integer

Dim sum As Integer

 

Private Sub Command1_Click()

sum = 0

n = 1

Do

Randomize

a(n) = Int(Rnd * 1000)

sum = sum + a(n)

n = n + 1

Loop While n <= 10

Print sum

End Sub