标签：
Private Sub comman1 -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
这是我做随便取十个数的第一个VB语言程序，我在上机课的时候操作出来了，但是由于那时候进不了，所以就没有写博客，现在补回来了。只是缺少了图片。
标签：
原文地址：http://blog.csdn.net/chen15050441003/article/details/51111641
