随机取10个数6

Dim sum As Integer                             Dim sum  As Integer        

Dim i As Integer                                  Dim i As Integer

Dim a As Integer                                 Dim a As Integer

Private Sub Command1-Click()               Private Sub Command1-Click

sum =0                                             sum =0

For i=1To 10                                      For i=1 To 10

Randomize                                         Randomize

a=Int(1000*Rnd)                                 a=Int (1000*Rnd)

sum=sum+a                                       sum=sum+a

Next                                                  Next

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

i=1                                                    i=1

Do While i<=10                                    Do While i<=10

Randomize                                          Randomize

a=Int(Rnd*1000)                                  a=Int(Rnd*1000)

sum=sum+a                                        sum=sum+a

Loop                                                   i=i+1

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

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

                                                                                                                     End Sub