有如下VB程序段：
Dim i As Integer, c As String, s As String, t As String
s ＝ "2012 Hero"： t ＝ ""
For i ＝ 1 To Len(s)
c＝ Mid(s, i, 1)
If c >＝ "a" And c <＝ "z" Then t ＝ t ＋ c
Next i
Text1.Text ＝ t
该程序段运行后，文本框Text1中显示的内容是（）

A．2012

B．Hero

C．ero

D．2012 H

纪念品分组问题。某教师节晚会的纪念品分组规则如下：按纪念品价值进行分组，每组总价值不超过限定值w且最多包含两件，要求分组数最少。编写VB程序解决该问题，程序运行时，在文本框Text1中依次输入每件纪念品的价格(不超过w)，以逗号分隔，在文本框Text2中输入限定位w，单击“分组”按钮，在标签Labe12上输出最少的分组数。程序运行界面如图所示。

(1)要使程序启动后，窗体的标题栏显示“纪念品分组”文字，可在Form_Load事件过程中添加语句__________(单选，填字母：

A．Forml="纪念品分组"/

B．Forml.Name="纪念品分组"/

C．Forml.Caption="纪念品分组"/

D．Forml.Text="纪念品分组")。

(2)实现上述功能的VB程序如下，请在划线处填入合适的代码；并且加框处代码有错，请改正。
①___________________________________
②__________________________________
③__________________________________


(3)若在文本框Text1中输A“50，30，100，70，80，40，50，20，"，文本框Tcxt2中输“110”，单击“分组”按钮，标签Labe12中显示的内容是______________

完成以下 VB 程序代码
（1）有如下 VB 程序段，
a = 167
b = a\100
c = b mod 10
该程序段运行后，变量 c 的值为_____ 。
（2）有如下 VB 程序段，
a=2:b=7:c=4
If a<b Then t=a:a=b:b=t
End If
If b<c Then c = c-b
End If
该程序段运行后，整型变量 a 的值是_____，b 的值是_____，c 的值是_____。

小金编写了VB程序，部分程序如下所示，在调试程序的时候出现如图所示的错误信息：
Private Sub Command1_Click()
Dim x As String, i As Integer
For i =" 1" To 10
If i Mod x =" 1" Then
x = "奇数"
Else
x = "偶数"
Next i
……
End Sub

产生此错误的语句是(   )。

A．For	B．End If
C．Next	D．If

下列VB程序段用于读取某数据库中的数据，相应数据表结构如图所示。

Dim adoConn As New ADODB. Connection
Dim adoRs as New ADODB. Recordset
Dim a(l to 1000) As String， b(l to 1000) As Integer
adoConn. Connection String ="Provider ="Microsoft
ACE. OLEDB 12.0；
DATA Source="&App. Path&"\mydata. Accdb"
adoConn. Open
Set adoRs. ActiveConnection=adoConn
adoRs. Open" Select* From Score"
n=0
Do While Not adoRs. EOF

n=n+1

a(n)= adoRs, Fields("学号"). Value

b(n)=adoRs Fields(3). Value

adoRs. MoveNext

Loop
adoRs. Close:adoConn.Close
下列对于该程序段的理解正确的有（   ）
①程序连接的数据库文件名是" mydata.echb"
②程序打开的数据表名称是" Score"
③程序将数据表中的数学成绩存入数组b
④程序运行后，变量n的值表示该数据表中记录的总数
⑤关闭数据表的语句为 adoConn. Close

A．①②④

B．②③④

C．②④⑤

D．②③④⑤