下列关于“控件”属性的说法正确的是( )

A．控件的每一个属性都具有同样的默认值；

B．所有对象都具有同样的属性；

C．控件的属性只能在设计时设置，不能在运行时修改；

D．单击窗体中某控件，在属性窗口中的属性列表框中找到要设置的属性，即可设置其属性值；

下列属于高级语言特点的是（    ）

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

我国居民身份证号是由 18 位字符组成，其中前 17 位是数字，第 18 位是校验位（校验
位字符在“0”~“9”或“X”中选取）。由前 17 位数字经过一定的规则计算得到校验值， 在查验居民身份证号有效性时，如果校验位中的字符与计算所得校验值相等则身份证号有效， 否则无效。
校验值计算规则如下：
第一步：将身份证号前 17 位数字分别乘以不同的系数后相加，对应系数如下表所示。

位数	1	2	3	4	5	6	7	8	9	10	11	12	13	14	15	16	17
系数	7	9	10	5	8	4	2	1	6	3	7	9	10	5	8	4	2

 
第二步：将第一步的计算结果除以 11，得到余数。 第三步：根据第二步的计算结果从下表获取对应的校验值。

余数	0	1	2	3	4	5	6	7	8	9	10
校验值	1	0	X	9	8	7	6	5	4	3	2

 
例如：某身份证号为 34052419800101001X。要计算此身份证的校验值步骤如下： 第一步：计算 3*7+4*9+0*10+5*5+……+1*2=189
第二步：189 除以 11 得到余数为 2
第三步：由余数 2 获取校验值 X。
根据以上规则小王编写了一个验证身份证号是否有效的 VB 程序，功能如下：在文本框 Text1 中输入身份证号，单击“验证”按钮 Command1 后，在列表框 List1 中显示验证结果。 程序运行界面如图1 所示。
（1）设计程序界面时，应使用图 2 中的____（填写相应编号）添加列表框对象 List1。

（2）实现上述功能的 VB 程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim i As Integer, a As Integer, b As Integer, sum As Integer, pos As Integer
Dim idCode As String, result As String
Const xs = "0709100508040201060307091005080402"    '存储前 17 位每位系数
Const checkCodeStr = "10X98765432"    '存储余数对应的检验值
①________
sum = 0
For i = 1 To 17 Step 1
a = Val(Mid(idCode, i, 1))
b = ②________
sum = sum + a * b
Next i
pos =
checkCode = Mid(checkCodeStr, pos, 1)
If checkCode = Mid(idCode, 18, 1) Then
result = "有效"
Else
result = "无效"
End if
List1.AddItem (idCode & "    " & result)
End Sub
（3）程序中加框处代码有误，应修改为________。

在VB中，定义数组d，用于存储10个学生的年龄，数组定义为dim d(1 to 10) as integer，下列有关数组d的说法正确的是（   ）

A．d是由9个整数变量构成的一个一维数组变量，且第一个元素为d(1)

B．d是由9个整数变量构成的一个一维数组变量，且最后一个元素为d(10)

C．d是由10个整数变量构成的一个一维数组变量，且第一个元素为d(0)

D．d是由10个整数变量构成的一个一维数组变量，且最后一个元素为d(10)