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