今天新学的,趁热打铁!!!! 赶紧写上!! 省着以后补!!
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
今天新学的,趁热打铁!!!! 赶紧写上!! 省着以后补!!
Option Explicit
Private Sub Command1_Click()