如何在vb中实现∑的功能

来源：百度知道 编辑：UC知道 时间：2024/05/17 23:01:39
如何在vb中实现∑ 的功能
Sn=a1*b1+a2*b2+a3*b3+...+an*bn

谢谢

Private Sub Command1_Click()
Dim a(10) As Long, b(10) As Long, x As Integer
Dim S As Long
S = 0
For x = 0 To 10
Randomize
a(x) = Int(Rnd(1) * 10)
b(x) = Int(Rnd(1) * 10)

S = S + a(x) * b(x)
'Print "s="; S, "a="; a(x), "b="; b(x)
Next
End Sub

可以参考一下.数组大小你可以自己定.