标题：[求助]单精度数组求和

Dim q() As Single

如何实现sum(q)

dim s as integer

for i as integer = 0 to q.Length -1

    s = s + q(i)

next