奇偶校验是一种校验数据传输正确性的方法。其中奇校验方法：统计二进制数据的数位中“1”的个数，若个数为奇数，则校验位值为0，否则校验位值为1。小李编写了一个计算奇校验位值得VB程序，功能如下：在文本框Text1中输入1～255十进制待校验数，单击“计算”按钮Command1后，在文本框Text2中显示该数对应的二进制值，并在标签Label3中显示该数的校验位值。程序运行界面如图所示。
（1）在设计程序界面时，要清空文本框中的显示内容，应修改该文本框中的_______属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。

Private Sub Command1_Click()
Dim a As Integer, s As String
Dim n As Integer, t As Integer, v As Integer
n = Val(Text1.Text)
t = 0
s = ""
Do While n > 0
a = n Mod 2
n = n \ 2
t = ___________ 
s = Str(a) + s
Loop
v = t Mod 2
Text2.Text = s
Label3.Caption = "校验位值：" + ___________ 
End Sub
（3）运行该程序，在文本框Text1中输入22，单击“计算”按钮，则显示的校验位值是_____。

统计数字子串之和。用VB编写程序，在文本框Text1中输入任意字符串s，统计s中数字字符串的数值和（如输入字符串“ab123dr34fg9de”，则输出 166，即 123+34+9＝166），并在Label3输出结果。程序设计界面如下：

Private Sub Command1_Click()
Dim s As String, ch As String
Dim ch2 As String, sum As Double
Dim n As Integer, i As Integer
s = Text1.Text
①________
i =" 1:" sum = 0
Do While i <= n
ch =" Mid(s," i, 1)
If ch >= "0" And ch <= "9" Then
②________
ch2 =" Mid(s," j, 1)
Do While ch2 >= "0" And ch2 <= "9"
j =" j" + 1
ch2 =" Mid(s," j, 1)
Loop
sum =" sum" + ③________
i = j
End If
i =" i" + 1
Loop
Label3.Caption = Str(sum)
End Sub

（加试题）小王编写了一个实现文字查找替换功能的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

某种数据加密方法描述如下（加密前后的数值都是0~255的整数）：
•以m个数据为一段，将n个待加密数据依次分割成若干个数据段。剩余数据（个数小于 m）为一个独立数据段。
•数据段加密规则：
数据个数等于m的数据段，先进行值变换，再进行位置变换，得到加密数据段。
数据个数小于m的数据段，只进行值变换，直接得到加密数据段。
•依次合并加密数据段，即为最后的加密数据。
值变换：用值变换密钥数组x（元素个数为m，值为0~255的整数），将待加密数据段中的数据进行值变换，方法如下：
值变换后第i个元素=（待加密数据段第i个元素+ x（i）） Mod 256，其中i =" 1，2，…，m" 位置变换：用位置变换密钥数组y（元素个数为m，值为1~m的不重复整数），将上述值变换后的m个元素进行段内位置变换，方法如下：
加密后数据段第y（i）个元素=值变换后第i个元素，其中i = 1，2，…，m
例如，n="5，m" = 3的数据加密过程如下：
段内序号待加密数据密钥数组x 值变换后数据密钥数组y 加密后数据

（1）已知m = 3，数组x与数组y中的数据如下表所示。则待加密数据段“155，1，250”加密后的数据段为______（填数据，用逗号分隔）。

x（l）	x（2）	x（3）		y（l）	y（2）	y（3）
10	20	30		3	1	2

 
（2）小张根据上述加密算法，设计了一个对应的解密程序，其VB代码如下，请在划线处填入合适的代码（解密与加密使用相同的密钥数据）。
Private Sub Command1_Click（）
Const n= 100
Const m = 6
Dim i As Integer，j As Integer
Dim a（1 To n） As Integer，b（1 To n） As Integer
Dim x（1 To m） As Integer，y（1 To m） As Integer
'读取值变换与位置变换的密钥数据，分别保存在数组x与y中，代码略。
'读取待解密数据，保存在数组a中，代码略。
'下面进行位置变换：位置变换后数据保存到数组b中
For i =" 1" To ①
For j =" 1" To m
②
Next j Next i
For i =" （n" \ m） * m + 1 To n
b（i） = a（i）
Next i
'下面进行值变换：值变换后数据仍保存到数组b中
j = 1
For i =" 1" To n
b（i）=③
j =" j" + 1
If j > m
Then j = 1
Next i
'输出解密后数据，代码略。
End Sub

下列VB程序段功能为：根据文本框Text1中各字符的大小关系，计算各字符升序排列的序号，并将序号保存在数组y中。如文本框内容为“2011”，程序运行后y（1）〜y（4）各元素的值分别为“4，1，2，3”。
s =" Text1." Text
n = Len（s）
For i =" 1" To n
y（i） = 1
Next i
For i="1" To （1）
For j="（2）" To n
If （3） Then
y（j）=y（j）+1
Else
y（i） =" y（i）" + 1
End If
Next j
Next i
上述程序段3个方框处的表达式分别为

A．（1）n（2）1（3）Mid（s，j，1）>= Mid（s，i，1）

B．（1）n（2）1（3）Mid（s，j，1）> Mid（s，i，1）

C．（1）n-1（2）i+1（3）Mid（s，j，1）>= Mid（s，i，1）

D．（1）n-1（2）i+1（3）Mid（s，j，1）> Mid（s，i，1）

对于实数ｘ，保留2位小数且第3位四舍五入的ＶＢ表达式是（）

A．Int(x*100)/100

B．Int(x*1000)/100

C．Int(x*100+0.5)/100

D．(x*1000+5)\100

执行各选项的VB程序段后，变量s的值为“99以内所有正偶数之和”的是（）

A．S=0      For i = 2 To 99 Step 2 s = s + 2 Next i

B．For i = 2 To 98 s = s + i i = i + 2 Next i

C．s = 0 Do  While i<= 98 i = i + 2 s = s + i Loop

D．i = 2

Do  While i<100
s = s + i
i = i + 2
Loop

在VB中，设整型变量x、y的值分别是3、6，则下列语句中，能实现在标签Label1中显示“s = 18”的语句是（）

A．Label1.Caption = "s = x * y"

B．Label1.Caption = "s = " + Str(x * y)

C．Label1 = "s = " (x + y)＾ 2

D．Label1.Caption = "s = " + Val(x * y)

某算法的VB程序段如下:
i = 1: j = 7: s = ""
key = 34
Do While i <= j
m = (i + j) \ 2
If key = a(m) Then
s = s + "2": Exit Do    'Exit Do 表示退出循环
ElseIf key < a(m) Then
j = m - 1: s = s + "1"
Else
i = m + 1: s = s + "3"
End If
Loop
Text1.Text = s
数组元素a(1)到a（9）的值依次为“15，26，34，47，53，59，60，72，85”。若该程序段执行后，文本框Text1中显示的内容可能是（）

A．31

B．132

C．313

D．1312

某VB程序代码如下：
Dim n As Integer，s As String
n = 64 :s = ""
Do While n > 0
s = Str(n Mod 7) + s
n = n \ 7
Loop
执行该程序段后，变量s的值是（）

A．"121"

B．121

C．"211"

D．211