- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- + 面向对象程序设计 VB开发工具
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- 赋值语句
- 选择语句
- 循环语句
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
（加试题）最大回文子串。回文字符串是具有回文特性的字符串：即该字符串从左向右读, 与从右向左读都一样.如:凤落梧桐梧落凤，abcba 等。“最大回文子串”是指一个字符串中长 度最大的回文字符串，其基本算法思想如下：
（1）每个回文都有一个“中心”，当回文字符数为奇数时，中间的那个字符就是回文中心；但是当回文的字符数为偶数时，回文的中心是最中间的那两个字符，且这两个字符相同。
（2）对任意一个字符或者相同的两个连续字符，我们都可以假设它为回文的“中心”，向它的 左右两边扩展出尽可能长的回文。对于每种假设，我们都能得到一个回文，而最长回文必定由 其中的某个假设中得到！
现编写一个 V
（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
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 ②________
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
（1）每个回文都有一个“中心”，当回文字符数为奇数时，中间的那个字符就是回文中心；但是当回文的字符数为偶数时，回文的中心是最中间的那两个字符，且这两个字符相同。
（2）对任意一个字符或者相同的两个连续字符，我们都可以假设它为回文的“中心”，向它的 左右两边扩展出尽可能长的回文。对于每种假设，我们都能得到一个回文，而最长回文必定由 其中的某个假设中得到！
现编写一个 V
| A．程序，在 Text1 中输入一串字符，单击“统计”按钮，在 Text2 中显示该字 符串中的最大的回文子串（长度相同时，输出最左边的子串）。请回答下列问题： |
（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 = 0For 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 SubFunction 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
如图所示，这是打印九九乘法表的程序，请你完善程序。
Private Sub Form_click()
Dim i As Integer, j As Integer
For i = 1 To ①________
Next i
End Sub
Private Sub Form_click()
Dim i As Integer, j As Integer
For i = 1 To ①________
For j = 1 To ②_________
Print j; "*"; i; "="; i * j;
Next j
Print ‘换行Next i
End Sub
在绕地球做匀速圆周运动的宇宙飞船中，航天员绕地球做匀速圆周运动的向心力计算公式为：
，若用VB表达式来表示，正确的是( )
，若用VB表达式来表示，正确的是( )| A．F=m(g-v*v/r) | B．F=m(g-v^2/r) |
| C．F=m*(g-v^2/r) | D．F=m*(g-v*2/r) |
程序运行界面如图所示。
要求在文本框Text1中输入字符串，单击“统计”按钮Command1后，在标签Label2中显示所输入字符串长度。需要编写的VB事件处理过程的名称为( )
要求在文本框Text1中输入字符串，单击“统计”按钮Command1后，在标签Label2中显示所输入字符串长度。需要编写的VB事件处理过程的名称为( )
| A．Command1_Click | B．Text1_Click |
| C．Form_Click | D．Label2_Click |
有如下的程序段：
Private Sub Command1_Click()
Dim a As String, b AsString
a = Text1.Text
b = Text2.Text
Text3.Text = a + b
End Sub
运行程序，在对象Text1和Text2中分别输入2和3，则单击命令按钮Command1后，对象Text3中显示( )
Private Sub Command1_Click()
Dim a As String, b AsString
a = Text1.Text
b = Text2.Text
Text3.Text = a + b
End Sub
运行程序，在对象Text1和Text2中分别输入2和3，则单击命令按钮Command1后，对象Text3中显示( )
| A．23 | B．a+b | C．5 | D．2+3 |
“如果a,b中任意一个为0，那么y=y+1”，能实现该功能的VB语句是( )
| A．If a=0 And b=0 Then y=y+1 | B．If a*b=0 Then y=y+1 |
| C．If a=0,b=0 Then y=y+1 | D．If a∙b=0 Then y=y+1 |
