高二下学期返校考试信息技术试题解析版.docx

高二下学期返校考试信息技术试题解析版.docx

《高二下学期返校考试信息技术试题解析版.docx》由会员分享，可在线阅读，更多相关《高二下学期返校考试信息技术试题解析版.docx（12页珍藏版）》请在冰豆网上搜索。

高二下学期返校考试信息技术试题解析版

高中信息技术试题

考试时间:

45分钟

一、选择题

1.在VisualBasic中，能表示整数x是完全平方数（如=3*3，9是完全平方数）的表达式是（）

A.x^2=x*xB.sqr（x）=x\2C.int（sqr（x））^2=xD.（x\2）^2=x3

【答案】C

【解析】

【详解】本题考查的是VB表达式。

选项A任意整数都成立，故选项A错误；sqr（）是算术平方根，“\”是整数除，sqr（9）=3，但3\2=1，故选项B错误；int（）是向下取整，int（sqr（x））^2=x能表示整数x是完全平方数，选项C正确；选项D中x3是另一个变量名，故选项D错误。

2.下列程序执行后文本框Text1显示的内容是（）

x="abcdcba":

ans=0

Fori=1ToLen（x）\2.

IfMid（x,i,1）=Mid（x,Len（x）-i+1,1）Thenans=ans+1

Nexti

Text1.Text=Str（ans）

A.1B.2C.3D.4

【答案】C

【解析】

【详解】本题考查的是VB标准函数、选择语句。

Len（）取字符串长度，Mid（x,i,1）从字符串x第i个字符开始取一个字符。

由IfMid（x,i,1）=Mid（x,Len（x）-i+1,1）Thenans=ans+1可知，统计前后字符一致的个数。

第一位与最后一位字符相同、第二位与倒数第二位字符相同，第三位与倒数第三位字符相同。

故ans值为3，选项C正确。

3.有如下程序：

PrivateSubCommand1_Click（）

Dima（5）asInteger

DimnasInteger,iasInteger

n=Val（Text1.Text）

i=0

a

（1）=1:

a

（2）=1

Fori=3Ton

a（i）=a（i-1）+a（i-2）

Nexti

Label1.Caption=a（i）

EndSub

若在Text1中输入5，则点击按钮后的运行结果为（）

A.Label11中输出5B.Label1中输出10

C.报“下标越界”错误D.Label11中无内容

【答案】C

【解析】

【详解】本题考查的是程序阅读。

由Dima（5）asInteger可知数组a的下标是0~5。

若在Text1中输入5，则n=5，执行完循环后i=6，故在执行Label1.Caption=a（i）时，会报“下标越界”错误。

选项C正确。

4.有如下VB程序段:

Fori=1To3

Forj=6Toi+1Step-1

Ifa（j）>a（j-1）Then

k=a（j）:

a（j）=a（j-1）:

a（j-1）=k

EndIf

Nextj

s=s+“"”+str（a（i））

Nexti

Text1.Text=str（s）

数组元素从a

（1）到a（6）的数据依次为“3、7、2、5、8、9”，经过该程序“加工”后，文本框Text1中显示的是（）

A.235B.987C.372D.732

【答案】B

【解析】

【详解】本题考查冒泡排序算法。

外层循环控制排序的趟数共3趟，内层循环控制元素的对比与交换，由题中代码a（j）>a（j-1）知数组元素的排序为降序排列，第一趟排序完a

（1）=9，第二趟排序完a

（2）=8，第三趟排序完a（3）=7， 因s=s+“"”+str（a（i）），故文本框Text1中显示的是9、8、7，选项B正确。

5.某算法的部分流程图如第下图所示。

执行这部分流程后，输出c,s的值分别是（）

A.8,10B.10,14C.12,6D.12,24

【答案】B

【解析】

【详解】本题考查的是流程图。

初始c=0，s=0，第一次进入：

c<=10ands<=10条件成立，cmod3=0成立，执行c=c+4=4，s=s+c=4；第二次进入：

c<=10ands<=10条件成立，cmod3=0条件不成立，执行c=c+2=6；第三次进入c<=10ands<=10条件成立，cmod3=0条件成立，执行c=c+4=10，s=s+c=14；第四次进入c<=10ands<=10条件不成立，输出c=10，s=14。

故选项B正确。

6.有如下VisualBasic自定义函数:

Functionf（xAsInteger）AsSingle

f=Abs（x）

EndFunction

该函数返回值的数据类型是（）

A.整数型B.日期型C.逻辑型D.单精度实数型

【答案】D

【解析】

【详解】本题考查的是自定义函数。

自定义函数的格式：

Function函数名（参数表）As类型名（返回值）。

由Functionf（xAsInteger）AsSingle，故返回Single（单精度实数型）类型。

故选项D正确。

7.下列VB表达式中，不是字符串的是（）

A.Chr（（Rnd*26）+65）B.Len（"中国2019"）

C.Mid（"r12b"，2，2）D.（n+1）Mod5&6

【答案】B

【解析】

【详解】本题考查的是VB表达式及基本函数。

Chr（）ASCII转换为字符，故选项A是字符串；Len（）是计算字符串的长度，故选项B不是字符串；Mid（X,n,k）取字符串X中第n个字符起长度为k的子串，故选项C是字符串；“&”是字符串的连接符，故选项表达式是字符串。

要求选不是字符串，故应选B。

8.有VB编写的程序如下

Dima（0To9）AsInteger,tasLong

t=Val（Text1.Text）

DoWhilet<>0

a（tMod10）=1

t=t\10

Loop

Fori=0To9

x=x+a（i）

Nexti

Text1中输入10242048则程序执行后x的值为（）

A.1B.2C.5D.10

【答案】C

【解析】

【详解】本题考查的是循环语句。

由a（tMod10）=1、t=t\10及x=x+a（i），可知x是计算t是由几个不同的数字组成。

10242048中有0、1、2、4、8共5个数字组成。

故选项C正确。

9.下列程序执行后文本框Text1显示的内容是（）

DimxAsString，yAsString，ansAsInteger

x="12":

y="100"

ifx>yThenans=Val（x）Elseans=val（y）

ans=ans+val（x+y）

Text1

TextStr（ans）

A.12200B.12112C.124D.21210

【答案】B

【解析】

【详解】本题考查的是选择语句。

Val（）将字符串转换为数字，x，y是字符类型，字符加法就是字符连接。

x="12"，y="100"，x>y成立，执行ans=Val（x）=12，ans=ans+val（x+y）=12+val（"12100"）=12112，故选项B正确。

10.某排序算法的VB程序段如下:

Fori=1To4

k=i

Forj=5Toi+1Step-1

Ifa（j）

Nextj

Ifk<>iThen

tmp=a（k）:

a（k）=a（i）:

a（i）=tmp

f（i）=True

EndIf

Nexti

当数组元素a

（1）到a（5）的值依次为“8，2，1，21，3”数组f的初值均为False，执行该程序段，f数组中元素值为True的个数有（）

A.1个B.2个C.3个D.4个

【答案】C

【解析】

【详解】本题考查的是VB选择排序。

阅读程序可知数组f中值为True表示有交换。

由外循环可知，加工4遍，由Ifa（j）

第一遍加工，8与1交换：

1，2，8，21，3；第二遍加工，没有交换；第三遍加工，8与3交换：

1，2，3，21，8；第四遍加工，21与8交换：

1，2，3，8，21。

共交换3次，故True的个数有3。

选项C正确。

11.有一段VB程序，代码如下：

Fori=1To3

Forj=8Toi+1Step-1

Ifa（j）

t=a（j）:

a（j）=a（i）:

a（i）=t

EndIf

Nextj

Nexti

数组元素a

（1）到a（8）的值依次为“35，18，14，20，30，15，28，26”，运行该程序段后，a（5）到a（8）的值依次是（）

A.30，26，28，35B.14，15，18，20

C.26，15，18，14D.26，28，30，35

【答案】A

【解析】

【详解】本题考查的知识点是排序算法的应用。

程序进行了三趟排序。

第i趟排序，即从后往前逐个与a（i）进行比较，如果比a（i）小，数据交换。

经过第一趟排序后数组a中的元素值依次为14，18，15，20，30，26，28，35；第二趟排序后数组a中的元素值依次为14，15，18，20，30，26，28，35；第三趟排序数据不变。

所以答案选A。

12.某对分查找算法的VB程序段如下：

t-="":

i=0:

j=9:

key=62:

f=False

DoWhilei<=jAndNotf

m=Fix（（i+j）/2）

t=t+Str（m）

Ifa（m）=keyThen

f=True

EIselfa（m）>keyThen

i=m+1

t=t+"→"

Else

j=m-1

t=t+"←-"

EndIf.

Loop

数组元素a（0）到a（9）

值依次为99，94，90，87，78，70，63，56，45，36”执行该程序段的值是（）

A."4→7←5→"B."4→7←5→6→"

C."4→7←5→6"D."4→7←-5"

【答案】B

【解析】

【详解】本题考查的是二分查找。

对分查找又称二分查找，是一种高效的查找方法。

对分查找的前提是被查找的数据是有序的（升序或降序）。

对分查找的基本思想是在有序的数列中，首先将要查找的数据与有序数列内处于中间位置的数据进行比较，如果两者相等，则查找成功；否则就根据数据的有序性，再确定该数据的范围应该在数列的前半部分还是后半部分；在新确定的缩少范围内，继续按上述方法进行查找，直到找到要查找的数据，即查找成功，如果要查找的数据不存在，即查找不成功。

初始值t=""

i=0，j=9，m=Fix（（i+j）/2）=4，t=t+Str（m）="4"，a（4）=78>62，i=m+1=5，t=t+"→"="4→"；

i=5，j=9，m=Fix（（i+j）/2）=7，t=t+Str（m）="4→7"，a（7）=56<62，j=m-1=6，t=t+"←"="4→7←"；

i=5，j=6，m=Fix（（i+j）/2）=5，t=t+Str（m）="4→7←5"，a（5）=70>62，i=m+1=6，t=t+"→"="4→7←5→"；

i=6，j=6，m=Fix（（i+j）/2）=6，t=t+Str（m）="4→7←5→6"，a（6）=63>62，i=m+1=7，t=t+"→"="4→7←5→6→"；

i=7，j=6，i>j推出查找。

故选项B正确。

二、非选择

13.编写VB程序实现如下功能程序运行时产生n个数据并按升序排序显示在列表框List1中，在文本框Text1中输入一个正整数key，单击“查找”按钮Command1，则在标签Label2中显示查找结果。

程序界面如图所示。

实现上述功能的VB程序如下，但加框处代码有错误，请改正。

Constn=10

Dimd（1Ton）AsInteger

PrivateSubFormLoad（）

′随机产生n整数并存储

数组d中，并把数组d按升序排序

′在列表框中显示排序后的数据，代码略

EndSub

PrivateSubCommand1_Click（）

DimkeyAsInteger,pAsInteger

key=Val（Text1.Text）

________

Ifp<>0Then

Label2.Caption="该数据在第"+Str（p）+"个位置"

Else

Label2.Caption="没有找到!

"

EndIf

EndSub

Functionsearch（keyAsInteger）AsInteger

i=1:

j=n

DoWhilei<=j

m=（i+j）\2

Ifd（m）=keyThen

search=m

ExitFunction

EIselfkey

j=m-1

Else

i=m+1

EndIf

Loop

________

EndFunction

【答案】

（1）.p=search（key）

（2）.search=0

【解析】

【详解】本题考查的是VB对分查找。

阅读自定义函数search可知里面参数是要查找的数，故①要改为p=search（key）；函数返回值是Integer类型，如果没找到则返回0，故②应改为search=0。

14.逆序数在一个排列中，如果一对数的前后位置与大小顺序相反，即前面的数大于后面的数，那么它们就称为一个逆序。

一个排列中逆序的总数就称为这个排列的逆序数。

逆序数为偶数的排列称为偶排列；逆序数为奇数的排列称为奇排列。

例如序列2431，逆序依次为（2，1），（4，3），（4，1），（3，1），因此该序列的逆序数为4，为偶排列。

编写VB程序，功能如下:

程序运行时，在文本框Text1中输入序列，单击“计算”按钮Command11，在文本框Text2中输出逆序数，并在Label3中输出判断结果（偶排列或者奇排列）。

程序运行界面如图所示。

（1）如果序列

“5872469”，则逆序数为____________。

（2）实现上述功能的VB程序如下，完善填空。

FunctionNiXuShu（sAsString）AsInteger'逆序数计算

DimiAsInteger,jAsInteger,cAsInteger,n（1To100）AsInteger

c=0

Fori=1ToLen（s）

n（i）=Val（Mid（s,i,1））

Forj=1Toi-1

if_________Then

c=c+1

EndIf

Nextj

Nexti

__________

EndFunction

PrivateSubCommand1__Click（）

DimxAsString,yAsInteger

x=Text1.Text

y=nixushu

EndFunction

PrivateSubCommand1_Click（）

DimxAsString,yAsInteger

x=Text1.Text

_____________

Text2

Text=Str（y）

IfyMod2=0ThenLabel3.Caption="偶排列"EIseLabel3.Caption="奇排列".

EndSub

【答案】

（1）.9

（2）.n（j）>n（i）（3）.nixushu=c（4）.y=nixushu（x）

【解析】

【详解】本题考查VB程序设计、自定义函数和查找算法。

（1）如果序列为“5872469”，则逆序数为9。

（2）如果一对数的前后位置与大小顺序相反，即前面的数大于后面的数，那么它们就称为一个逆序，即n（j）>n（i）时是逆序数，然后统计的逆序数c赋值给变量nixushu即nixushu=c；利用自定义函数NiXuShu（）计算输入数列的逆序数即y=nixushu（x）；判断y的奇偶，如果y为奇数为奇排列，y为偶数则为偶排列。

15.编写“二进制加法”程序。

程序运行时，在文本框Text1和文本框Text2分别输入两个二进制数，单击按钮Command1后在文本框Text3上输出两个二进制相加后的结果。

程序运行如图所示。

（1）观察代码，触发代码执行的事件名是____________

（2）为实现上述功能，请在划线处填入合适的代码。

PrivateSubCommand1_Click（）

Dimb1AsString,b2AsString,ansAsString,tAsString

DimdistAsInteger,jwAsInteger

b1=Text1.Text:

b2=Text2.Text:

ans=""

__________________________

Ifdist<0Then

t=b1:

b1=b2:

b2=t:

dist=-dist

EndIf

Fori=1Todist

b2="0"+b2

Nexti

jw=0

Fori=Len（b1）To1Step-1

x=Val（Mid（b1,i,1））+Val（Mid（b2,i,1））+jw

__________________________

ans=Str（xMod2）+ans

Nexti

If___________________thenans="1"+ans

Text3.Text=ans

EndSub

【答案】

（1）Click

（2）①dist=len（b1）-len（b2）②jw=x\2③jw=1

【解析】

【详解】本题考查的是VB综合应用。

（1）由Command1_Click（）可知触发代码执行的事件名是：

Click。

（2）由b2="0"+b2可知b2的位数小于b1，dist是两数的位数差，结合if条件可知，第一空应为：

dist=len（b1）-len（b2）；从低位到高位，每个位置上的数字加后，再算出进位jw，故第二空为：

jw=x\2；由thenans="1"+ans可知第三空应是：

jw=1。