对随机10个数求和（2）

打开vb

在左侧找到commmand图标，然后再form区域中适当位置创建，双击图标，

在弹出的表框中输入以下代码：

Dim sum As Integer
Dim i As Integer
Dim a As Integer
Private Sub Command1_Click()
    sum = 0
    i = 1
    Do
       Randomize
       a = Int(1000 * Rnd)
       sum = sum + a
       i = i + 1
    Loop Until i > 10
    MsgBox "10个随机数和为：" & sum
       
End Sub