某VB程序设计界面如下题图所示，下列说法正确的是（　  ）

①工程文件是“工程1 .vbp”    ②将text属性值删除，图中①处将不会显示“Ｔext1” 
③该窗体中共有3个对象 ④窗体名称是“整除问题”

A．①②

B．②③

C．①③

D．②④

目前部分手机的短信具有“提取详情”的功能，即针对一条短信，可以提取出短信中一些关 键的信息。现编写 V

A．程序实现如下功能：在文本框 Text1 中输入短信内容，点击“提取”按钮， 将短信中的数字以“，”间隔输出到文本框 Text2 中。程序运行界面如图1所示。

图1    图2
（1）在设计程序界面时，图2中控件________（填数字）未在程序窗体中使用。
（2）请根据题意将下列程序补充完整
Private Sub Command1_Click()
Dim msg As String, c As String, tmp As String, s As String, flag As Boolean msg = Text1.Text
msg = msg + "/" '标记字符串结束符
tmp = "" s = ""
flag = True
For i = 1 To Len(msg)
c = Mid(msg, i, 1)
If ①_____ Then flag = False
tmp = tmp + c
ElseIf flag = False Then s = s + tmp + ","
tmp = ""

 ②_____ 

End If
Next i
Text2.Text = s
End Sub
（3）若程序未加“msg = msg + "/"”语句，则示例图1中提取后的数字信息为 ________。

（加试题）最大回文子串。回文字符串是具有回文特性的字符串：即该字符串从左向右读, 与从右向左读都一样.如:凤落梧桐梧落凤，abcba 等。“最大回文子串”是指一个字符串中长 度最大的回文字符串，其基本算法思想如下：
（1）每个回文都有一个“中心”，当回文字符数为奇数时，中间的那个字符就是回文中心；但是当回文的字符数为偶数时，回文的中心是最中间的那两个字符，且这两个字符相同。
（2）对任意一个字符或者相同的两个连续字符，我们都可以假设它为回文的“中心”，向它的 左右两边扩展出尽可能长的回文。对于每种假设，我们都能得到一个回文，而最长回文必定由 其中的某个假设中得到！
现编写一个 V

A．程序，在 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
b1 = i - m \ 2 max = m
End If left = i
right = i + 1
If a(left) = a(right) Then
m = longest(left, right) + 1
If m > max Then
①________
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

下列文件中属于工程文件的是（ ）

A．五子棋.frm

B．五子棋.exe

C．五子棋.vbp

D．五子棋.caption

"计算计件工资"的 Visual Basic 程序运行界面如图所示，单击"计算"命令按钮 Command1，触发的事件处理过程名是（   ）

A．Command1_Click

B．Text1_Click

C．Form_Click

D．Label3_Click

   编写VB程序，实现如下功能：在文本框Text1、Text2中分别输入一个正整数，单击“计算累加和”按钮（Command1），在标签Label3中显示起始值与结束值之间所有奇数的和。界面如下方左图所示。

 
（1）在设计应用程序界面时，应使用上方右图所示“控件工具箱”中的___________（填写相应编号）添加“计算累加和”按钮。
（2）为实现上述功能，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim x1 As Integer, x2 As Integer, n As Integer
Dim sum As Long
x1 = Val(Text1.Text)
x2 = Val(Text2.Text)
Sum = 0
If x1 < x2 Then n = 1 Else ①___________
For i = x1 To x2 Step n
If ②___________ Then
Sum = Sum + i
③___________
Next i
Label3.Caption = "从" & x1 & "到" & x2 & "之间所有奇数的累加和=" & Str(Sum)
End Sub

某VB程序如下:
Private Sub Command1_Click()

Dim s As Integer
Dim i As Integer
s = 1: i = 1
Do While i <= 10
s = s * i
i = i + 1
Loop
Label1.Caption = Str(s)
End Sub
运行该程序，单击按钮Command1后，出现如上图所示的出错信息。此时正在执行的语句是

A．Dim s As Integer	B．s = s * i
C．i = i + 1	D．Label1.Caption = Str(s)

某VB程序设计界面如下图所示。下列说法正确的是

A．该窗体中只有3个对象	B．该窗体的名称是“BMI计算器”
C．当前窗体文件名为“Form1.frm”	D．一个工程可以有多个窗体

下列属于程序设计语言的是（  ）。

A．ACDSee

B．VisualBasic

C．WinRAR

D．Premiere

编写“二进制数转换为十六进制数”程序，实现如下功能：在文本框 Text1 输入一个二进制数，单击“转换”按钮 Command1，将二进制数转换为十六进制数并在文本框 Text2 中显示。程序运行界面如下图所示。

（1）设计如图所示的程序界面，至少要使用_____个类（填数字）。
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s1 As String, s2 As String
Dim i As Integer, x As Integer
Const code="0123456789ABCDEF"
s1=Text1.Text
s2=""
Do While Len(s1) Mod 4<>0 
s1="0"+s1
Loop
x=0
i=1
Do While i<=Len(s1)
x=x*2+Val(Mid(s1,i,1))  
i=i+1  
If ____________    Then ‘(1)
s2=s2+Mid(code,x+1,1)
______________  ‘(2)
End If
Loop
Text2.Text=s2
End Sub
（3）若文本框 Text1 中输入的内容为“101101” ，单击“转换”按钮后，文本框 Text2 中显示的内容是_______。