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

在窗体上画一个名称为Label1的标签,然后编写如下事件过程，程序运行后,单击窗体,在标签中显示的内容是（   ）
Private Sub Form_Click(）
Dim arr(1 to 10, 1 to 10） As Integer
Dim i As Integer, j As Integer
For i =" 2" To 4
For j =" 2" To 4
arr(i, j） =" i" * j
Next j
Next i
Label1.Caption =" Str(arr(2," 2）+ arr(3, 3））
End Sub
(

A．12

B．13

C．14

D．15

求2+4+6+8+10+12+14+……100。
PRIVATE  SUB   FORM-----CLICK（ ）
DIM   I   AS  INTEGER，S   AS  INTEGER
FOR  I= 2  TO  100 __________
S=S+___________
NEXT  I
PRINT   S
END SUB

本程序要求完成的功能是：计算
s=1/1+2/(1*2)+3/(1*2*3)+…+ n/(1*2*3*…*n)的值。
请将已有VB代码补充完整。
n = inputbox(“请输入n的值”)
s = 0
________(1)________
For i =" 1" to n
t =" t" * i
s =" s" + ______(2)_______
Next i
Print s
（1）__________  （2）__________

波波同学一直梦想买彩票中500万大奖，他收集了最近100期“双色球”开奖信息，存储于data. accdb文件中，并使用VB软件编写了“双色球投注建议”程序，程序根据最近100期开奖信息，统计出现概率最低的6个红色球号码和1个蓝色球号码，给出投注建议。如果蓝色球有多个概率最低的号码，则输出多个，红色球不考虑并列概率量低情况。
注：福彩“双色球”玩法；在1-33个红色球影申随机生成6个号码，在1~16个蓝色球号码中随机生成个号码，共计6+1个号码开奖。
程序运行界面如图所示。

（1）实现上述功能的VB程序如下，请完善画线处的代码。
Dim red(l To 600) As Integer ＇用于存储100*6红色球信息
Dim blue(1 To 100) As Integer ＇用于存储100*1蓝色球信息
Private Sub Form_Load()
＇本过程用于从数据库data. accdb中读取最近100期双色球开奖信息
＇将100*6个红色球开奖信息依次存储在数组red()中
＇将100*1个蓝色球开奖信息依次存储在数组blue()中
＇将最近100期开奖信息格式化后显示在列表框List1中
＇本过程代码略
End Sub
Private Sub Command1_Click()
Dim min As Integer
Dim s As string
Dim f(1 To 33)As Integer
＇——以下开始处理蓝色球部分——
For b= 1 To 100
f(blue(b))= f(blue(b))+1
Next b
min= 100
For i= 1 To 16

If f(i)< min Then min f(i)

Next i
For i=1 To 16

If f(i)= min then s= ①_______

f(i)=0
Next i
List2. Additem"蓝色球重点买人:"十s
＇——以下开始处理红色球部分——
For r=1 To 600
②_________
Next r
③_________

（2）在某次红球部分处理时，若数组f中的，f(1)至f(33)的值依次为：

f(1)-f(11):	6	8	20	25	16	21	14	20	24	28	26
f(12)-f(22):	1	30	8	1	10	10	33	28	32	20	6
f(23)-f(33):	4	34	29	18	25	30	4	13	30	20	6

 
结合加虚线框处代码的算法，输出的内容是：
红色球重点买入：________________________.（按输出顺序写出6个红球号码)。