作业帮 > 综合 > 作业

VB 程序填空,求高人解答 '以下程序段用于计算数组中各元素的乘积.

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/08 19:41:51
VB 程序填空,求高人解答 '以下程序段用于计算数组中各元素的乘积.
'以下程序段用于计算数组中各元素的乘积.
'------------------------------------------
Private Sub Command1_Click()
'
function tim(x() as integer) as double
dim s as double
s=1
a=lbound(x)
b=rbound(x)
for i=a to b
s=s*x(i)
next
tim=s
end function
______________________
Dim a(1 To 5) _____, 空上填 as intege