编写一个VB程序，判断某字符串是否为回文字符串。所谓回文字符串，指一个字符串从左往右读和从右往左读是完全一样的。程序运行时，单击“判断”按钮后，在标签Label2中显示判断结果。程序运行效果如图所示。

实现上述功能的程序如下，请回答下列问题：
Private Sub Com1_Click( )  
Dim s As String
Dim flag As Boolean
Dim n As Integer, i As Integer
s = Text1.Text
_________’①
flag = True
i = 1
Do While i <= n \ 2
If  Mid(s, i, 1) < >________________ Then’②
flag = False
Exit Do '退出Do循环
End If
i = i + 1
Loop
If flag Then
Label2.Caption = s + "是回文字符串"
Else
Label2.Caption = s + "不是回文字符串"
End If
End Sub
(1)当前代码的事件处理过程名为_____________________。
(2)为使程序完成相应功能
下划线①处应填入代码_____________________。
下划线②处应填入代码_____________________。

编写一个删除数字字符串s中的最大和次大数字字符的程序。具体功能如下：在文本框Text1中输入一个数字字符串，单击“删数”按钮Command1，将删除后的结果显示在文本框Text2中。程序运行界面如下图所示。

（1）要使程序运行时，按钮Command1上显示的标题为“删数”，可在Form_Load事件处理过程中添加语句________（单选,填字母：

A．Caption.Command1 ="删数" /

B．Command1.Caption ="删数" /

C．Caption ="删数"/）

（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String, ch As String
Dim i As Integer, n As Integer
Dim max1 As Integer, max2 As Integer
s = Text1.Text: n = Len(Text1.Text)
If Mid(s, 1, 1) > Mid(s, 2, 1) Then
max1 = 1: max2 = 2
Else
max1 = 2: max2 = 1
End If
For i = 3 To n
ch = Mid(s, i, 1)
If ch > Mid(s, max1, 1) Then
①_______
max1 = i
ElseIf ch >= Mid(s, max2, 1) Then
max2 = i
End If
Next i
For i = 1 To n
If ②_________ Then Text2.Text = Text2.Text & Mid(s, i, 1)
Next i
End Sub
（3）若在文本框Text1中输入的内容为“82176736”，单击按钮Command1,文本框Text2中显示的内容是________。

在VB代码编辑窗口中，输入“List1.”后出现了如图所示的信息。其中的“AddItem”是List1的（）

A．属性名

B．事件名

C．对象名

D．方法

编写一个VB程序，实现如下功能：在文本框Text1中输入一个偶数n，判断该数在10步之内通过以下计算过程后能否回到初始值。计算步骤如下：
(1)将n乘以3后加1产生一个新的数
(2)对产生的新数循环执行如下操作：新数是偶数时，用新数除以2；新数是奇数时，用新数乘以3后加1
譬如，以2为初始值，则计算过程如下。2→7→22→11→34→17→52→26→13→40→20→ 10→5→16→8→4→2。数字2不能在10步之内回到初始值。
界面如图所示，回答下列问题:

（1）若要把窗体的标题名称由“Form1”改为“数值猜想”，应改变窗体的_______属性。
（2）完成上述功能的程序代码如下，请在划线处填入合适的代码
Private Sub Command1_Click()
Dim n As Integer,t as Integer ,m as Integer ,s as String
____________________
t = n * 3 + 1
m = 1
s = ""
Do While _________________
s = s + Str(t)
If t Mod 2 = 0 Then
t = t \ 2
Else
t = t * 3 + 1
End If
m = m + 1
Loop
If n = t Then
Label1.Caption = s + Str(n)
Else
Label1.Caption = "该数10步之内无法实现！"
End If
End Sub
（3）按照以上VB程序的计算方法，若在文本框Text1中输入4，能否在10步之内回到初始数______。（选填：能/否）

（加试题）有如下VB程序段：

执行该段程序后，数组元素f(12)的值为

A．0

B．1

C．2

D．3

在VB中，下列属于窗体文件的是（）

A．cost.vbp

B．cost.frm

C．cost.exe

D．cost.vb

某VB程序的一个事件过程如下：
Private Sub Form_Load( )
List1.Clear
Text1.Text＝"请输入您的用户名："
End Sub
在程序运行时，能触发该事件的是（）

A．窗体装载	B．单击命令按钮Command1
C．单击窗体	D．按下键盘任意键

最大回文子串。回文字符串是具有回文特性的字符串：即该字符串从左向右读, 与从右向左读都一样.如:凤落梧桐梧落凤，abcba 等。“最大回文子串”是指一个字符串中长度最大的回文字符串，其基本算法思想如下：
（1）每个回文都有一个“中心”，当回文字符数为奇数时，中间的那个字符就是回文中心；但是当回文的字符数为偶数时，回文的中心是最中间的那两个字符，且这两个字符相同。
（2）对任意一个字符或者相同的两个连续字符，我们都可以假设它为回文的“中心”，向它的左右两边扩展出尽可能长的回文。对于每种假设，我们都能得到一个回文，而最长回文必定由其中的某个假设中得到。
现编写一个 VB 程序，在 Text1 中输入一串字符，单击“统计”按钮，在 Text2 中显示该字符串中的最大的回文子串（长度相同时，输出最左边的子串）。运行界面如图所示。

请回答下列问题：
（1）当 Text1 中输入“123321344332423112113123”时，则输出的结果为  。
（2）请在划线处填入合适的代码。
Dim n As Integer
Dim a(0 To 100) As String
Private Sub Command1_Click()
Dim s As String
Dim left As Integer, right As Integer, i As Integer
Dim max As Integer, m As Integer, b1 As Integer
'变量 b1 用于记录回文子串的左端起点
Text2.Text = " "
s = Text1.Text
n = Len(s)
For i = 1 To n
a(i) = Mid(s, i, 1)
Next i
max = 0: left = 0: right = 0
For i = 1 To n
left = i
right = i
m = longest(left, right)
If m > max Then
________①_________
max = m
End If
left = i
right = i + 1
If a(left) = a(right) Then
m = longest(left, right) + 1
If m > max Then
b1 = i - m \ 2 + 1
max = m
End If
End If
Next i
For i = b1 To _____②________
Text2.Text = Text2.Text + a(i)
Next i
End Sub
Function longest(left As Integer, right As Integer) As Integer
Dim p As Integer
p = 1
Do While left > 1 And right < n And _________③______________
left = left - 1
right = right + 1
p = p + 2
Loop
longest = p
End Function

小明用VB程序编写了一个密码生成器，单击“生成密码”按钮生成一个8位数的密码，该密码必须同时包含数字、大写字母和小写字母，并在文本框Text1中显示。程序界面如下图所示。

（1）在设计程序界面时，要将文本框Text1中的内容清空，应修改该文本框的   属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Const n = 8
Dim s As String
Dim a As Integer, i As Integer
Dim x As Boolean, y As Boolean, z As Boolean
x = False
y = False
z = False
Randomize
Do While ①  
s = ""
For i = 1 To n
a = Int(Rnd() * 62) + 1
If a <= 10 Then
x = True
s = s + Chr(a + Asc("0") - 1)
ElseIf a <= 36 Then
y = True
s = s + Chr(a + Asc("A") - 11)
Else
z = True
②
End If
Next i
Loop
Text1.Text = ③   
End Sub

在计算机系统中，数值一律用补码来表示和存储。求负整数的补码是将该数对应的正数转换为二进制数（不足8位时高位补0），最高位作为符号位为1，其余每位二进制数取反（1变成0,0变成1），末位加1。
小明编写了一个VB程序，功能如下：在文本框Text1中输入一个负整数，单击“转换”按钮Command1后，在文本框Text2中显示该数对应的补码。程序运行界面如图所示。

（1）在设计程序界面时，要使按钮Command1显示为“转换”，应修改该按钮的_______属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim a(8) As Integer, x As Integer, b As String
x = Val(Text1.Text)
x = Abs(x)
For i = 1 To 7 '求原码
a(i) = x Mod 2
x = x \ 2
Next i
For i = 1 To 7 '求反码
a(i) =___________①
Next i
b = "1" '求补码
a(1) = a(1) + 1
i = 1
Do While a(i) = 2 And i < 7
a(i) = 0
a(i + 1) = a(i + 1) + 1
i = i + 1
Loop
For i = 7 To 1 Step -1
b = b + Trim(Str(a(i)))   'trim()函数去除字符前后空格
Next i
Text2.Text = __________②
End Sub
（3）运行该程序，在文本框Text1中输入-10，单击“转换”按钮，则显示的补码是__。