Base64编码是计算机中常见的一种编码方式，规则是把3个字节(24位)的数据按6位1组分成4组，然后将每组数据分别转换为十进制，根据下图将这些十进制数所对应的字符连接，即为Base64码。

以编码字符“Web”为例，字符“Web”对应的ASCII编码分别是87，101，98，分别转换为8位二进制数，按6位二进制数分组后再转换成十进制，查找他们的对应字符，得到“Web”的Base64编码为“V2Vi”。
（1）若某字符串的Base64编码为“QWEw”，则其原文是____________
（2）小高根据上述描述，设计了一个如下的将n(n是3的整数倍)个ASCII编码字符转换Base64
编码的VB程序，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim  a(1 To 100)  As Integer , b(1 To 100)  As  Integer
Base64="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
chr_asc = Text l. Text
n=Len (chr asc)
For  i=1 To n
______________‘①填空
Next i
For  i=0 To____________'②填空
b（i*4+1）=a(i*3+1）\4
b（i*4+2）=（a（i*3+1）Mod 4）*16+a(i*3+2)\16
b（i*4+3）= _____________③填空
b（i*4+4）=a(i*3+3) Mod 64
For  j=1 To 4
chr base = chr_base + Mid(Base64 , b(i*4+j)+1,1)
Next  j

Next  i

Text2. Text =chr_base

End Sub

编写“十六进制加法”程序。程序运行时，在文本框Text1和文本框Text2分别输入两个十六进制数，单击“计算”按钮后在文本框Text3上输出两个十六进制相加后的结果。程序运行如图所示。

（1）观察代码，触发代码执行的事件名是________________________
（2）实现上述功能的VB程序如下，请在划线处填人合适的代码。
Private Sub Cmd1_Click()
Dim a1 As String, a2 As String, sum As String, t As String
Dim b1 As Integer, b2 As Integer
Dim dist As Integer, x As Integer, jw As Integer
a1 = Text1.Text: a2 = Text2.Text: sum = ""
dist = Len(a1) - Len(a2)
If dist < 0 Then
t = a1: a1 = a2: a2 = t
___________________
End If
For i = 1 To dist
a2 = "0" + a2
Next i
jw = 0
For i = __________________________ 
If Mid(a1, i, 1) >= "A" And Mid(a1, i, 1) <= "F" Then
b1 = Asc(a1) - 55
Else
b1 = Val(Mid(a1, i, 1))
End If
If Mid(a2, i, 1) >= "A" And Mid(a2, i, 1) <= "F" Then
b2 = Asc(a2) - 55
Else
b2 = Val(Mid(a2, i, 1))
End If
x = b1 + b2 + jw
jw = x \ 16
If __________________ Then
sum = Chr(x Mod 16 + 55) + sum
Else
sum = Str(x Mod 16) + sum
End If
Next i
If jw = 1 Then sum = "1" + sum
Text3.Text = sum
End Sub
（3）若将代码中加框处代码删除，则图中Text3中显示的结果为_________。

请认真阅读并分析下面Visual Basic程序代码，按要求完成题目。
Dim a(1 To 6) As Integer
Dim n, i, j, k As Integer
Private Sub Command1_Click()
For i =" 1" To n - 1
For j =   （1） To n
If a(i) < a(j) Then
k = a(i):  （2）  : a(j) = k
End If
Next j
Next i
For i =" 1" To n
list2.AddItem Str(a(i))
Next I
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii =" 13" Then
n =" n" + 1
a(n) = Val(    (3)  )
List1.AddItem Str(a(n))
Text1.Text = "": Text1.SetFocus
End If
End Sub
①程序中出现了text和list两种控件，其中list控件的中文名称是列表框，text控件的中文名称是    。
（2）在上述程序段中3处带序号的空白地方补充恰当的语句，完善程序。

三个正整数a、b、c满足等式a²+b²=c²，a、b、c称为“勾股数”，求出100以内所有“勾股数
可采用的算法是（    ）

A．枚举算法

B．解析算法

C．冒泡排序

D．顺序查找

如图 1 所示，这是一个城市街道简图，小明从 A 点出发，到达 B 点，如果在每一个路口只能向右或向上走（0 表示向上走，1 表示向右走），问小明有多少条行走路线，并请输出每条路线。程序界面如图 2 所示

算法分析：从 A 点到 B 点共有 7 个路口，即可以有一个 7 位二进制数表示所走路线。观察以上路线，枚举所有满足路线特征的 7 位二进制数，再去掉不满足的二进制数即可。
（1）图 1 所示路线对应的十进制数为_____。
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim b As String, t As Integer, i As Integer, c As Integer, d As Integer
t = 0 '可走路线计数
For i = 15 To 120  '所有可走路线用十进制枚举
d = i
c = 0
b = ""
Do While d <> 0
If d Mod 2 = 1 Then
b = "1" + b
c = c + 1
If c > 4 Then Exit Do '若"1"的总数超过 4 个表示路线错误，需退出 Do 循环 Else
①_____________ End If
②____________ Loop
If c = 4 And Len(b) = 7 Then
t = t + 1
List1.AddItem b
End If
Next i
Label1.Caption = Str(t) + " 条"
End Sub