约会专家电视剧下载:vb fibonacci 数列,程序,指点错误
来源:百度文库 编辑:高校问答 时间:2024/10/06 17:06:41
Private Sub Form_load()
n = Val(InputBox("请输入要求FIB前多少项:"))
For i = 1 To n
msg = msg & fib(n) & Space(1)
Next
MsgBox msg
End
End Sub
Function fib(m)
Static a1, a2, a3 As Integer
If m = 1 Or m = 2 Then
a1 = 1
a2 = 1
fib = 1
Else
a3 = a1 + a2
fib = a3
a1 = a2
a2 = a3
End If
End Function
n = Val(InputBox("请输入要求FIB前多少项:"))
For i = 1 To n
msg = msg & fib(n) & Space(1)
Next
MsgBox msg
End
End Sub
Function fib(m)
Static a1, a2, a3 As Integer
If m = 1 Or m = 2 Then
a1 = 1
a2 = 1
fib = 1
Else
a3 = a1 + a2
fib = a3
a1 = a2
a2 = a3
End If
End Function