某VB的事件过程如下：
Pirvate Sub Command1_Click()
a = Val(Text1.Text)
b = a * a + 1
Text1.Text = b
End Sub
程序运行时，在文本框Text1中输入2，连续两次单击命令按钮Command1后，Text1中显示的内容是（   ）

A．677

B．2

C．26

D．5

从原点（0，0）出发，顺时针旋转，经过平面上所有整点恰好一次，我们称之为螺旋折线，如图所示。对于整点（x，y），我们定义它到原点的距离是从原点到（x，y）的螺旋折线段的长度。例如：x=0，y=1，则螺旋折线段的长度为3；x=-2，y=-1，则螺旋折线段的长度为9。

现要求计算从原点到整点（x，y）螺旋折线段的长度。小王根据上述描述设计如下VB程序，请回答下列问题：
（1）从原点到整点（4，0）螺旋折线段的长度为____________。
（2）请在画线处填入合适的代码。
Dim x As Integer,y As Integer    'x用于存储横坐标的值,y用于存储纵坐标的值
Private Sub Command1 _ Click()
Dim sum As Integer,m As Integer
Dim dx As Integer,dy As Integer
Dim i As Integer,t As Integer
x=Val(Text1. Text)
y =Val(Text2. Text)
dx = 0:dy=0
sum=0
m=1:t=-1
Do While not check(dx,dy)
For i=1 To m
If check(dx,dy)Then exit do    'Exit do表示退出Do循环
dx = dx+t
sum = sum+1
Next i
①_____
For i=1 To m
If check(dx,dy)Then Exit Do
②_____
sum = sum + 1
Next i
m=m+1
Loop
Label1. Caption= Str(sum)
End sub
Function check(xl As Integer,y1 As Integer)As Boolean
check = False
If x1=x And y1=yThen
③_____
End If
End function

某VB程序段如下：
s = "Hello World"
s1 = ""
n = Len(s)
For i = 1 To n \2

If Mid(s, i, 1) > Mid(s, n - i + 1, 1) Then

s1 = s1 + Mid(s, i, 1)

Else

s1 = Mid(s, n - i + 1, 1) + s1

End If

Next i
Text1.Text = s1
执行该程序段后，在文本框Text1中显示的是（   ）

A．WlleH

B．oorld

C．dlroo

D．orldo

小林编写了一个用于1至9之间整数加减乘除运算的小程序，具体功能如下：在文本框 Text1中输入一个算术表达式（该表达式仅包含1至9之间的整数和加减乘除运算符，其中最后一个运算符肯定是乘或除，且乘或除运算符的前和后一个运算符仅可能为加减或没有），单击“计算”按钮Command1，将运算结果显示在 Label2中。程序运行界面如图所示，实现上述功能的VB程序如下，请回答下列问题：

（1）将窗体标题更改为“简单算术运算”，应修改窗体的________________属性的属性值。
（2）请在划线处填入合适的代码。
（3）加框处的代码有错误，请改正。
Private Sub Commandl_ Click()
Dim s As String, c As String, i As Integer
Dim sum As Single, suml As Single, sum2 As Single, k As Integer, j As Integer
s= Text1. Text: sum2= 0:k=1
For i= I To Len(s)
c= ____________________

If c=“*” Or c=“/”Then

If c=“*” Then
sum= Val (Mid (s, i+ 1. 1)* Val (Mid (s, i- 1, 1))
Else
sum= Val (Mid (s, i- 1,1)/Val (Mid (s, i+ 1, 1))
End If
j= i-2
Do While ________
c= Mid（s, j, D）
If c=“+” Then suml- Val (Mid (s, j- l, 1))+sum
If c=“-” Then suml – Val (Mid (s, j-1, i))-sum
sum= sum1
j= j- 1

Loop

If  k= 1 Then

sum2= sum2 + sum

Else

c= Mid(s, k, 1)
If c=“+”Then sum2= sum2 + sum
If c=“-”Then sum2= sum2- sum

End If

k= _________________

End If
sum = 0
Next i
Label2. Caption=sum2
End Sub

下列VB程序运行时，（如图所示），
PirvateSub
Command1_Click()     
a = Val(Text1.Text)
b = Val(Text2.Text)
Text3.Text = a + b
End Sub

在文本框Text1中输入20，在文本框Text2中输入13，单击命令按钮Command1后，文本框Text3中显示的内容是（ ）

A．33

B．”33”

C．”2013”

D．2013

如图所示，三个文本框自上而下的顺序是Text1，text2，text3，在文本框text1中输入3，在文本框text2中输入4。单击命令按钮“计算”后，文本框Text3中显示的内容是(   )

A．14

B．12

C．25

D．24

有如下VB程序段：
a(1)= 5:a(2)= 3:a(3)= 6:a(4)= 8:a(5)= 9
For i = 0 To 10
b(i)= i
Next i
j = 0
For i = 1 To 5
b(j)= a(i):j = b(j)
Next i
j = 0:key = Val(Text1.Text)
Do While j < > b(j)
If key < > b(j) Then
List1. AddItem Str(b(j))
j = b(j)
Else
If b(b(j)) < > b(j)Then
t = b(j):b(j)= b(t):b(t)= t
Else
b(j)= j
End If
End If
Loop
运行该程序段，在文本框Text1中输入6，则列表框List1中第3行显示的内容为（ ）

A．3

B．5

C．8

D．9

有如下VB程序其功能是实现正话反说（即将输入字符逆序输出）：
Function ZF(S As String) As String
Dim n  As Integer
n = Len(S)
If  （1）    Then
ZF =____（2）____
Else
ZF = Mid(S, n, 1) + ZF(Mid(S, 1, n - 1))
End If
End Function
Private Sub Command2_Click()
Dim x As String
x = Text1.Text
Text2.Text = ZF(x)
End Sub
该程序采用的算法和划线处应该填入的内容分别为（   ）

A．解析 （1） n<=1  （2） s

B．解析 （1） n>=1  （2） Mid(s,n,1)

C．递归 （1） n>=1  （2） s

D．递归 （1） n<=1  （2） Mid(s,n,1)

某数据加密方法描述如下：先将字符转化为二进制的数据并显示在文本框Text2中，数据位数显示在标签Label1中。以16个数据为一段，将k个待加密数据依次分割成若干个数据段，剩余数据(个数小于16)为独立数据段。数据加密规则：数据个数等于16的数据段，在段内进行位置变换，得到加密数据段。数据个数小于16的数据段，直接得到加密数据段。依次合并加密数据段，即为最后的加密数据。位置变换的规
则如下：

具体界面如图所示：

请回答下列问题：
（1）已知k=34,则数组元素b(26)对应的值是数组a的_______________｡
（2）为实现上述功能,请在划线处填入合适的代码｡
Private Sub Command1_Click()
Dim a (1 To 1000) As Integer, b (1 To 1000)
As Integer
Dim n As Integer, m As Integer
Dim s As String, s1 As String, c As Integer,
ch As String
s = Text1.Text: Text2.Text = ""
n = Len(s)
k = 1
For i = 1 To n  '获取字符的二进制数据存放在数组a 中
n = Asc(Mid(s, i, 1))
Do While n <> 0
a(k) = n Mod 2
n = n \2
Text2.Text = Text2.Text + Str(a(k))
k = k + 1
Loop
Next i
__________
List1.Clear
'对字符二进制按规则进行位变换，变换后的数据存放
在数组 b 中并输出
For m = 1 To (k - 1) \16
For i = 1 To 4
b(16 ∗ (m - 1) + 4 ∗ (i - 1) + 1) = a((m- 1) ∗ 16 + i)
___________
Next i
For i = 1 To 3
b(16 ∗ (m - 1) + 4 ∗ (i - 1) + 3) = a((m- 1) ∗ 16 + 10 + i)
b(16 ∗ (m - 1) + 4 ∗ (i - 1) + 2) = a((m- 1) ∗ 16 + 17 - i)
Next i
For i = 1 To 2
b(16 ∗ (m - 1) + 13 + i) = a((m - 1) ∗16 + 4 + i)
Next i
For i = 1 To 4
s1 = ""
For j = 1 To 4
s1 = s1 + Str(b(16 ∗ (m - 1) + (i -1) ∗ 4 + j))
Next j
List1.AddItem s1
Next i
List1.AddItem ""
Next m
s1 = ""
For i = ((k - 1) \16) ∗ 16 + 1 To k - 1
b(i) = a(i)
If _______________ then
s1= s1 + Str(a(i))
List1.AddItem s1
s1 = ""
Else
s1 = s1 + Str(a(i))
End If
Next i
List1.AddItem s1
Text3.Text = ""
For i = 1 To k- 1
Text3.Text = Text3.Text + Str(b(i))
Next i
End Sub

小丁想买几张6+1彩票，选号时，他希望前4位用自己的生日：11月8日，即1108，特别号码他选了买彩票日子的个位数5，并且他希望前六个数字组成的数能被他的幸运数字9整除。他的好朋友小杰帮他设计了一个VB程序，可以提供一份符合这些要求的号码清单供他挑选。相应的界面如图-1所示。阅读程序并完成后面的问题。

（1）设计应用程序界面时，为添加a所指向的对象，应使用-2图所示的“控件工具箱”中的______（填写相应编号）；在-3图所示的“属性窗口”中，将______属性值设置为“开始”，可使图-2中b所指向的对象显示“开始”。

（2）请根据题意将下列程序补充完整。
Private Sub Command1_Click()
Dim i, j, c As Integer
Dim n As Long
c = 0
For i =" 0" To 99
n =" 110800" + i
If     ①     Then
List1.AddItem Str(n) + " " + "5"
c =" c" + 1
End If
Next i
Label2.Caption = "满足条件的数有：" + Str(c) + "组"
End Sub