对任意随机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