[问答题] 完成下列问题：在考生文件夹下有工程文件sjt4.vbp，其中的列表框中已经有2个选项(均为数字)。程序功能是在文本框中输入一个整数n(例如30)，单击命令按钮，则在列表框中追加若干数字

[问答题] 完成下列问题：在考生文件夹下有工程文件sjt4.vbp，其中的列表框中已经有2个选项(均为数字)。 程序功能是在文本框中输入一个整数n(例如30)，单击命令按钮，则在列表框中追加若干数字

[问答题] 完成下列问题：

在考生文件夹下有工程文件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

正确答案：

[ *** 作步骤] 第1步：打开工程文件sjt4.vbp。 第2步：分析并修改源程序。 第3步：调试、运行并保存程序。 [1]List1.List(List1.ListCount-2) [2]b [3]c

参考解析：

为了实现从列表框现有列表项的基础上继续追加数字，需要先取出列表框最后两个选项。列表框中选项的个数存储在ListCount属性中，由于List属性的下标从0开始，所以最后一个选项为List1.List(List1.ListCount-1)，倒数第二个选项就应该是List1.List(List1.ListCount-2)。取得最后两个选项a和b后就可以计算下一个数c=a+h，若c还在规定的范围内，则c成了最后一个选项，b成了倒数第二个选项。为了循环的连续性，将b赋给a，c赋给b，再次计算c=a+h，以此类推，直到找出所有满足要求的数。