完成下列问题：在考生文件夹下有工程文件sjt4.vbp，其中的列表框中已经有2个选项

题目：

完成下列问题：

在考生文件夹下有工程文件sjt4.vbp，其中的列表框中已经有2个选项(均为数字)。
程序功能是在文本框中输入一个整数n(例如30)，单击命令按钮，则在列表框中追加若干数字，所有追加的数字按以下规律排列：每个数是前面两个数之和，最后一个数是满足上述规律的最大的小于n的数。如图6所示。若再输入一个更大的整数(例如100)，单击命令按钮，则按上述规律继续追加数字。如图7所示。

程序已经给出但不完整，请将其中的注释符去掉，在横线处填写正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。
[题目提供的源程序]
Private Sub Command1_Click()
Dim a%, b%, c%, n%
n=Val(Text1.Text)
a=Val( (1) )
b=Val(List1.List(List1.ListCount-1))
c=a+b
Do While c＜n
a= (2)
b=c
List1.AddItem (3)
c=a+b
Loop
End Sub