代码错误 赋值号左边的函数调用必须返回变体或对象

这是代码
Option Explicit
Dim n As Integer, c As Integer
Function a(n As Integer) As Integer
If n = 1 Then
a(n) = 1
ElseIf n = 2 Then
a(n) = 1
Else
a(n) = a(n - 1) + a(n - 2)
End If
End Function
Private Sub Command1_Click()
Text1.Text = ""
n = 1
c = a(n)
Do While c < 5000
Text1.Text = Text1.Text & Space(1) & c
n = n + 1
c = a(n)
Loop
End Sub

xiaoyuemt 为何这么改。。？

If n = 1 Then
a(n) = 1
ElseIf n = 2 Then
a(n) = 1
Else
a(n) = a(n - 1) + a(n - 2)
End If
修改为
If n = 1 Then
a = 1
ElseIf n = 2 Then
a = 1
Else
a = a(n - 1) + a(n - 2)
End If

去掉 msgbox 后面的等号 并且，你的 case "-" 下面三条语句都有错。改为： msgbox val(a) - val(b) a = val(text1.text) b = val(text2.text) 另外，下面两条语句是否该放到 end select 的下面? a = val(text1.text) b = val(text2.text)