VBb编程 用随机函数给数组元素赋值,然后计算数组元素之和

Private Sub Form_Click()

Dim arr1(10) As Integer, k As Integer, s As Integer
For k = 0 To 10
arr1(k) = Int(Rnd * 900 + 100)
Next k
Call abc(arr1, s)
Print "数组元素之和为：" + CStr(s)
End Sub

Private Sub abc(arr2, ByRef ss)

For j = 0 To 10
ss = ss + arr2(j)
Next j

End Sub

Private Sub Form_Click()
Dim arr1(10) As Integer, k As Integer, s As Integer
For k = 0 To 10
arr1(k) = Int(Rnd * 900 + 100)
Next k
Call hihi(arr1(), s)
Print "数组元素之和为：" + CStr(s)
End Sub

Private Sub hihi(arr2() As Integer, ss As Integer)
For j = 0 To 10
ss = ss + arr2(j)
Next j
End Sub

Private Sub Form_Click()
dim aa
aa=0
Dim arr1(10) As Integer, k As Integer, s As Integer
For k = 0 To 10
arr1(k) = Int(Rnd * 900 + 100)
aa=aa+arr1(k)
Next k
Print "数组元素之和为：" + aa
End Sub

如果要在外面来调用