对任意随机10个数求和（1）

打开vb

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

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

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

End Sub