随机十个数求和8

..

Private Sub Command1_Click()

Cls
 Dim n As Integer
 Dim s As Integer
 Dim a(10) As Integer

 n = 1
 While n <= 10
 a(n) = Int(Rnd * 1000)
 n = n + 1
 Wend
 
 
 n = 1
 While n <= 10
 Print a(n)
 n = n + 1
 Wend
 
 
 s = 0
 n = 1

 Dim t As Integer
 For Each t In a
 s = s + t
 Next
 
 Print s