随便取十个数1

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语言程序，我在上机课的时候操作出来了，但是由于那时候进不了，所以就没有写博客，现在补回来了。只是缺少了图片。