- 二一组卷

题型：综合题题类：模拟题难易度：普通

浙江省十校联盟2018年3月适应性考试信息技术试卷

编写“输出所有子串”程序，实现如下功能:在文本框Text1中输入字符串，在列表框List1中输出该字符串的所有子串并输出子串的总数。程序运行界面以及工程资源窗口如下图所示。

（1）、观察上图，该程序中的窗体对象名为

(单选，填字母： A .求所有子串/ B.Forml / C .子串 .frm / D .工程 l . vbp )

（2）、实现上述功能的 VB 程序如下，请在划线处填入合适的代码。

Private Sub Command 3_ Click ()

Dim s As String , sum As Integer

Dim i As Integer , t As Integer , j as Integer

s = Text1. Text

t = Len ( s ) : sum = 0

For i = 1 To t

For j = i To t

List1.Addltem

sum=sum + 1

Next j

Next i

List1. Addltem "总共有"+ + "个子串"

End Sub

（3）、如果输入的字符串是“abcdefg”，则输出中有个子串

举一反三

【加试题】有下列代码段，循环5次后的label3中显示：（）

Private Sub Command1_Click()

For i = 150 To 300

a = i \ 100

b = I mod 100 \ 10

c = i – a*100 – b*10

If i = a * a * a + b * b * b + c * c * c Then

Label1.Caption = Str(i)

End If

Next i

End Sub

某算法的部分流程图如图所示。当输入x的值为100时，在标签Label1中输出的内容为（）

将两位同学的身高放入变量a和b中，比较这两个变量的大小，最后把其中较大的数放到变量c中并输出，流程图如图所示。①中应填（）

有如下Visual Basic程序段：

Dim a As Integer, b As Integer, c As Integer

a = 20

b = 0

c = 2

Do While a > b And a > c

b = b + 1

c = c + b

Loop

问：该程序段运行后，

【加试题】最大回文子串。回文字符串是具有回文特性的字符串：即该字符串从左向右读, 与从右向左读都一样。如：凤落梧桐梧落凤，abcba 等。“最大回文子串”是指一个字符串中长度最大的回文字符串，其基本算法思想如下：

⑴每个回文都有一个“中心”，当回文字符数为奇数时，中间的那个字符就是回文中心；但是当回文的字符数为偶数时，回文的中心是最中间的那两个字符，且这两个字符相同。

⑵对任意一个字符或者相同的两个连续字符，我们都可以假设它为回文的“中心”，向它的左右两边扩展出尽可能长的回文。对于每种假设，我们都能得到一个回文，而最长回文必定由其中的某个假设中得到！

现编写一个VB程序，在Text1中输入一串字符，单击“统计”按钮，在Text2中显示该字符串中的最大的回文子串（长度相同时，输出最左边的子串）。请回答下列问题：

编写“字符串生成”程序，实现如下功能：在文本框Text1中（字符位置)输入多个正整数 (以“，”为分割符和结束符），单击“生成”按钮Command1，程序以这些整数为位置信息，依次从文本框Text2中（字典内容）提取字符并连接成字符串，最后将字符串显示在标签Label1中（生成内容）。

程序运行界面如下图所示。

相关试卷

公司介绍

服务介绍

帮助中心