随机取10个数第八种

Dim  sum As Integer

Dim i As Integer

Dim a As Integer

Private Sub Command1-Click()

sum=0

For i=1 To 10 step 2

Randomize

a=Int(1000*Rnd)

sum=sum+a

Next

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

i=1

Do While i<=10

Randomize

a+Int(Rnd*1000)

sum=sum+a

i=i+1

Loop

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

i=1

Do Until i>10

Randomize

a=Int(Rnd*1000)

sum=sum+a

i=i+1

Loop

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

End Sub

      对于前面的几个程序而言，这个程序有所差别，用到了Do Until 这个表达式，但是我并不知道这是什么意思，我就是跟着老师上课怎么讲我就怎么写程序。