高悬赏。求。VB解答。

显示全部楼层 · 2011-5-19 12:49:22

设计一函数返回一维数组各元素的和。再简单编写程序调用函数，验证其正确性。

千问 · 2011-5-19 12:49:22

PrivatesTemp(10)AsString

PrivateSubCommand1_Click()
MsgBox(F_Sum())
EndSub

PrivateSubForm_Load()
DimiAsInteger

Fori=0To9
sTemp(i)=i1
Next
EndSub

PrivateFunctionF_Sum()AsInteger
DimiAsInteger
DimiSumAsInteger

Fori=0ToUBound(sTemp)-1
iSum=iSumVal(sTemp(i))
Next

F_Sum=iSum
EndFunction