[問(wèn)答題] 完成下列問(wèn)題：

在考生文件夾下有工程文件sjt4.vbp，其中的列表框中已經(jīng)有2個(gè)選項(xiàng)(均為數(shù)字)。

程序功能是在文本框中輸入一個(gè)整數(shù)n(例如30)，單擊命令按鈕，則在列表框中追加若干數(shù)字，所有追加的數(shù)字按以下規(guī)律排列：每個(gè)數(shù)是前面兩個(gè)數(shù)之和，最后一個(gè)數(shù)是滿足上述規(guī)律的最大的小于n的數(shù)。如圖6所示。若再輸入一個(gè)更大的整數(shù)(例如100)，單擊命令按鈕，則按上述規(guī)律繼續(xù)追加數(shù)字。如圖7所示。

程序已經(jīng)給出但不完整，請(qǐng)將其中的注釋符去掉，在橫線處填寫(xiě)正確的內(nèi)容，以實(shí)現(xiàn)上述程序功能。

注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，最后程序按原文件名存盤(pán)。

[題目提供的源程序]

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步：打開(kāi)工程文件sjt4.vbp。 第2步：分析并修改源程序。 第3步：調(diào)試、運(yùn)行并保存程序。 [1]List1.List(List1.ListCount-2) [2]b [3]c

為了實(shí)現(xiàn)從列表框現(xiàn)有列表項(xiàng)的基礎(chǔ)上繼續(xù)追加數(shù)字，需要先取出列表框最后兩個(gè)選項(xiàng)。列表框中選項(xiàng)的個(gè)數(shù)存儲(chǔ)在ListCount屬性中，由于List屬性的下標(biāo)從0開(kāi)始，所以最后一個(gè)選項(xiàng)為L(zhǎng)ist1.List(List1.ListCount-1)，倒數(shù)第二個(gè)選項(xiàng)就應(yīng)該是List1.List(List1.ListCount-2)。取得最后兩個(gè)選項(xiàng)a和b后就可以計(jì)算下一個(gè)數(shù)c=a+h，若c還在規(guī)定的范圍內(nèi)，則c成了最后一個(gè)選項(xiàng)，b成了倒數(shù)第二個(gè)選項(xiàng)。為了循環(huán)的連續(xù)性，將b賦給a，c賦給b，再次計(jì)算c=a+h，以此類(lèi)推，直到找出所有滿足要求的數(shù)。