小明设计了一个VB程序（界面如图所示），随机产生n（n<=100）个大于等于a(a<=100)且小于等于b(b<=100)的整数，并在列表框List1中降序显示。

实现上述功能的VB代码如下：
请在划线处填入合适代码。
Private Sub Command1_Click()
Dim a As Integer, b As Integer
Dim n As Integer, t As Integer
Dim m(1 To 100) As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
n = Val(Text3.Text)
If  a > b Then t =" a:" a =" b:" b = t
Randomize
①
For i =" 2" To n
m(i) =" Int(Rnd" * (b - a + 1)) + a
If m(i) > m(i - 1) Then
②
For j =" i" - 1 To 1 Step -1
If temp < m(j) Then Exit For
m(j + 1) = m(j)
Next j
③
End If
Next i
For i =" 1" To n
List1.AddItem Str(m(i))
Next i
End Sub
程序①处的代码是
程序②处的代码是
程序③处的代码是

VB中窗体文件的扩展名为(   )

A．.vbp

B．.frm

C．.bas

D．.ds

在Visual Basic中，语句TName.Caption = "2012伦敦"中的TName是

A．对象名

B．属性名

C．属性值

D．事件名

编写VB程序，实现如下功能：有一个四位数，此数十位上的数字是7，且这个四位数是一个完全平方数，现要找出符合以上要求的所有四位数，并统计共有几个数。单击Command1按钮，将符合要求的四位数显示在列表框List1中，统计个数显示在标签Label2中，界面如第15题图所示。

（1）若要修改窗体背景颜色，可在其属性窗口中______属性的属性值进行修改。
（2）解决这个问题采用的算法是________（填字母：
A.解析算法 
B.枚举算法）
实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim i As Integer, x As Integer, c As Integer
c = 0
For i = 1000 To 9999
x = ①___________
If  ②________ And x = 7 Then
③_____________   '将符合条件的四位数显示在列表框中
num = num + 1
End If
Next i
Label2.Caption = "共有："+ ④______ +"个"
End Sub

将1、1、2、3、5、8、13、21、……数列的前20项存入a数组的正确程序段是_______。

A．	B．
C．	D．