（加试题）小王编写了一个实现文字查找替换功能的VB程序，运行界面如图所示。文本框Text1显示原文内容，Text2中输入查找内容，Text3中输入替换内容，单击“全部替换”按钮Command1后，Text4显示查找替换的结果，Text5中显示替换的次数，Text6显示“查找内容”在原文中的起始位置。
实现上述功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
Dim s As String, resule As String, pos As String
Dim count As Integer, i As Integer
i =" 1:" count = 0
resule = "": pos = ""
Do While i <= Len(Text1.Text)
s =" Mid(Text1.Text," i, Len(Text2.Text))
If s =" Text2.Text" Then
result =" result" + Text3.Text
count =" count" + 1
pos =
①
i =" i" + Len(Text2.Text)
Else
②
i =" i" + 1
End If
Loop
Text4.Text = result
Text5.Text = Str(count)
Text6.Text = pos
End Sub
实现上述功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
Dim s As String, resule As String, pos As String
Dim count As Integer, i As Integer
i =" 1:" count = 0
resule = "": pos = ""
Do While i <= Len(Text1.Text)
s =" Mid(Text1.Text," i, Len(Text2.Text))
If s =" Text2.Text" Then
result =" result" + Text3.Text
count =" count" + 1
pos =
①i =" i" + Len(Text2.Text)
Else
②i =" i" + 1
End If
Loop
Text4.Text = result
Text5.Text = Str(count)
Text6.Text = pos
End Sub
建立一个VB程序窗体，如图所示，下列说法正确的是
| A．该窗体的名称是“第一个VB小程序” |
| B．当前选中对象的类名是“Lab4” |
| C．当前界面共有7个对象 |
| D．“VB01.vbp”是窗体文件名 |
用VB编程实现累加器，其功能如下：在文本框Text1中输入数字，中间用“，”隔开，单击命令按钮Command1后，其计算结果输出在标签框Label1中。运行界面如图所示，VB程序代码如下。
实现上述功能的VB程序如下，请回答下列问题：
（1）观察运行界面，该窗体中共有________个对象。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim ans As Integer, t As String, ch As String
Dim i As Integer，s As String
s = Text1.Text
t = "" : ans=0
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch = "," Then
ans = ①________
t = ""
Else
t = ②________
End If
Next i
Label1.Caption = "累加的结果是：" & Str(ans)
End Sub
（3）如图，若输入的“，”用“；”来代替，输入保持不变，则输出为_______________ 。
实现上述功能的VB程序如下，请回答下列问题：
（1）观察运行界面，该窗体中共有________个对象。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim ans As Integer, t As String, ch As String
Dim i As Integer，s As String
s = Text1.Text
t = "" : ans=0
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch = "," Then
ans = ①________
t = ""
Else
t = ②________
End If
Next i
Label1.Caption = "累加的结果是：" & Str(ans)
End Sub
（3）如图，若输入的“，”用“；”来代替，输入保持不变，则输出为_______________ 。
以下表达式中，表示”a 大于等于b并且a小于c”的表达式是（ ）。
| A．a≥b and a <c | B．a>=b or a <c |
| C．a>=b and a <c | D．a≥b or a <c |
（加试题）某排序算法如下：每一趟将一个待排序数据，按其值的大小使用对分查找思想在已排序序列中找到合适位置并插入，将所有待排序数据全部插入即完成排序。实现该算法的程序如下：在列表框List1中显示待排序数据，单击“排序”按钮Command1后，逐行显示排序过程。程序运行结果如图所示。
实现上述功能的VB程序如下，加框处代码有错，请改正。
Const n = 10 '变量n存储待排序数据个数
Dim d(1 To n) As Integer '数组d存储待排序数据
Private Sub APrint()
'本过程实现在列表框一行中输出数组d各个元素的值，代码略。
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, tmp As Integer
Dim m As Integer, low As Integer, high As Integer
'先将待排序数据存储在数组d中，代码略。
List1.AddItem "-----------待排序数据------------"
Call Aprint '在列表框List1中输出数组d的各个元素的值
List1.AddItem "-----------数据排序过程------------"
For i = 2 To n
tmp = d(i)
low = 1
high = n '(1)_____________
Do While low <= high
m = (low + high) \ 2
If tmp <= d(m) Then
high = m - 1
Else
low = m + 1
End If
Loop
For j = i - 1 To low Step -1
d(j + 1) = d(j)
Next j
d(low) = d(i) '(2)______________
Call APrint
Next i
End Sub
某编码由4 个信息位和3 个校验位组成，通过对编码信息进行验算，能够检测并纠正一位错误代码。该7 位编码中b1～b4 为信息位，p1～p3 为校验位，位置如下：
编码中位 | 1 | 2 | 3 | 4 | 5 | 6 | 7 |
对位信息 | p1 | p2 | b1 | p3 | b2 | b3 | b4 |
校验的方式如下，求校验值g1、g2、g3：
g1 = p1 Xor b1 Xor b2 Xor b4
g2 = p2 Xor b1 Xor b3 Xor b4
g3 = p3 Xor b2 Xor b3 Xor b4
其中Xor 为异或运算，规则是：0 Xor 0 =0，0 Xor 1 =1，1 Xor 0 =1，1 Xor 1 =0，
p1 Xor b1 是将p1、b1 转换为二进制后按位进行异或运算，如7 Xor 12 的结果为11。
（1）若计算得到的校验值g1、g2、g3 均为0，说明校验正确，数据无错误。例如：若7 位编码为1101001，计算校验值g1、g2、g3 值均为0，验证正确。
（2）若校验值g1、g2、g3 不全为0，说明数据有错，出错位置为g3g2g1（二进制数表示），纠错的方法是对错误的位进行取反，即“0”变“1”，“1”变“0”。例如：若7 位编码为1111001，计算校验值g1=1、g2=1、g3=0，不全为0，说明数据有错，错误位置在011（二进制数）位，即第3 位，原位置上“1”应为“0”，正确编码为1101001。
小明为此编写了VB 程序，程序运行时，在文本框Text1 中输入编码值，单击“校验”
按钮Command1 后，在文本框Text2 中输出运行结果,如图所示。
实现上述功能的 VB 程序如下，请回答下列问题：
（1）若按上述规则的7 位编码为1001000，其中一位有错，则正确的编码应为______________________。
（2）请在划线处填入合适的代码。
Function check(s As String) As Integer
Dim i As Integer, g1 As Integer, g2 As Integer, g3 As Integer
Dim c(1 To 7) As Integer
For i = 1 To 7
c(i) = Val(Mid(s, i, 1))
Next i
g1 = c(1) Xor c(3) Xor c(5) Xor c(7)
g2 = c(2) Xor c(3) Xor c(6) Xor c(7)
g3 = c(4) Xor c(5) Xor c(6) Xor c(7)
If g1 + g2 + g3 = 0 Then check = 0 Else check = ①__________
End Function
Private Sub Command1_Click()
Dim i As Integer, m As Integer, Outs As String
m = ②__________
If m = 0 Then
Text2.Text = "验证正确，数据无错误"
Else
For i = 1 To 7
If i = m Then
Outs = Outs + Chr( Asc(Mid(Text1.Text, i, 1)) Xor ③__________)
Else
Outs = Outs + Mid(Text1.Text, i, 1)
End If
Next i
Text2.Text = "第" + Str(m) + "位上数据有错误，正确编码应为:" + Outs
End If
End Sub
(二进制转十六进制)从文本框 TextB 输入一串不带符号位的二进制整数，单击“转换”按钮，将二进制转换为十六进制并显示在文本框 TextH 中。程序界面如图所示：
转换方法：先从右往左将二进制数分割成 4 位一组，若最左边的一组不足4位，则用 0 将高位补足，然后将每 4 位二进制数转换为 1 位十六进制数。
（1）观察程序代码，可知“转换”按钮的对象名为____________。（单选，填字母：
（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Convert_Click()
Dim a(1 To 100) As Integer, temp As Integer
Dim s As String, res As String, n As Integer, r As Integer
res = ""
s=TextB.text
n = Len(s)
For i = 1 To n
a(i) = Val(Mid(s, i, 1))
Next i
t = n \ 4
r = ①
temp = 0
For i = 1 To r '将最高的 r 位转换为十六进制
②
Next i
If temp > 9 Then
res = Chr(temp + 55)
ElseIf temp > 0 Then
res = CStr(temp) ‘Cstr()函数用于将数值转换为字符串，同时删除前导空格
End If
For i = 1 To t '将t组4位二进制转换为十六进制
Temp=0
For j=1 to 4
temp = temp+a(j+r+4*(i-1))*2^(4-j)
Next j
If temp > 9 Then
res = res + Chr(temp + 55)
Else
res = res + CStr(temp)
End If
Next i
TextH.Text = res
End Sub
第①处代码为______________________________________________
第②处代码为______________________________________________
（3）若在文本框 TextB 中输入“101000111”，则单击”转换”按钮后的输出结果为:_________。
转换方法：先从右往左将二进制数分割成 4 位一组，若最左边的一组不足4位，则用 0 将高位补足，然后将每 4 位二进制数转换为 1 位十六进制数。
（1）观察程序代码，可知“转换”按钮的对象名为____________。（单选，填字母：
| A．TextB/ B.TextH/ | B．Command1/ | C．Convert/ | D．转换） |
Private Sub Convert_Click()
Dim a(1 To 100) As Integer, temp As Integer
Dim s As String, res As String, n As Integer, r As Integer
res = ""
s=TextB.text
n = Len(s)
For i = 1 To n
a(i) = Val(Mid(s, i, 1))
Next i
t = n \ 4
r = ①
temp = 0
For i = 1 To r '将最高的 r 位转换为十六进制
②
Next i
If temp > 9 Then
res = Chr(temp + 55)
ElseIf temp > 0 Then
res = CStr(temp) ‘Cstr()函数用于将数值转换为字符串，同时删除前导空格
End If
For i = 1 To t '将t组4位二进制转换为十六进制
Temp=0
For j=1 to 4
temp = temp+a(j+r+4*(i-1))*2^(4-j)
Next j
If temp > 9 Then
res = res + Chr(temp + 55)
Else
res = res + CStr(temp)
End If
Next i
TextH.Text = res
End Sub
第①处代码为______________________________________________
第②处代码为______________________________________________
（3）若在文本框 TextB 中输入“101000111”，则单击”转换”按钮后的输出结果为:_________。