UC知道斐波那契数列vb代码为什么错误。。请哪位知道的仁兄告诉我一下啊·!!
来源：百度知道 编辑：UC知道 时间：2024/07/02 04:15:05
n = Text1.Text
If n >= 3 Then
a = 1
b = 1
k = 3
Do While k <= n
c = a + b
a = b
b = c
k = k + 1
Loop
Print c
Else
Print 1
End If
问一下这段代码哪里错了，为什么我运行的时候它就提示说 c = a + b实时错误‘6’溢出？？？？？
请哪位知道的仁兄告诉我一下啊。。。谢谢啊···！
If n >= 3 Then
a = 1
b = 1
k = 3
Do While k <= n
c = a + b
a = b
b = c
k = k + 1
Loop
Print c
Else
Print 1
End If
问一下这段代码哪里错了，为什么我运行的时候它就提示说 c = a + b实时错误‘6’溢出？？？？？
请哪位知道的仁兄告诉我一下啊。。。谢谢啊···！
Do While k <= n
改为
Do While k <= Val(n)
数据类型的问题
Private Sub Command1_Click()
n = Val(Text1.Text)
If n >= 3 Then
a = 1
b = 1
k = 3
Do While k <= n
c = a + b
a = b
b = c
k = k + 1
Loop
Print c
Else
Print 1
End If
End Sub
n被当成字符串了，无限循环下去了