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

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

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

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

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

D．Fom1.Text="纪念品分组"）。

（2）实现上述功能的VB程序如下，请在划线处填入合适的代码；并且加框处代码有错，请改正。
Private Sub Command1 Click()

Dim a(l To 1000), n As Integer, w As Integer,cnt As Integer

Dim i As Integer, j As Integer, t As Integer

Dim s As String, ch As String

Dim p As Integer, q As Integer

S= Textl. Text: w =Val(text2. Text): n=0

For i=1 To Len(s)

ch=Mid(s, i, 1)

If ch="."Then

n=n+1:a(n)=t: t=0

Else

t=_________①___________

 End If

Next i
For i=n To 2 Step-1

For j=1 To '②

If a(j)< a(j+1)Then
t=a(j):a(j)=a(j+1):a(j+1)=t

End If

   Next j
Next i
cnt= 0
p=1: q=n
Do While p<q

cnt=cnt+1

If ________③_________ Then

p=p+1:q=q-1

Else

p=p+1

End If

Loop
If p=q Then cnt=cnt+1
Label2 Caption- Str(cnt)
End sub
（3）若在文本框Text1中输入“50，30，100，70，80，40，50，20”，文本框Text2中输人“110”，单击“分组”按钮，标签Labe2中显示的内容是____________。

某校学生会选举需要从学校数据库中随机抽取若干名学生作为监票人。该数据库文件名为school.mdb，其中数据表student存储有关学生学号（xuehao）、姓名（xingming）相关信息，括号内的内容为对应字段名。该程序编辑界面如图所示，相关对象名可参考标识图。

当主持人点击按钮“生成抽号”后，下方的标签会显示可抽取的学号姓名，一定时间后显示被抽取作为监票人的学号姓名。
'xxxss:学校学生数，kcq:可抽取
'xhxm:学号姓名，kcq:可抽取
Dim xxxss As Integer
Dim xhxm(3000) As String
Dim kcq(3000) As Boolean
'cq_Click:启用两个定时器
Private Sub cq_Click()
cqxhxm.Enabled = True
xskcqxhxm.Enabled = True
End Sub
Private Sub cz_Click()  '初始化数组kcq，使每个元素数据都处于可显示状态
For i =" 0" To xxxss - 1
kcq(i) = True '①
Next i
End Sub
Private Sub xskcqxhxm_Timer() '若数组kcq第x个元素处于可抽取状态，则显示数组xhxm第x个元素
x =" Int(Rnd" * xxxss)
If kcq(x) Then xhxmbq.text = kcq(x)   '②
End Sub
Private Sub Form_Load() '从数据库中提取需要的学号姓名相关数据并初始化数组kcq
Randomize
xxxss = 0
Dim conn As New ADODB.Connection,rs As New ADODB.Recordset
Dim str_conn as String,str_sql As String
str_conn = "driver="Microsoft" access driver(*.mdb);DBQ="&app.path&"\school.mdb";
conn.open str_conn
str_sql = "select * from students"
rs.open str_sql
Do While Not rs.eof
xxxss =" xxxss" + 1
xhxm(xxxss) = rs.fields("xuehao")&rs.fields("xingming")
rs.movenext
Loop
For i =" 0" To xxxss - 1
kcq(i) = True
Next i
End Sub
Private Sub cqxhxm_Timer()  '决定抽取的学号姓名作为监票人
xskcqxhxm.Enabled = False
For i =" 0" To xxxss - 1
If xhxmbq.Caption =" xhxm(i)" Then kcq(i) = False
Next i
cqxhxm.Enabled = False
End Sub

某对分查找算法的VB程序段如下：







Loop

数组元素a（1）到a（10）的值依次为“2，3，5，8，9，10，13，17，19，20”。在文本框Text l中输人待查找的数，执行该程序段，则文本框Text 2中显示的内容可能的是（   ）

A．9 3

B．9 3 5

C．9 17 19 13

D．9 3 5 8 19

某数组有10个元素，依次为11、22、33、45、55、66、77、88、92、98，若采用对分查找法在该数组中查找数据92，依次被访问的数据为(    )

A．55、88、92

B．55、77、88、92

C．66、88、92

D．66、88、98、92

（加试）数组a存放n个学生的学号及成绩，a（2*i-1）存放第i个学生的学号，a（2*i）存放第i个学生的成绩，且成绩按降序排列（i=1,2,……n）。下列VB程序功能为:文本框Text1中输入成绩key，查找该成绩对应学生的学号，在文本框Tex2中显示。
Key = Val（Text1. Text）
i=1:j=( ① )
flag =False
Do While I <=j And Not flag
m=(i+j)\2
If key =a（2*m）Then
Flag = True
Elseif  ( ②  )  Then
j=m-1
Else
i=m+1
End If
Loop
If flag Then Text2.Text=Str（ ③ ） Else Text2.Text=“未找到！”
上述程序段3各方框处的代码分别为

A．（1）2*n （2）key>a(2*m) （3）a(2*m+1）

B．（1）2*n  （2）key<a(2*m)  （3）a(2*m+1)

C．（1）n   （2）key>a（2*m） （3）a(2*m-1)

D．（1）n  （2）key <a(2*m)    （3） a(2*m-1)