Question

学习VB过程时遇到了一个小问题

Option Explicit
Public Function fib(n As Long) As Long
Dim num As Long
num = n
If num > 2 Then
fib = fib(num - 1) + fib(num - 2)
Else
fib = 1
End If
End Function

Private Sub Command1_Click()
Dim i, max, a, r, n As Long
Dim bool As Boolean
max = 0
bool = validate_num(Text1.Text, 30)
If bool = False Then
Text1.Text = ""
Text1.SetFocus
Else
a = CInt(Text1.Text)
For n = 1 To a //将这里的N变成I为什么编译不过?改成N就能编译过//
r = fib(n) //将这里的N变成I为什么编译不过?改成N就能编译过//
max = max + r
Next n
Label3.Caption = "当前值：" & fib(CInt(Text1.Text))
Label4.Caption = "求和：" & max
End If
End Sub

Private Function validate_num(num As Long, num1 As Long) As Boolean
'判断输入数值是否满足条件
Dim a As Integer
If num <= 0 Then
MsgBox "请输入一个正值……"
validate_num = False
Else
If num > num1 Then
a = MsgBox("数值设置较大，计算时间可能会很长，是否继续？", vbOKCancel + vbQuestion, "提示")
If a = 1 Then
validate_num = True
Else
validate_num = False
End If
Else
validate_num = True
End If
End If
End Function

Answer 1

Dim i, max, a, r, n As Long
这句其实并没有将你想申明为LOng的i, max, a, r申明成功，只有最后的n申明成功了，其他的都是随机型变量，未指定类型
我以前也是这么申明的
要注意哦
解决的办法是将上面那句改为dim i as long, max as long, a as long, r as long, n as long
Dim i, max, a, r, n As Long是将i, max, a, r, n设置为variant类型,n设为long型,而Public Function fib(n As Long) As Long这句中指定参数的类型为long,所以传递i就会出现参数类型不符的错误.

Answer 2

Dim i, max, a, r, n As Long
这句其实是将i, max, a, r, n设置为variant类型,n设为long型,而Public Function fib(n As Long) As Long这句中指定参数的类型为long,所以传递i就会出现参数类型不符的错误.
解决的办法是将上面那句改为dim i as long, max as long, a as long, r as long, n as long

Answer 3

你改成i后吧最上面的Option Explicit去掉试试！