十数求和

Dim sum As Integer

Dim i As Integer

Dim a As Integer

Private Sub Command1_Click()

   sum=0

   For i = 1 To 10

       Randomize

       a=Int(1000*Rnd)

       sum=sum+a

   Next

   MsgBox"10个随机数和为："&sum

   Do While i < = 10

       Randomize

       a=Int(1000*Rnd)

       sum=sum+a

       MsgBox"10个随机数和为："& sum

   Loop

  End Sub

   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

   Dim sum As Integer

   Dim i As Integer

   Dim a As Integer

   Private Sub Command1_Click()

        sum=0

        For i=1 To10

           Randomize

           a=Int(1000*Rnd)

                  sum=sum+a

           MsgBox"10个随机数为："&sum

    Next

End Sub