- 二一组卷

题型：综合题题类：常考题难易度：困难

浙江省名校协作体2018-2019学年高二上学期信息技术9月联考试卷

编写一个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）、为使程序完成相应功能

下划线①处应填入代码。

下划线②处应填入代码。

举一反三

【加试题】某数据存储算法如下：使用长度为n的一维数组h来存储m个不同整数型数据(m<n)，数据的存储位置t根据存储数据的值除n取余计算得到。例如使用长度为11的数组来存储67，45，1 275，119，145，269，64共7个数据，先存储第1个数据67，67 Mod 11=1，在第1位置上没有数据，则存放在第1位置。第2个数据45，45 Mod 11=1，而在第1位置上已存有数据，那么查找下一位置有没有数据，现第2位置上没有数据，则存放在第2位置。在查找空位时如果到了数组最后一个位置还没有空位，则从头继续查找，以此类推……，举例数据存储结果如表所示。

位置	0	1	2	3	4	5	6	7	8	9	10
数据	64	67	45	145		269				119	1275

【加试题】小林和小王合作编写一个查询英语单词的VB程序：小林编写一个过程，单击“读取数据库”按钮Command1，从一个数据库中读取英语单词和中文含义，分别保存在a数组和b数组中。并显示在List1中；小王编写另一个过程，在文本框Text1中输入要查询的单词，单击“查询”按钮Command2，将查询单词的中文含义显示在Text2中，程序界面如图所示。

【加试题】计算机的基本功能是计算，信息加工处理本质上都是通过计算完成的。现有一图像模糊处理的算法，以10*10像素图像的模糊处理为例，具体算法如下：

⑴各像素点的颜色信息值（介于0至255之间的一个正整数），存储至数组a中。

⑵给定模糊处理的模糊中心位置p和模糊半径r（r>1），中心位置p即为半径为1的区域，

①确定模糊中心点在如下数阵中的位置。若模糊中心为36时，该模糊中心在数阵中对应位置为第4行第6列；

图a

②根据中心点和模糊半径确定模糊处理的像素点的范围。

⑶依序将模糊处理范围内的像素点进行模糊处理。模糊处理的方式为：最外侧的像素点颜色信息不变，中间各像素点的新颜色信息值为该像素点上下左右相邻四个像素点颜色信息值的平均值。

程序运行时，在文本框Text1中输入模糊的中心点p，在文本框Text2中输入模糊的半径r，窗体加载，通过列表框List1输出图像模糊处理前的信息，单击命令按钮Command1后通过列表框List2输出模糊后的图像信息。程序运行效果如图b所示。相应的模糊中心位置由椭圆圈注，中间各像素点由矩形框圈注

图b

实现上述功能的VB程序如下。请回答下列问题：

查找并删除重复数据的算法是对数组a中每个元素逐个作为关键字进行从后往前查找，如果有重复，删除该数据后继续查找。例如，第一次将a(1)作为关键字，从a(10)到a(1)进行逐个查找，如果和a(1)相等，则删除该数据，然后继续查找;如果是a(1)本身和它相等，则代表无重复数据。编写VB程序，程序功能如下:运行程序时，在列表框List1中显示数组a中的原始数据；单击“去除重复”按钮(Command1)，在列表框List2中输出去除重复后的数组a中的数据，同时在标签Label1中显示删除的数据总个数，运行效果如图所示。

请回答下列问题：

【加试题】删数问题。输入一个数字串s，删去其中k个数字(k<数字串中数字的个数)，使剩余数字在保持相对位置不变的情况下构成一个值最小的整数。例如，s=“19990608”，k=4，处理结果为：608。

删数的算法如下：

⑴如果k>0，则从前往后检测相邻字符，否则，转⑶；

⑵①若所有相邻字符都已非降序，则将串尾k个字符删去，k值置0，转⑴；

②若相邻两数存在逆序（即前一个数>后一个数），则将前一个数删除，k值变化，然后回到⑴；

⑶去掉串首的0，输出结果。按照上述算法思路，编写了VB程序，功能如下：在文本框Text1中输入数字串，在文本框Text2中输入删数的个数，单击“处理”按钮Command1，在文本框Text3中显示最小的整数。程序运行界面如图所示。

某对分查找算法的VB程序段如下:

Key=int(Rnd*49)*2+1

s=0:i=1:j=10

Do While i<=j

m=(i+j)\2

if Key=a(m) Then Exit Do

if Key<a(m) Then

j=m-1:s=2*s

Else

i=m+1:s=2*s+1

End if

Loop

数组元素a(1)到a(10)的值依次为“2,6,7,15,20,24,27,43,52,63”，执行该程度段后，s的值不可能为（）

相关试卷

公司介绍

服务介绍

帮助中心