VB定义函数问题
本帖最后由 bcrun 于 2013-02-24 10:46:10 编辑

Function jihe(a() As Single) As Single
Dim i As Single, b As Single, c As Single
c = 1
For i = a(LBound(a)) To a(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

为什么运行显示：下标越界 function
[解决办法]

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