对称字符串的特征是从左到右读和从右到左读是完全一样的。如“abba”是对称的，“abcba”也是对称的。判断字符串是否对称的VB程序段如下：
n=Len(s) 's是待判断的字符串
k=0:j=n
For i=1 to n/2
 
Next i
If  k=0  Then Label1.Caption="对称"  Else  Label1.Caption="不对称"
方框中的代码由以下三部分组成：
①j=j-1
②If c1 <> c2 Then k = k+1
③c1=Mid(s,i,1) : c2=Mid(s,j,1)
代码顺序正确的选项是（　　）

A．①②③

B．②③①

C．③②①

D．②①③

小王设计了一个Visual Basic小程序，该程序的功能是将一个二进制数转化为十六进制数。程序运行时，在文本框Text1输入二进制数（由0、1构成的数串），单击“转换”按钮Command1后，在文本框Text2中显示转换结果。程序运行界面如下图所示。

实现上述功能的程序代码如下所示，请在划线处填上合适的代码：
Private Sub Command1_Click()
Dim x As String, y As String,
Dim i As Integer, s As Integer, n As Integer, c As String
Dim q As String, h As String, ans As String
n = Len(Text1.Text)
y = Text1.Text
If n Mod 4 <> 0 Then ________________
For i = 1 To s
y = "0" + y
Next i
For i = 1 To n Step 4
________________________
If h = "0000" Then q = "0"
If h = "0001" Then q = "1"
If h = "0010" Then q = "2"
If h = "0011" Then q = "3"
If h = "0100" Then q = "4"
If h = "0101" Then q = "5"
If h = "0110" Then q = "6"
If h = "0111" Then q = "7"
If h = "1000" Then q = "8"
If h = "1001" Then q = "9"
If h = "1010" Then q = "A"
If h = "1011" Then q = "B"
If h = "1100" Then q = "C"
If h = "1101" Then q = "D"
If h = "1110" Then q = "E"
If h = "1111" Then ___________________ 
ans =_____________________  
Next i
Text2.Text =ans
End Sub

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

兔子吃萝卜。兔子拔了一堆萝卜，第一天吃了一半，还嫌不过瘾，又吃了一个，第二天又将剩下的萝卜吃掉一半，又多吃了一个，以后每天如此。到第10天想再吃时，见只剩下一个萝卜了。求第一天共拔了多少萝卜。小明编写了一个VB程序，用于计算兔子第一天拔的萝卜总数。程序运行界面如图所示。

Private Sub Command1_Click()
Dim i As Integer，sum As Integer
sum＝1
For i＝9 To 1 ____①____
____②____
Next i
Text1.Text＝Str(sum)
End Sub
回答下列问题：
(1)该程序采用的算法是________(填：解析算法/枚举算法)
(2)显示计算结果的控件属于________类，该控件的名称是________。
(3)划线①处应填入的语句为________。
划线②处应填入的语句为________。

如果一个三位正整数等于它的每个数字的立方和，则此数称为“水仙花”数（如：153=1^3+5^3+3^3）。 下列程序用于求出 100-999 之间的所有“水仙花”数。
（1）设计下列程序界面时，在窗体上添加 List1 对象，可使用下图所示 的“控件工具箱”中的 （填写相应编号）。

（2）VB 程序如下： Private Sub Command1 Click（）
Dim m As Integer， n As Integer
Dim a As Integer，b As Integer,c As Integer For m =" 100" To 999
a =" Int(m/100)" b = ①   c= ②   n=a^3+b^3+c^3
If  ③ Then List1.AddItem Str(m) Next m
End Sub 在程序①、②、③划线处，填入适当的语句或表达式，把程序补充完整:
程序中①划线处应填入 。程序中②划线处应填入 。程序中③划线处应填入   。
（3）该程序是 算法。（选填：枚举/解析）