程序运行界面如图所示。要求在文本框Text1中输入字符串，单击“统计”按钮Command1后，在标签Label2中显示所输入字符串长度。需要编写的VB事件处理过程的名称为(    )

A．Command1_Click

B．Text1_Click

C．Form_Click

D．Label2_Click

编写“字母出现频率测试”程序，实现如下功能：在文本框 Text1 中输入英文句子，单击“统计”按钮，在列表框 List1 中显示小写字母出现的次数，同时显示字母出现频率最高的次数。程序运行界面如下图所示。

(1)在设计程序界面时，使应使用题16图所示“控件工具箱”中的______（填写相应编号）添加“统计”按钮。
(2)实现“统计”功能的 VB 程序如下，请在划线处填入合适的代码。
Private Sub CmdTJ_Click()
Dim count(25) As Integer
Dim ch, ch2 As String
Dim m As Integer
ch = Text1.Text
For k = 1 To Len(ch)
______（1）   
n = Asc（ch2）-Asc(“a”)
If  n >= 0 And n <= 25 Then
count(n) = count(n) + 1
List1.AddItem "字母" + ch2 + "出现" + Str(count(n)) + "次"
End If
Next k
m = count(0)
For k = 1 To 25
If _____（2） Then  m = count(k)
Next k
Label1.Caption = "字母最高出现" + Str(m) + "次"
End Sub

小李编写一个统计学生选考科目的 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

用以下语言编写的程序，计算机能直接识别的并执行的是（   ）

A．高级语言	B．汇编语言
C．Visual Basic	D．机器语言

在用流程图描述算法时，表示判断的图形符号是

A．

B．

C．

D．