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

A班一组同学的英语成绩分别为24、27、16、15、24、18，下列采用排序算法及第二遍的排序结果分别为（ ）

原始数据	24	27	16	15	24	18
第一遍	27	24	16	15	24	18
第二遍
第三遍	27	24	24	15	16	18
第四遍	27	24	24	18	16	15
第五遍	27	24	24	18	16	15

 

A．冒泡排序，27 24 16 15 24 18	B．冒泡排序，27 24 18 16 15 24
C．选择排序，27 24 16 15 24 18	D．选择排序，27 24 18 16 15 24

求满足首尾两个数字相等的所有四位正整数之和。
（1）写出能表示“一个四位正整数X的千位数字和个位数字相等”的VB表达式
_______________________________________________________________
（2）将下列程序填写完整，求所有满足上述条件的四位正整数之和
Dim x as integer,p1 as integer,p2 as integer,s as long
S=0
Print “s=”;s
______________________________________________________________

某多选题共有6个候选项（A、B、C、D、E、F），得分规则是：全部答对得2分，部分答对得1分，未作答或有错误答案0分。设计一个能够评分的程序，要求如下：在文本框Text1中输入标准答案，在文本框Text2中输入学生答案。点击评分按钮Command1后，将得分显示在标签Label4中。程序界面如图所示：

（1）要使程序运行后，窗体Form1的标题栏中显示“评分”，正确的做法是_____ （单选，填字母：

A．将窗体的Text属性改为“评分”/

B．在Form1_Load事件中输入代码Form1.Caption=”评分”/

C．在Form1_Load事件中输入代码Form1.Name=”评分”）；

(2)实现上述功能的程序如下，请在划线处填入合适的代码：
Private Sub Command1Click
Dim cans As String ,ans As String ,c As String ,count As Integer
Dim f(1 To 6) As Boolean
cans = Text1.Text:ans = Text2.Text
count = 0
For i = 1 To Len(cans)
c = Mid(cans, i, 1)
f(Asc(c) - 64) = True
Next i
For i = 1 To ①______     
c = Mid(ans, i, 1)
If f(Asc(c) - 64) = False Then
count = 0: Exit For
Else
count = count + 1
End If
Next i
If count = 0 Then
Label4.Caption = "0分"
ElseIf ②______ Then    
Label4.Caption = "2分"
Else
Label4.Caption = "1分"
End If
End Sub
（3）若去除加框处代码，且将文本框Text2的内容改为“BCD”，标签Label4显示的内容是_______。

王敏的 QQ 密码忘记了，试了很多次都没有成功，请你帮她尽可能找出密码。她零星记得自己的密码信息：①密码是六位数字，前面两位为 31；②最后两位数字相同；③能被 16 和 46 整除。程序界面如图所示，单击“帮助找回密码”按钮，可能的密码显示在列表框 List1 中。解决此问题的相应程序如下，完成相应的填充。

Private Sub Command1_Click（）
Dim a As Integer , s As Long , b As Integer , i As Integer
For i=0 To 9999 ___________
s=310000+i
If s Mod 46 = 0 Then
a = s mod 10
b=(s\10)mod 10
If ___________Then
___________
End If
End If
Next i
End Sub