vb作业

1

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
2

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

3

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

4

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

5

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

6

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

7

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

8

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

学术不精，能力有限，就会这么多了。