杭州交通信息网request content type:翻译数控编程与实例
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/11 16:16:36
斐波那契数列
Private Sub Command1_Click()
x = Text1.Text
Dim A(20) As Integer
Dim i As Integer
A(1) = 1
A(2) = 1
For i = 3 To 20
A(i) = A(i - 2) + A(i - 1)
Next i
L = 1
H = 20
Do While L <= H And t = 0
M = (L + H) \ 2
If x > A(M) Then
L = M + 1
ElseIf x < A(M) Then
H = M - 1
Else
t = 1
End If
Loop
If t = 1 Then
Label4.Caption = "恭喜你!猜的真准!"
End If
If t = 0 Then
Label4.Caption = "对不起,猜错了!"
End If
End Sub