循环(6)

来源:互联网 发布:apache 微服务 框架 编辑:程序博客网 时间:2024/06/06 07:45

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

0 0