循环(2)

来源:互联网 发布:大数据如何影响制造业 编辑:程序博客网 时间:2024/06/03 23:43

Option Explicit

 

Private Sub Command1_Click()

Dim i As Integer

Dim a(10) As Integer

Dim sum As Integer

Randomize

For i = 1 To 10

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

sum = sum + a(i)

Next i

Print sum

End Sub

0 0
原创粉丝点击