随机生成10个数（使用9种循环）。

《一》Private Sub Command1_Click()

                  Dim i As Integer

                  Dim a(10) As Integer

                   Dim sum As Integer

           For i = 1 To 10

           a(i) = Int(Rnd * 1000) + 1

           sum = sum + a(i)

           Next i

           Print sum

           End Sub