曲哲同学设计了一个英文字符串的加密算法,其加密的方法如下:
1.从被加密字符串中获取单个字符，然后得到其ascii码的8位二进制编码。
2.将字符的二进制编码反向，得到其逆序二进制码。
3.将逆序二进制码的每4位转换为相应的十六进制编码，即得到单个字符加密后的字符串。
4.以此类推，直到所有字符加密完成，得到加密字符串。
具体程序界面如下图，在text1中输入字符串，点击“加密”按钮command1后，在text2中显示加密后的字符串。
（1）已知字符a的ascii码为97，则字符串idear加密后的字符串为____________________。
（2）阅读整段程序，程序中①画线处应填入
程序中②画线处应填入     。:学+科+网

Private Sub Command1_Click()
Dim s As String, ch As String
Dim result As String, chA As String, chB As String
Dim i As Integer, j As Integer
Dim n As Integer, m As Integer
s = Text1.Text
n = Len(s)
result = "": c = "0123456789ABCDEF"
For i =" 1" To n
ch =  ①
ch = niXu(ch)
m = 0
For j =" 1" To 4  ' 获取二进制码前4位的值
②
Next
chA =" Mid(c," m + 1, 1)
m = 0
For j =" 5" To Len(ch)
m =" m" * 2 + Val(Mid(ch, j, 1))
Next
chB =" Mid(c," m + 1, 1)
result =" result" + chA + chB
Next
Text2.Text = result
End Sub
' 得到单个字符ch的8位二进制编码
Function D2B(ByVal ch As String) As String
Dim s As String
Dim data As Integer, i As Integer
data = Asc(ch)：s = ""
Do While data > 0
s ="Str(data" Mod 2) + s
data =" data" \ 2
Loop
If Len(s) < 8 Then
For i =" 1" To 8 - Len(s)
s = "0" + s
Next
D2B = s
Else
D2B = s
End If
End Function
' 返回字符串s的逆序
Function niXu(ByVal s As String) As String
Dim i As Integer：Dim r As String
r = ""
For i =" Len(s)" To 1 Step -1
r =" r" + Mid(s, i, 1)
Next
niXu = r
End Function

如下图VB的文件菜单所示，若想生成能在Windows环境中直接运行的文件应选择________。

A．①

B．②

C．③

D．④

小金编写了一个统计随机数分布的VB程序，部分程序如下所示，在调试程序的时候出现如右图所示的错误信息：

n =0 : m = 0
For  i =1 To 100
If  Rnd > 0.5  Then
n = n + 1
Else
m = m + 1
Next  i
……
小金仔细分析该程序段后，发现其中缺少了（ ）

A．For

B．End If

C．Next

D．If

若变量a=2，b=1，则逻辑表达式：
not(a> -b) or (a+b="3)" and (a<b)的值为_______。

A．F

B．T

C．3

D．-3

输入两个在 1 和 9 之间的正整数 a 和 n ，求 a+aa+aaa+aaaa+…+a…a（n 个 a）之和｡为解决该问题，小明设计了一个 VB程序，在文本框 Text1 中输入 a 的值，在文本框 Text2 中输入 n的值，单击“计算”按钮 Command1，在列表框 List1 中输出每次相加的等式和结果，界面如图所示｡

（1）要使程序运行时，文本框 Text1 的文字大小 FontSize 属性值设置为 12，可在 Form_Load 事件过程中添加语句__________________（单选，填字母：

A．FontSize = 12 /

B．Text1. FontSize =12 /

C．FontSize. Text1=12）｡

（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码｡
Private Sub Command1_Click()
Dim a As Long, n As Integer, s As Long
Dim s1 As String, t As Long
a =Val(Text1. Text)
n =Val(Text2. Text)
If a < 1 Or a > 9 Then
List1. AddItem "输入 a 的值无效"
ElseIf n < 1 Or n > 9 Then
List1. AddItem "输入 n 的值无效"
Else
s = a: t = a
s1 =Str(t)
List1. AddItem s1 +"=" + Str(s)
i =  ①__________ 
Do While i <= n
②__________ 
s = s + t
s1 = s1 + "+" +Str(t)
List1. AddItem s1 + "=" + Str(s)
③__________
Loop
End If
End Sub