vb

来源：互联网发布：淘宝猫客是什么编辑：程序博客网时间：2024/06/06 14:25

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

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

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

0 0