小明打开“工程1.vbp”文件进行编辑，如第8题所示，为了显示应用程序的窗体，他应该进行的操作是（  ）

A．单击A处的“视图”菜单	B．双击B处的“Form1”窗体文件
C．单击C处的“窗口”菜单	D．关闭文件，重新打开

下列各组控件都具有Caption属性的是( )

A．按钮、文本框	B．标签、列表框
C．按钮、标签	D．文本框、列表框

小李编写一个统计学生选考科目的 VB 程序，算法的基本思想是：检查每位学生选课组合的编码是否有效，对有效选择结果进行科目统计，根据各科占有效人数的百分率求出各科排名｡程序运行时，单击“显示”按钮 Command1，学生选课数据显示在列表框 List1 中，各科编号及对应科目名称显示在列表框 List2 中，单击“统计”按钮 Command2，选课结果按各科百分率由高到低显示在列表框 List3 中，程序运行结果如图所示｡

现上述功能的 VB 程序如下，请回答下列问题：
（1）学生选课的编码数据存储在数据表中，其字段名为__________________｡
（2）请在划线处填入合适的代码｡
Dim ach(1 To 500) As String  '存储各学生选课编码
Dim bno(1 To 10) As Integer '存储各科目编号
Dim bname(1 To 10) As String '存储各科目名称
Dim bnum(1 To 10) As Integer  '存储各科目被选次数
Dim bmc(1 To 10) As Integer '存储各科目被选的名次
Dim n As Integer, num As Integer
Private Sub Command1_Click()
Dim i As Integer, km As String
km = "物理化学生物政治历史地理技术"
Dim cn As New ADODB. Connection, rs As New
ADODB. Recordset, sql As String
cn. Open "provider=Microsoft. Jet. oledb. 4. 0;Data Source =" + App. Path + " \students. mdb"
rs. Open "select ∗ from choose", cn
Do While Not rs. EOF
n = n + 1 : ach(n) = rs. Fields("subject") : rs. MoveNext
Loop
rs. Close: cn. Close
Set rs = Nothing
Set cn = Nothing
For i = 1 To 7
bno(i) = i: bname(i) = Mid(km, (i - 1) ∗2 + 1, 2)
List2. AddItem Str (bno (i)) + " - - -" +bname(i)
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, k As Integer
Dim c As String, per As Integer
For i = 1 To n
If check(ach(i)) =True Then
For j = 1 To 3
c = Mid(ach(i), j, 1)
bnum(Val(c)) = ①_________
Next j
num = num + 1
End If
Next i
i = 1
Do While i <= 7  '该循环得到各学科被选人数的名次
bmc(i) = 1
For j = 1 To 7
If bnum(j) > bnum(i) Then ②__________
Next j
i = i + 1
Loop
For i = 1 To 7
For j = 1 To 7
If ③_________Then
per = Int(bnum(j) ∗ 100 / num ∗ 100)/ 100
List3. AddItem Str(bno(j)) + "---" +bname(j) + "---" + Str(per) + "%"
End If
Next j
Next i
End Sub
Function check(s As String) As Boolean
'代码略，若学生选科代码有效，函数返回 True，否则返回 False
End Function

小刘在玩一个数字游戏，给定一个n位正整数（n<=20），根据设定的保留位数，舍去一部分数字，剩下的数字按原次序组成一个最大的新数。例如原数34625803，保留4位，最大数为6803。算法是：先确定最高位的数字，在第1位至最后3位数字前的34625中找到最大的数6，从而确定最高位是6，再确定次高位的数字，从6后面的数开始到最后2位数字前的258中找到最大数8，确定次高位是8，依次找下去得到最大新数。他设计了一个VB程序来进行验证，在文本框Text1中输入一个n位正整数，在文本框Text2中输入保留的位数，点击“确定”按钮，在文本框Text3中输出保留的最大新数。程序运行界面如图所示。

（1）如果输入的原数是3635132，保留4位数字，则输出的新数是  。
（2）实现上述功能的VB代码如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim a(1 To 20) As String
Dim ys As String, xs As String 'xs记录最大的新数
Dim k As Integer, h As Integer, n As Integer
Dim i As Integer, j As Integer
Dim F As Boolean
xs = ""
ys = Text1．Text
n = Len(ys)
k = Val(Text2．Text)
F = True
If ys = "" Or n > 20 Or k =" 0" Or k > n Then
Label4．Caption = "输入的原数或保留位数不符，请重输！"
F = False
End If
For i =" 1" To n
①    
If a(i) < "0" Or a(i) > "9" Then
Label4．Caption = "输入的原数不是数字，请重输！"
Text1．Text = ""
F = False
End If
Next i
If F =" True" Then
h = 1
For i =" 1" To k
For j =" h" To     ②   
If a(j) > a(h) Then h = j
Next j
xs =" xs" + a(h)
h =" h" + 1
Next i
Text3．Text = xs
End If
End Sub

编写VB程序，界面设计如图所示，使其具有下列功能：在文本框Text1中输入一个小于20的正整数ｎ，单击“计算”按钮Command1，计算斐波那契数列中第ｎ项的值，并在标签Label2中输出结果；若输入错误，则在标签Label2中显示相应的提示信息。（斐波那契数列是指这样的数列：1，1，2，3，5，8，13…。即：第1项和第2项的值均为1，从第3项开始，每一项的值是它前面两项之和）

（1）代码“Private Sub Command1_Click()”中的Command1 是 。（单选，填字母：

A．对象名／

B．属性名／

C．属性值／

D．事件名）

（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim n As Long, k As Integer
Dim f1 As Long, f2 As Long, f As Long
_______①_________ =Val(Text1.Text)
If n >=" 20" Or n <=" 0" Then
Label2.Caption = "输入的数据有误"
Else:Z+xx+k.Com
If n <=" 2" Then ' 第1，2个元素的值都为1
f = 1
Else
f1 = 1
f2 = 1
For k =" 3" To m
f =" f1" + f2
f1 = f2
f2 = f
Nextk
End If
Label2.Caption = "斐波那契数列第" + Str(n) + "项的值为" +    ②
End If
End Sub
（3）若在文本框Text1.Text输入21，则标签Label2显示的内容为 。