（加试题）入围“十佳歌手”的10位学生的编号依次为：47，36，35，31，28，23，17，8，3，1，主持人通过对分查找最终确定35号为首位出场学生，则主持人查找过程中依次被访问的编号是（  ）

A．47，36，35

B．23，35

C．28，35

D．28，36，35

编写一个删除数字字符串s中的最大和次大数字字符的程序。具体功能如下：在文本框Text1中输入一个数字字符串，单击“删数”按钮Command1，将删除后的结果显示在文本框Text2中。程序运行界面如下图所示。

（1）要使程序运行时，按钮Command1上显示的标题为“删数”，可在Form_Load事件处理过程中添加语句________（单选,填字母：

A．Caption.Command1 ="删数" /

B．Command1.Caption ="删数" /

C．Caption ="删数"/）

（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String, ch As String
Dim i As Integer, n As Integer
Dim max1 As Integer, max2 As Integer
s = Text1.Text: n = Len(Text1.Text)
If Mid(s, 1, 1) > Mid(s, 2, 1) Then
max1 = 1: max2 = 2
Else
max1 = 2: max2 = 1
End If
For i = 3 To n
ch = Mid(s, i, 1)
If ch > Mid(s, max1, 1) Then
①_______
max1 = i
ElseIf ch >= Mid(s, max2, 1) Then
max2 = i
End If
Next i
For i = 1 To n
If ②_________ Then Text2.Text = Text2.Text & Mid(s, i, 1)
Next i
End Sub
（3）若在文本框Text1中输入的内容为“82176736”，单击按钮Command1,文本框Text2中显示的内容是________。

VB猜价格小程序
高二（8）班决定在第11周开一个主题班会，为了丰富班会的内容，班主任要求班级几位信息高手，设计一个小程序，这事难不倒班上的各位大神，他们齐心协力，很快就完成了。
编写程序，实现如下功能：有6张待猜的商品图片加载到Image1中，通过上一个和下一个按钮进行切换，主持人可以通过“设置价格”按钮Command2对每一张商品图片设置一个价格，然后，单击“我来猜一猜”按钮开始猜价格游戏，每人只给8次（这个数据存放在变量n中）猜价格的机会，8次机会用完后，如果猜中价格，则在文本框Text2中显示处价格。

（1）窗体中有________个对象，________类。
（2）Command1对象的Caption属性值是_______________________________。
（3）实现上述功能的部分VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim i As Integer
Dim n As Integer    '变量n存储猜价格的次数
Dim cai_shu As Integer    '变量cai_shu存储猜的价格
n = ①__________________
For i = 1 To n
cai_shu = Val(InputBox("请输入当前商品的价格：", "输入价格"))
If cai_shu = jg(dqtp) Then  'jg(dqtp)存储的是当前商品图片的价格
MsgBox "恭喜你猜对了"
Text2.PasswordChar = ""
Text2.Text = Text2.Text + "元"
Exit For
ElseIf ②__________________ Then
MsgBox "猜大了，再来猜一猜"
Else
MsgBox "猜小了，再来猜一猜"
End If
Next i
If i > n Then
MsgBox "猜价格次数用尽，很遗憾，你没有猜对！"
③___________________
End Sub

（加试题）某对分查找算法的VB程序段如下：
i = 1: j = 8: c = 0
Do While i <= j
c = c + 1
m = Fix((i + j) / 2)
If key = b(m) Then Exit Do 'Exit Do表示退出循环
If key < b(m) Then j = m - 1 Else i = m + 1
Loop
数组元素b(1)到b(8)的值依次为 “22,32,39,48,71,82,96,106”。若该程序段运行结束后，c的值为2，则key的值是

A．48或32

B．48或96

C．32或82

D．82或96

用VB编写求句子中最长单词的程序。输入要求:句子以“.”结束；单词之间用空格分隔，单词没有缩写形式和其它特殊形式。
运行界面如图所示，程序功能：在文本框Text1中输入待统计的句子，单击“统计”按钮Command1,将结果显示在文本框Text2和Text3中。

(1) 观察程序代码，可知“统计”按钮的对象名为_______。（单选，填字母：

A．统计

B．TextH

C．Command1

D．Tj）

(2)根据题意将下列程序补充完整。
Private Sub Tj_Click()
Dim i As Integer, k As Integer
Dim s As String, ch As String
Dim max As Integer '存储句子中最长单词的长度
Dim ss As String    '存储句子中最长的单词
s = Text1.Text
i = 1: k = 0: max = 0
ch = ""
Do While ch <> "." Or i <= Len(s)
ch = Mid(s, i, 1)
If ch <> " " And ch <> "." Then
___________
Else
k = 0
End If
If __________ Then
max = k
ss = ____________ 
End If
i = i + 1
Loop
Text2.Text = ss
Text3.Text = Str(max)
End Sub