编写VB程序，实现如下功能：在文本框Txt1中输入字符串，如“12321”、“abba”，点击Com1按钮，判断输入的字符串是否对称，即从左读到右与从右读到左完全一样，并在标签lab2上显示判断结果。

(1）   在程序代码中，第一行语句“Private Sub Com1_Click( )”中的Com1_Click( )是_____________(填字母：

A．对象名 /

B．事件名 /

C．事件处理过程名 /

D．方法名）

(2）为实现上述功能，请在划线处填入合适的代码或语句。

Private Sub Com1_Click()
Dim s As String, c1 As String, c2 As String
Dim n As Integer, i As Integer
Dim f As ①____________.
s = Txt1.Text
n = Len(s)
f = True
For i = 1 To n \ 2
c1 = Mid(s, i, 1)

②___________.

  If c1 <> c2 Then
③___________.
Exit For     '退出For循环
End If
Next i
If f = True Then
Lab2.Caption = "对称"
Else
Lab2.Caption = "不对称"
End If
End Sub

有如下VB程序段：
a(1)=20: a(2)=3: a(3)=21: a(4)=37
a(5)=62: a(6)=20: a(7)=13: a(8)=33
k=Abs(a(2)-a(1))
For i=3 To 8
If Abs(a(i)- a(i-1))>k Then k= Abs(a(i)-a(i-1))
Next
执行该程序段后，变量k的值为（   ）

A．7

B．17

C．25

D．42

数组排序。点击“产生随机数”按钮，让计算机随机产生10个整数，并对这10个整数进行标号，再点击“排序”按钮，对这10个整数进行从大到小排序。如图所示。

程序代码如下：
Dim a(1 To 10) As Integer　
Dim i, j, k, kt As Integer　
Private Sub Command1_Click()
List1.Clear　　 '清除列表框数据
For i ＝ 1 To 10
　  Randomize　 '随机数初始化
　a(i) ＝ Int(Rnd() * 1000)
　  List1.AddItem Str(i) ＋ ”＝” ＋ Str(a(i))
Next i
Command2.Enabled ＝ True　'激活排序按钮
End Sub
Private Sub Command2_Click()
For i ＝ 1 To 9　
　  k ＝ i
For j ＝_________To 10
　  If a(j) > a(k) Then k ＝ j
Next j
　  If i <> k Then
_______
　End If
Next i
List2.Clear
For i ＝ 1 To 10
List2.AddItem Str(i) ＋ ” ＝” ＋ Str(a(i))
Next i
End Sub
请在①、②划线处填入合适的语句或表达式，把程序补充完整：
程序中①划线处应填入__________________；
程序中②划线处应填入__________________。

“杨辉三角”问题，如图所示，其规律如下：其显著特征是除斜边上的1以外，其余数值均等于其肩部两数之和。编写VB程序，其功能如下：在文本框Text1中输入20以内的整数，点击“打印”按钮，在列表框list1中输出杨辉三角，程序界面如图所示，VB程序代码如下。

实现上述功能的VB程序如下，请回答下列问题：
(1)代码“Private Sub Command1_Click()”中的Command1_Click()属于_________(单选，填字母：

A．对象名/

B．属性名/

C．事件名/

D．事件过程)。

(2)请在划线处填入合适的代码。
(3)若将加框处代码改为“1 To i”，则__________(选填：会/不会)影响程序结果。
Private Sub Command1_Click()
Dim a (20) As Long
Dim I As Integer，j As Integer，s As String
List1.Clear
n＝Val(Text1.Text)
a(1)＝1
List1.AddItem Str(a(1))
For i＝2 To n
s＝""
For j＝i To 1 Step－1
a(j)＝_____
s＝s＋Str(a(j))
Next j
_____
Next i
End Sub

对称字符串的特征是从左到右读和从右到左读完全一样的。如“abba”是对称的，“abcba”也是对称的。判断文本框Text1中的字符串是否对称的VB程序段如下：
s-Textl.Text: k=0:n=Len(s)\2
For i=1 To n

If Mid(s,i,1)=Mid(s,__________,1) Then k=k+1

Next i
If k= n Then Label1.Caption="对称" Else label1.Caption="不对称"
划线处代码合适的选项是（   ）

A．n- i	B．Len(s)-i
C．n-i+1	D．Len(s)-i+1