（加试题）某查找算法的 VB 程序段如下：
i = 1: j = 7: n = 0
Key = Val(Text1.Text)
Do While i <= j
n = n + 1
m = Int((i + j) / 2)
If Key = a(m) Then Exit Do
If Key < a(m) Then j = m - 1 Else i = m + 1
Loop
数组元素 a(1)到 a(7)存放的数值依次为 8，21，27，36，79，28，98，若该程序段运行结束后，n 的值为 2，则 Text1 中输入的要查找的数是（）

A．27 或 79

B．28

C．21 或 28

D．21

由于交通日益拥堵，某市对车辆实施限行政策，即根据车牌最后一位数字进行限行判断，双号则奇数日期限行，单号的偶数日期限行。如车牌号“浙A53350”，末位数字为0，则奇数日期限行，如车牌号“浙A5335B”，末位数字为5，则偶数日期限行。现有一VB程序用来查询限行情况，软件界面如图，在文本框Text1中输入车牌号，单击“判断”按钮Command1，并在文本框Text2中显示限行情况。

“查询”按钮Command1的单击事件处理过程如下：
Private Sub Command1_Click()
Dim i As Integer, n As Integer　'变量n保存车牌的最末位数字
Dim cp As String, c As String
cp=Text1.Text
For i=7 To 3 Step -1

c=Mid(cp, i, 1)

If　　　　①　　　　Then 

n=Val(c)
If 　　　　②　　　　 Then 
Text2.Text=″奇数日期限行″
Else
Text2.Text=″偶数日期限行″
End If
i=2

End If

Next i
End Sub
在程序划线处填写适当的表达式或语句,以实现程序功能。
程序中①划线处应填入________________________。 
程序中②划线处应填入________________________。

查找并删除重复数据的算法是基于顺序查找的优化，主要思路是把待查数据的起点元素设置成查找关键字，然后从后往前查找，通过结束时停留的数据位置来判断查找结果（即结束时若停留在数据序列的起点，表示数据序列中无重复数据；否则，存在重复数据，删除该数据后继续查找）。
编写VB程序，实现上述算法。程序功能如下：运行程序时，在列表框List1中显示数组a中的原始数据；单击“去重”按钮（Command1），查找数组a中的重复数据并删除，即相同的数据仅保留一个，并在列表框List2中输出去重后的数组a中的数据，同时在标签Label1中显示删除的数据总个数，运行效果如图所示。

实现上述功能的VB代码如下，但加框处代码有错，请改正。
Const maxn = 10
Dim a(1 To maxn) As Integer
Private Sub Form_Load()
' maxn个数据存储在数组a中，并在列表框List1中显示
' 代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, n As Integer 'n用于存储当前查找的数组长度
Dim j As Integer, key As Integer   'key用于存储本次查找关键字的数据位置
key = 1: n = maxn
Do While key <= n

i = n

Do While  a(i) <> a(1)   '（1）

i = i - 1
Loop
If i = key Then   '找到重复数据，删除；未找到，设定下一查找关键字
key = key + 1
Else
For j = i To n - 1
a(j) = a(j + 1)
Next j
n = n - 1
End If
Loop
For i = 1 To n
List2.AddItem a(i)
Next i
Label1.Caption = "共删除重复数据：" &  Str(n)  & " 个" '（2）
End Sub

杭州市民卡是由杭州市人民政府授权发放给市民用于办理个人相关事务和享受公共服务的集成电路卡（IC卡），具有信息储存、身份识别、电子支付等功能。每位市民卡的卡号是唯一的，卡内会记录每位市民的姓名、住址、金额等信息。
假设共有1000个市民，市民的相关信息都存储在“information.accdb”的data表中，查询程序界面如图所示。工作人员在文本框Text1中输入卡号，单击“开始查询”按钮，如果找到，就在Label1中显示卡内市民姓名和卡内余额；否则显示“查无此人”。请按要求将下列程序补充完整。

Private Sub command1_click()
Dim conn As New ADODB.Connection, rs As New ADODB.Recordset
Dim strSQL As String
Dim a,b as string ‘分别定义姓名、余额
Dim n as integer
conn.ConnectionString = "Provider="Microsoft.ACE.OLEDB.12.0;Data" Source=" + App.Path + "\information.accdb" '打开到数据库的链接
conn.Open
strSQL ="select xh,xm from data where '卡号=&(Text1.Text) & '" '设置查询的SQL语句
Set rs.ActiveConnection = conn    '设置rs的ActiveConnection属性，指定与其关联的数据库链接
rs.Open strSQL   '打开记录集，将从表information中读取的结果保存到记录集rs中
Label1.Caption = ""
n=0
Do while not rs.EOF
①
a=rs.Fields("姓名")
b=rs.Fields("余额")
rs.movenext
loop
rs.Close
conn.close
set rs=nothing
set conn=nothing
②
if n="0" then Label1.caption="查无此人"
End Sub
（1）程序中①划线处应填入___________________。
（2）程序中②划线处应填入___________________。

纪念品分组问题。某教师节晚会的纪念品分组规则如下：按纪念品价值进行分组，每组总价值不超过限定值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中显示的内容是____________。