对任意十个数求和（4）

打开vb

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

在弹出的表框中输入以下代码：(将command修改为求和)

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

End Sub