Private Sub CmdCalculate_Click()
Dim a, b, c, m, n As Integer
a = 1
b = 1
m = 2
n = TxtInput.Text2
Do
c = a + b
m = m + 1
a = b
b = c
Loop While c < n
LblResult.Caption = m
End Sub
Private Sub CmdExit_Click()
End
End Sub
Private Sub Form_Load()
TxtProblem.Text = "  有一对小兔子，长到第3个月时生出一对小兔子，以后每个月都生出一对小兔子，而所有出生的成对小兔子都和第一对兔子的繁殖规律相同。"
TxtProblem.Locked = True
TxtInput.Text2 = ""
LblResult.Caption = ""
End Sub
Private Sub TxtInput_KeyPress(Index As Integer, KeyAscii As Integer)
LblResult.Caption = ""
If KeyAscii < 0 Or KeyAscii > 9 Then KeyAscii = 0
End Sub
一运行就会出现
编译错误：
未找到方法或数据成员
调试，黄色箭头指向Private Sub Form_Load()这一行，请求大神，怎么改！~

万分感谢，照你做的改了，可以运行了，运行正常。万分感谢。

万分感谢，已经按照您说的分析，问题解决。