小王设计“模拟撤销”程序，需要用一个“历史记录”，“历史记录”是在对字符串s进行插入或删除时，将每步操作信息依次存储得到的，操作信息由操作符（“+”表示插入，“－”表示删除）、操作位置和操作字符串（只包含英文字母）构成，例如，“+23abc”表示在字符串s第23个位插入了“abc”，“模拟撤销”过程按照“历史记录”的逆序进行，将字符串s的内容恢复到初始状态。对字符串“Book”的操作与撤销过程，如下图所示。
小王编写的“模拟撤销”VB程序如下，文本框 Text1中的内容是撤销前字符串，文本概Text2中的内容是历史记录，单击“撤销”按钮Command1后，在标签Label1中显示撤销过程，程序运行界面如由下图所示。
（1）实观上述功能的VB程序如下，在程序中出现的对象没有Caption属性的是______ 。（选填，填字码：
（2）请在划线处填入合适代码。
Private Sub Command1_Click()
Dim s As String, t As String, ch As String
Dim c As String, num As String, ss As String
Dim n As Integer, i As Integer
s = Text1.Text: t = Text2.Text
c = "": num = "": ss = s
For i = Len(t) To 1 Step -1
___________________
If ch >= "a" And ch <= "z" Or ch >= "A" And ch = "Z" Then
c = ch + c
ElseIf ch >= "0" And ch <= "9" Then
num = ch + num
Else
n = Val(num)
If ch = "－" Then
s = Mid(s, 1, n - 1) + ____________________________
Else
s = Mid(s, 1, n - 1) + Mid(s, n + Len(c), Len(s) - n - Len(c) + 1)
End If
ss = ss + "→" + s
c = "": num = ""
End If
Next i
Label1.Caption = ss
End Sub
（3）运行该程序，若文本框Text1中的内容是"April"，文本框Text2中的内容是”－3p+3ri－6e”，单击撤销按钮，For循环语句执行完成后，字符串s的值是_____________。
小王编写的“模拟撤销”VB程序如下，文本框 Text1中的内容是撤销前字符串，文本概Text2中的内容是历史记录，单击“撤销”按钮Command1后，在标签Label1中显示撤销过程，程序运行界面如由下图所示。
（1）实观上述功能的VB程序如下，在程序中出现的对象没有Caption属性的是______ 。（选填，填字码：
| A．Label1 / | B．Command1 / | C．Text1和Text2） |
Private Sub Command1_Click()
Dim s As String, t As String, ch As String
Dim c As String, num As String, ss As String
Dim n As Integer, i As Integer
s = Text1.Text: t = Text2.Text
c = "": num = "": ss = s
For i = Len(t) To 1 Step -1
___________________
If ch >= "a" And ch <= "z" Or ch >= "A" And ch = "Z" Then
c = ch + c
ElseIf ch >= "0" And ch <= "9" Then
num = ch + num
Else
n = Val(num)
If ch = "－" Then
s = Mid(s, 1, n - 1) + ____________________________
Else
s = Mid(s, 1, n - 1) + Mid(s, n + Len(c), Len(s) - n - Len(c) + 1)
End If
ss = ss + "→" + s
c = "": num = ""
End If
Next i
Label1.Caption = ss
End Sub
（3）运行该程序，若文本框Text1中的内容是"April"，文本框Text2中的内容是”－3p+3ri－6e”，单击撤销按钮，For循环语句执行完成后，字符串s的值是_____________。
有序（非降序）数组A有n个元素，用对分查找算法在数组A中查找key值所在的位置，如果有重复的元素，则显示最早出现该key值的位置。相应的VB程序段如下：
key = Val(Text1.Text)
i = 1: j = n
Do While i <= j
m = (i + j) \ 2
If a(m) > key Then
j = m - 1
ElseIf a(m) < key Then
i = m + 1
Else
If ① Then
j = m - 1
Else
Label2.Caption = Str(key) + "的起始位置是" + Str(m)
Exit Do
End If
End If
Loop
If i > j Then
Label2.Caption = "找不到" + Str(key)
End If
要使程序实现上述算法思想，则方框中的语句是
key = Val(Text1.Text)
i = 1: j = n
Do While i <= j
m = (i + j) \ 2
If a(m) > key Then
j = m - 1
ElseIf a(m) < key Then
i = m + 1
Else
If ① Then
j = m - 1
Else
Label2.Caption = Str(key) + "的起始位置是" + Str(m)
Exit Do
End If
End If
Loop
If i > j Then
Label2.Caption = "找不到" + Str(key)
End If
要使程序实现上述算法思想，则方框中的语句是
| A．a(m - 1) = key | B．a(m) = key | C．m - 1 >= 0 And a(m - 1) = key | D．m - 1 >= 0 And a(m) = key |
（加试题）入围“十佳歌手”的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 |
在我国古代《孙子算经》中曾经提出这样一个问题，原文是这样的：“今有物，不知其数，三三数之，剩二；五五数之，剩三；七七数之，剩二；问物几何？”试用枚举算法来解决这一个问题。现分析如下，所寻找之数为满足如下条件的自然数：以3除余2，以5除余3，以7除余2。程序将从自然数1开始依次寻找，逐一判断某一自然数是否满足全部条件，直至在指定范围内找到满足条件的所有自然数。程序代码如下，请补充完整。
Private Sub Command1_Click()
Dim p As Integer 'sum 用来统计符合条件的自然数个数'
Dim n As Integer
Dim max As Integer '指定查找范围的最大自然数
List1.Clear
p = 0
max = Val(Text1.Text) 'Text1文本框中输入
n = 0
Do While n <= max
n = n + 1 '从自然数1开始不断往上寻找
If ① Then
List1.AddItem Str(n) '找到后在List1中显示结果
p=p+1
End If
Loop
List1.AddItem ("共计" + Str(n) + "个") ②
End Sub
应用程序界面设计时，为添加“ Text1”对象，应使用下图图所示的“控件工具箱”中的_________（填写相应编号），为了让文本框中的内容没有输入前显示为空，则可将_________属性值设置为空。
（2）程序中①划线处应填入___________,程序中②处一句话中有错误，应更改为______________。
（加试题）下列有关查找的说法，不正确的是( ）
| A．进行对分查找时，被查找的数据必须是有序的 |
| B．对数据进行顺序查找时，必定比对分查找的查找次数要多 |
| C．某数据序列可以进行对分查找，那么必定也能进行顺序查找 |
| D．进行顺序查找时，被查找的数据可以是有序的，也可以无序的 |
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
高二（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
（加试题）某程序的部分代码如下：
Dim a(1 to 8) As Integer
Dim i As Integer ,k As Integer,key As Integer
Key=Val(Tet1.Text)
For i=1 to 8
If a(i)= key Then k=i
Next i
数组元素a(1)到ａ(8)的数据依次为“6、68、9、25、56、67、25、11”，查找元素key为25，则程序执行后，变量ｋ的值为（ ）
Dim a(1 to 8) As Integer
Dim i As Integer ,k As Integer,key As Integer
Key=Val(Tet1.Text)
For i=1 to 8
If a(i)= key Then k=i
Next i
数组元素a(1)到ａ(8)的数据依次为“6、68、9、25、56、67、25、11”，查找元素key为25，则程序执行后，变量ｋ的值为（ ）
| A．1 | B．4 | C．7 | D．8 |
用VB编写求句子中最长单词的程序。输入要求:句子以“.”结束；单词之间用空格分隔，单词没有缩写形式和其它特殊形式。
运行界面如图所示，程序功能：在文本框Text1中输入待统计的句子，单击“统计”按钮Command1,将结果显示在文本框Text2和Text3中。
(1) 观察程序代码，可知“统计”按钮的对象名为_______。（单选，填字母：
(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
运行界面如图所示，程序功能：在文本框Text1中输入待统计的句子，单击“统计”按钮Command1,将结果显示在文本框Text2和Text3中。
(1) 观察程序代码，可知“统计”按钮的对象名为_______。（单选，填字母：
| A．统计 | B．TextH | C．Command1 | D．Tj） |
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
某VB程序段如下所示：
Dim x As String
Private Sub Form_Load()
x = ""
End Sub
Private Sub Text1_Change()
Dim s As String, k As String
Dim i As Integer
s = "0123456789ABCDEF"
k = Text1.Text
For i = 1 To Len(s)
If Mid(s, i, 1) = k Then x = x + k
Next i
If x = "" Then x = "没有找到！"
Label1.Caption = x
End Sub
若在文本框Text1中依次输入“2”和“9”，则Label1上显示的内容为
Dim x As String
Private Sub Form_Load()
x = ""
End Sub
Private Sub Text1_Change()
Dim s As String, k As String
Dim i As Integer
s = "0123456789ABCDEF"
k = Text1.Text
For i = 1 To Len(s)
If Mid(s, i, 1) = k Then x = x + k
Next i
If x = "" Then x = "没有找到！"
Label1.Caption = x
End Sub
若在文本框Text1中依次输入“2”和“9”，则Label1上显示的内容为
| A．11 | B．2 | C．9 | D．29 |
某对分查找算法的VB 程序段如下:
i=l:j=9:n=0
key=Val(Text1,Text)
Do While i<=j
n=n+1
m=Fix((i+j) / 2)
If key=d(m) Then Exit Do ’Exit Do 表示退出循环
If key<d(m) Then j=m-1 Else i=m+1
Loop
数组元素d(1)到d(9)的值依次为“7,12,18,25,39,58,61,72,86”｡若该程序段运行结束后,n 的值为2,则key 的值是( )
i=l:j=9:n=0
key=Val(Text1,Text)
Do While i<=j
n=n+1
m=Fix((i+j) / 2)
If key=d(m) Then Exit Do ’Exit Do 表示退出循环
If key<d(m) Then j=m-1 Else i=m+1
Loop
数组元素d(1)到d(9)的值依次为“7,12,18,25,39,58,61,72,86”｡若该程序段运行结束后,n 的值为2,则key 的值是( )
| A．39 | B．18 或61 | C．18 或72 | D．12 或61 |