對任意随機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