随机十个数的和 九种方法

九种方法随机十个数的和   

   (第1种)                      

Private Sub Command1_Click()

Dim i As Integer

Dim a(10) As Integer

Randdomize

For i =1 To 10

a(i) =Int(Rnd 8 1000)  + 1

Sum =Sum +a(I)

next  i

Print Sum

End Sub

                    (第2种)                       

Private Sub Command1_Click()

Dim n 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

 

Sum = 0

n = 1

While n <= 10

Sum = Sum + a(n)

n = n + 1

Wend

 

Print Sum

End Sub

 

 

       (第3种)

 

Private Sub Command1_Click()

Dim sum As Integer

Dim n As Integer

Dim a(10) As Integer

Randomize

For n = 1 To 10

a(n) = (Rnd * 1000)

sum = sum + a(n)

Next n

Print sum

 

For n = 1 To 10

Print a(n)

Next n

 

End Sub

       (第4种)

Dim n As Integer

Dim a(10) As Integer

Dim sum As Integer

 

Private Sub Command1_Click()

sum = 0

For n = 1 To 10

Randomize

a(n) = Int(Rnd * 1000)

sum = sum + a(n)

Next n

Print sum

End Sub

 

 

       (第5种)

Dim n As Integer

Dim a(10) As Integer

Dim sum As Integer

 

Private Sub Command1_Click()

sum = 0

n = 1

Do While n <= 10

Randomize

a(n) = Int(Rnd * 1000)

sum = sum + a(n)

n = n + 1

Loop

Print sum

End Sub

 

 

       (第6种)

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

 

 

       (第7种)

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 Until n > 10

Print sum

End Sub

 

       (第8种)

Dim n As Integer

Dim a(10) As Integer

Dim sum As Integer

 

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

 

 

 

      (第9种)

 

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

                                                                                                        马妮娜