UC知道这段vb代码有什么错误?
来源：百度知道 编辑：UC知道 时间：2024/05/27 20:42:34
代码是求Fibonacci数列的:
Private Function sl(n As Integer) As Integer
Dim n As Integer
n = Val(Text1.Text)
If n = 1 Then
sl(n) = 0
Else
sl(n) = sl(n) + sl(n - 1)
End Function
Private Sub Command1_Click()
Debug.Print sl(n)
End Sub
系统提示错误: BYREF参数不符
Private Function sl(n As Integer) As Integer
Dim n As Integer
n = Val(Text1.Text)
If n = 1 Then
sl(n) = 0
Else
sl(n) = sl(n) + sl(n - 1)
End Function
Private Sub Command1_Click()
Debug.Print sl(n)
End Sub
系统提示错误: BYREF参数不符
Dim n As Integer
不需要
你的形参已经定义了，不需要再次定义
Debug.Print sl(n)
这里的n要用一个实际的整数传递
Function sl(n As Integer) As Integer
我估计是你定义了两次
只定义个N就行了