有一种数字加密算法如下：将该数位与其位置相加得到X，X除以10的余数即为编号，若余数为0，编号取10，再从密码表中找出与编号对应的加密字符，其密码表如下：

编号	1	2	3	4	5	6	7	8	9	10
加密字符	H	o	w	A	r	e	Y	O	U	?

 
例如：数字2018加密过程：

数字	2	0	1	8
位置	1	2	3	4
编号	3	2	4	12 mod 10=2
加密字符	w	o	A	o

 
按照上述方法，设计一个字符加密的VB程序，运行程序时，在文本框Text1中输入明文数字，单击加密按钮Command1，程序将明文加密，并将加密后的密文显示在文本框Text2中。程序运行效果如图所示。

（1）将命令按钮上显示的文本Command1”改为“加密”，可在其属性窗口中将____属性的属性值修改为“加密”。
（2）为实现上述功能，请在划线处填入合适代码或选项。
Private Sub Command1_Click()
Dim jm As String, s1 As String, s2 As String, x As Integer
jm = "HowAreYOU?"
s1 = ____________________
For i = 1 To Len(s1)
x = Val(Mid(s1, i, 1)) + i
x = ____________________
If x = 0 Then x = 10
s2 = ____________________
Next i
Text2.Text = s2
End Sub
（3）若密文是“YwUH”,则明文是____________________。

小明在VB中定义了以下函数，功能是求a和b的最大公约数。
Function gcd(a As Integer，b As Integer) As Integer
　Do While b＞0
c＝a Mod b
a＝b
b＝c
　Loop
End Function
调试中发现计算结果一直是0。经过仔细观察与分析，发现错误的原因是(　 )

A．函数名有错	B．变量c没有定义
C．函数没有返回值	D．b＞0应该改为b＞＝0

计算机在存储数字字符时，1个字符占1个字节（8位），现在有如下算法可以对数字字符的存储进行压缩：以每2个数字字符为一组，将其组成一个两位的十六进制数（如输入的“41”组成十六进制数41H），再转换为对应的ASCII字符进行存储。（注意：ASCII的最大值为127D，所以2个数字字符为一组时，第1个字符必须小于8，否则不合法）
例如：

输入	输出
414243	ABC
758927	不合法

 
小波用Visual Basic 6. 0软件编写了一个压缩程序，功能如下：在文本框Text1中输入需压缩数据（偶数个字符），单击“压缩”按钮，程序对压缩数据依次进行压缩处理，压缩数据显示在文本框Text2中。程序运行界面如图所示：

（1）结合程序代码，命令按钮“压缩”的对象名是_________________
（2）为实现上述功能，请在程序划线处填入合适的代码。
Private Sub cm1_Click()
Dim s1 As String，s2 As String，c1 As String，c2 As String
Dim i As Integer，k As Integer
s1 = Text1. Text
For i = 1 To Len(s1) Step 2

c1 = Mid(s1，i，1)

______________

If c1 >= “8” Then

s2 = “不合法”
Exit For  ‘跳出For循环

Else

k = _____________
s2 = s2 + Chr(k) ‘ Chr函数的作用，将ASCII码转换为字符，例Chr(65) = “A”

End If

Next i
Text2. Text = s2
End Sub
（3）若在文本框Text1中输入“61A2”，单击“压缩”按钮后，变量i的值为_________（单选，填字母：

A．3 /

B．4 /

C．5 /

D．程序错误）。

某对分查找算法的VB程序段如下: 
Dim a(l to 6)As Integer
i=1: j=6: n=0
key= Val(Textl. Text)
Do While i<=j
n=n+1
m=(i+j)\2
If key=a(m) Then Exit Do ＇Exit do为退出do循环
If key<a(m) Then
j=m-1
Else
i=m+1
LOOP
数组元素a(1)到a(6)的值依次为“1921，1927，1949，1998，2008，2019”。在文本框Text1中输入“1998”后运行该程序，则以上程序段运行结束后，下列说法正确的是（   ）

A．变量i的值为3

B．变量j的值为5

C．变量m的值为3

D．变量n的值为3

小宇为选定班级参赛作品编写了一个VB程序，设计如下：在文本框Text1内输入5位评委对3个作品的评分数据（评委对作品的评分数据由3位十进制数组成，第1位对应作品编号，第2、3位对应作品得分，分值范围为60,99。如“275”表示2号作品得分75）。单击“计分”按钮后，在标签Label1中输出3个作品的平均分，在标签Label2中输出参赛的作品（选择最高平均分作品参赛，若最高平均分存在并列，则从并列作品中随机柚取）。程序运行界面如图所示。

（1）“计分”按钮的对象名为_________。
（2）程序部分代码如下，请在划线处填入合适代码。
Private Suh jf_Click( )
Dim s As String，d As String，i As Integer
Dim f1 As Single，f2 As Single，f3 As Single
s = Text1. Text
i = 1
Do While ___________ 
d = Mid(s,i,3)
If  Mid(d,1,1) = "1”  Then
f1 = f1 + Val(Mid(d,2, 2))
ElseIf  Mid(d, 1, 1) = “2”  Then
f2 = f2 + Val(Mid(d,2, 2))
Else
f3 = f3 + Val(Mid(d,2, 2))
End If
________________
Loop
Label1.Caption="作品1平均分为:" + Str(f1 / 5)+ “作品2平均分为:” + Str(f2 / 5)+ “作品3平均分为:” + Str(f3 / 5)
'以下省略“处理并列最高平均分，并在Labd2中输出选取的参赛作品”的代码
End Sub
（3）运行该程序时，在文本框Text1中以不同的顺序输入原评分数据：
380/295/283/170/180/385/372/285/190/180/390/384/272/170/276,单击“计分”按钮，则Label1中显示的结果__________(选填:会/不会）发生改变。