8种交换

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

 

 

 

 

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

 

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

 

 

 

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

 

 

 

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

 

 

 

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

 

 

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

 

 

 

 

 

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