VB定义函数问题

Question

本帖最后由 bcrun 于 2013-02-24 10:46:10 编辑

Answer 1

Function jihe(a() As Single) As Single
Dim i As Single, b As Single, c As Single
c = 1
For i = LBound(a) To UBound(a) '修改这
  For b = 1 To a(i)
  c = c * b
  jihe = jihe + c
  Next b
Next i
Print jihe
End Function
Private Sub Command1_Click()
Dim a(0 To 2) As Single
a(0) = InputBox("输入数据")
a(1) = InputBox("输入数据")
a(2) = InputBox("输入数据")
jihe a()
End Sub