vb6

这是第二个

好累啊

还要写七个


Option Explicit

Private Sub Command1_Click()

 Cls

 

 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