在VB中，函数Left()的功能是从字串左端开始截取部分字串，那么表达式Left ("morning" , 3)的结果为

A．ning

B．mor

C．ing

D．morn

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

编写VB程序，实现如下功能：在文本框Text1中输入一串字符，单击“统计”按钮Command1，统计每个英文字母（不区分大小写）出现的次数，找出出现次数最多的字母，在标签Label1中显示结果。运行效果如图所示。

实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim i As Integer, n As Integer, max As Integer
Dim a(1 To 26) As Integer   '数组a存放26个大小写字母出现的次数Dim st As String, ch As String
st = Text1.Text
For i = 1 To Len(st)
    ①_____
If ch >= "A" And ch <= "Z" Then n = Asc(ch) - Asc("A") + 1  a(n) = a(n) + 1
ElseIf ch >= "a" And ch <= "z" Then n =    ②_____
a(n) = a(n) + 1
End If
Next i
max = a(1)
For i = 1 To 26
If      ③_____Then max = a(i)
End If Next i st = ""
For i = 1 To 26
If max = a(i) Then
st = st + " " + Chr(Asc("A") + i - 1) End If
Next i
Label1.Caption = "出现次数最多的字母是：" & st & " " & "出现次数为：" & Str(max)
End Sub
（2）在文本框 Text1 中输入字符串“ABCEEEEffee333333”，运行程序时，标签 Label1 中输出结果为：出现次数最多的字母是：_____出现次数为：_____。

在VB中，代码RGB（0,0,255）表示什么颜色（   ）

A．红色

B．绿色

C．黄色

D．蓝色

小明设计了一个名为“购物街”的程序，该程序功能如下：程序开始运行时显示一张商品图片，变量x存储商品价格，在文本框“Text1”输入猜测的价格y，点击“确定”按钮，判断输入的价格y与商品价格x的大小关系，并给出提示。当输入的价格y大于或小于x时，在“猜测情况”Label5中分别显示“太大”或“太小”的提示信息，当输入的价格y等于x时在“猜测情况”Label5中显示“恭喜你猜对了！”同时“Command1”按钮变为不可用。在“Label4”显示剩余猜测次数，程序提供5次猜测机会，当猜测次数为零时“Command1”按钮变为不可用。运行界面如图所示：

图1
(1)应用程序界面设计时，为添加标签对象，应使用图1所示的“控件工具箱”中的________(填写相应编号)。代码“Private Sub Form_Load()”中的load指的是________事件。
(2)请根据题意将下列程序补充完整。
①处应填写的代码为：______________________________________
②处应填写的代码为：______________________________________
Dim x As Integer
Dim t As Integer
Private Sub Form_Load()
t＝5    ’初始化猜测次数
x＝14    ’初始化商品价格
Command1.Enabled＝True
Label4.Caption＝Str(t)
End Sub
Private Sub Command1_Click()
t＝____①____
If t＝0 Then
Command1.Enabled＝False
End If
Label4.Caption＝Str(t)
Dim y As Integer
y＝Val(Text1.Text)
If ____②____ Then
Label5.Caption＝“太大”
ElseIf y＜x Then
Label5.Caption＝“太小”
Else
Label5.Caption＝“恭喜你对了！”
Command1.Enabled＝False
End If
End Sub