信息技术期末考试Word文件下载.docx

信息技术期末考试Word文件下载.docx

《信息技术期末考试Word文件下载.docx》由会员分享，可在线阅读，更多相关《信息技术期末考试Word文件下载.docx（19页珍藏版）》请在冰豆网上搜索。

8、在VB中，要添加一个列表框（listbox），在工具箱中要单击的控件是（）。

A、

B、

C、

D、

9、小明使用

控件设计一个秒表，倒计时时间精确到0.01秒，如右图，设置该控件的interval属性值为（）。

A、0B、1C、10D、100

10、在VisualBasic中，语句form1.Caption="

欢迎使用本系统!

"

中的"

Caption"

是（）。

A、属性值B、属性名

C、对象名D、类名

11、在VisualBasic中，下列能作为变量名的是（）。

A、a_5B、a-5C、5aD、A&

5

12、某校对新入学的320名高一男生进行1000米耐久跑测试，测试成绩保留2位小数。

在VisualBasic中，下列存储成绩数据的变量定义最合适的是（）。

A、定义320个整数型变量

B、定义1000个整数型变量

C、定义一个元素个数为320的一维数组，数据类型为整数型

D、定义一个元素个数为320的一维数组，数据类型为单精度实数型

13、11、在VisualBasic中，表达式12345\100的值是（）。

A、123B、45C、12D、5

14、如下数组声明语句：

Dima（3,-2To2,5），则数组a包含的元素的个数为（）。

A、120B、75C、60D、13

15、有如下VisualBasic程序段：

Forx=10To1Step-2

a（x）=x+1

Nextx

该程序段运行后数组元素x的值为（）。

A、10B、1C、0D、-1

16、有如下VisualBasic程序段：

s=0

Fork=To5

s=s+k

Nextk

该程序段运行后，循环体s=s+k被执行10次，则循环变量k的初值是（）。

A、14B、-5C、1D、-4

17、设x是正数，下列能用于描述"

x是否为偶数"

的VisualBasic条件表达式是（）。

A、x\2=0B、x/2=0C、xMod2=0D、x=Abs（x）

18、设a=1，b=3，c=5，表达式a*3<

cORb>

cAND2*b<

c的值是（）。

A、1B、-1C、FalseD、True

19、随机产生10个[10，99]中的整数，依次存储到数组变量a

（1）～a（10）中。

实现此功能的部分算法流程图如图所示：

图中空白处理框①和②处应填入的是（）。

A、①i←i+1B、①i←i+1

②a（i）←Rnd*90+10②a（i）←Int（Rnd*90）+10

C、①a（i）←Int（Rnd*90）+10D、①a（i）←Int（Rnd*89）+10

②i←i+1②i←i+1

20、"

猴子吃桃"

问题：

一天，有一只猴子从树上摘

下若干个桃子，当即吃了一半，觉得不过瘾，又吃

了一个。

第二天小猴子接着吃剩下的一半，还觉得

不过瘾，又吃了一个。

以后每天都是吃前一天剩下

的一半并再吃多一个。

到第四天，猴子按规则吃完

桃子后，只剩一个桃子。

问小猴子第一天摘了多少

个桃子。

右图所示是根据分析所画出的部分流程图。

采用倒推算法，其中设定M的初始值为1（第四天吃

完后剩下的桃子数），D为天数（初始值为5）。

请在

下面的①和②（对应流程图中相应空缺位置）填入

相应选项。

①、②分别为（）。

A、M=M*2+1D=1

B、M=M*2+1D<

1

C、M=2*（M+1）D=1

D、M=2*（M+1）D<

1

21、有如下VisualBasic程序段：

a=3

b=9

c=a+b

Ifc=12Thenpy="

正确"

Elsepy="

不正确"

分析该程序段，下列说法正确的是（）。

A、程序段的流程模式是循环模式

B、“c=12”是赋值语句

C、“py="

”是选择语句

D、执行语句“py="

”的前提条件是“c=12”为真

22、VB中，设x=298，能得到其个位数字“8”的正确表达式是（）。

A、Int（x/100）*100B、Int（x/10）*10C、Int（x/100）D、x-Int（x/10）*10

23、运行如下VisualBasic程序，单击命令按钮Command1，出现如图所示的出错信息。

发生"

下标越界"

错误时所执行的语句是（）。

PrivateSubCommand1_Click（）

Dima（0To5）AsInteger

DimiAsInteger'

①

a（0）=1'

②

Fori=1To5

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

③

Nexti

Text1.Text=Str（a（6））'

④

EndSub

A、①B、②C、③D、④

24、运行如下VisualBasic程序，单击命令按钮Command1，出现如图所示的出错信息。

类型不匹配"

DimaAsInteger,bAsInteger

a=10'

b=20'

Text1.Text="

a+b="

+Val（a+b）'

EndSub'

A、①B、②C、③D、④

25、在VisualBasic中，有如下程序：

DimaAsInteger,bAsInteger,cAsInteger

DimdAsInteger,zAsInteger

a=Val（Text1.Text）:

b=Val（Text2.Text）:

c=Val（Text3.Text）

d=max（a,b）

z=max（d,c）

Text4.Text=Str（d）

Text5.Text=Str（z）

Functionmax（xAsInteger,yAsInteger）AsInteger

Ifx>

yThenmax=xElsemax=y

EndFunction

运行该程序，在文本框Text1、文本框Text2、文本框Text3中分别输入2、-5、6后，单击命令按钮Command1，文本框Text5中显示的是（）。

A、-5B、2C、6D、24

26、要计算S=1-2+3-4+5……-100以下不正确的程序段是（）。

A、①B、②C、③D、④

27、下列语句执行后，s的值为（）。

Fori=1to30

Ifimod5=0then

s=s+i

i=i+6

endif

nexti

A、45B、55C、65D、75

28、有如下VisualBasic程序段：

k=1

Forj=2To100

Ifa（j）>

a（k）Thenk=j

Nextj

x=a（k）

该程序段执行后，变量x中存储的是（）。

A、a

（1）至a（100）中的最小值B、a

（1）至a（100）中的最大值

C、a

（2）至a（100）中的最小值D、a

（2）至a（100）中的最大值

29、在VisualBasic中程序段是计算（）公式的。

s=0

Fori=1To10

t=1

forj=1toi

t=t*j

nextj

s=s+t

A、s=1+2+3+4+5+6+7+8+9+10B、s=1*2*3*4*5*6*7*8*9*10

C、s=1!

+2!

+3!

+4!

+5!

+6!

+7!

+8!

+9!

+10!

D、s=1+2*3+3*4+4*5+5*6+6*7+7*8+8*9+9*10

30、阅读下面程序：

PrivateSubcommand1_click（）

a=val（text1.text）

b=val（text2.text）

ifa=bthen

text3.text=str（a）

exitsub

endif

dowhileb<

>

0

r=amodb

a=b

b=r

loop

text3.text=str（a）

EndSub

在text1、text2中输入30、6，则text3中的值为（）。

A、1B、3C、6D、9

二、填空题（共40分）

31、（本题6分）有以下几种流程图符号：

ABCDEF

1输入输出框②连接框③流程线④判断框⑤处理框⑥开始结束符

A~F六种流程图符号代表的含义依次是

32、（本题3分）将数学表达式S=写成VB表达式为__________。

33、（本题3分）闰年条件：

能被4整除且不能被100整除或能直接被400整除。

写出闰年的VB表达式（年份用变量y）__________。

34、（本题2分）有如下VisualBasic程序段：

a="

1100101"

b=Mid（a,2,4）+"

101"

该程序段运行后，变量b的值为____________。

35、（本题2分）有如下VisualBasic程序段：

a=5

b=Len（"

1011"

）

Ifa>

bThen

Label1.Caption="

请重新输入"

Else

欢迎光临"

EndIf

该程序段运行后，在标签Label1上显示的是____________。

36、（本题4分，每空2分）有如下VisualBasic程序段：

Fori=1To10Step2

a=a+i

s=a*i

Nexti

问：

该程序段运行后，

（1）变量i的值是___________。

（2）变量s的值是___________。

37、（本题4分，每空2分）有如下VisualBasic程序段：

DimaAsInteger,bAsInteger,cAsInteger

a=20

b=0

c=2

DoWhilea>

bAnda>

c

b=b+1

c=c+b

Loop

（1）语句“b=b+1”执行的次数为__________。

（2）变量c的值为____________。

38、（本题4分，每空2分）有如下流程图结构，该流程图中输出的前2个值依次分别是____________、____________。

39、（本题4分，每空2分）设有n盏灯，放在一排。

从1到n依次顺序编号。

有n个人也从1到n依次编号。

第1个人（1号）将灯全部关闭，第2个人（2号）将凡是2的倍数的灯打开，第3个人（3号）将凡是3的倍数的灯做相反处理（该灯如果为打开的，则将它关闭，如关闭的将它打开），以后的人和3号一样，将凡是自己号数倍数的灯做相反处理。

问当n个人操作后，哪几盏灯是亮的。

（亮灯为0，关闭为1）

为了实现这一目标，完善下列程序，使之能完成该功能。

Constn=20

Dimiasinteger,jasinteger

Dima（1ton）asinteger

Forj=1ton

a（j）=0

fori=1ton

forj=1ton

ifjmodi=0then

①

Endif

Nextj

If②thenlist1.additemstr（j）

其中填充①②

40、（本题4分，每空2分）普源为晚上的班级联欢会设计了一个抽奖程序，将所有同学的编号和对应的姓名分别保存在数组a（全班共50个同学，编号为1到50）和数组b中，程序会随机产生一个1到50的正整数（同时包括1和50），作为中奖编号。

程序界面如图所示，左边列表框List1中显示同学的编号和姓名，单击"

抽奖"

按钮（Command1），在标签Label3中显示抽中的编号，同时在标签Label4中显示"

恭喜***同学"

，其中具体同学的姓名从数组b中获取。

解决此问题的程序段如下：

Dima（1To50）AsInteger

Dimb（1To50）AsString

Functionsearch（mAsInteger）AsInteger

search=0

Fori=1To50

Ifm=a（i）Then

search=a（i）

EndIf

DimcAsInteger,tasinteger

Randomize

①

Label3.Caption=Str（c）

t=search（c）

Ift<

0Then

Label4.Caption="

恭喜"

+②+"

同学"

EndIf

PrivateSubForm_Load（）

'

此过程用于对数组a和数组b进行初始赋值，代码略

在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：

（1）程序中①划线处应填入___________________。

（2）程序中②划线处应填入___________________。

41、（本题4分，每空2分）数制转换。

将一个K进制（k<

=10）数x转换成十进制数可采用如下方法：

主要方法是从右向左，依次取数x的各位数字，分别计算出该数从右边数起的第i位数字与k（i-1）的积，再将其累加，直到所有的数字取完为止。

例如，将五进制数1231转换成十进制数的方法如下：

下列VisualBasic程序的功能是将K进制（k<

=10）数x转换成十进制数。

界面如图所示，在文本框Text1中输入数制k，在文本框Text2中输入数x，单击"

转换"

按钮（Command1）后，在标签Label4中输出转换的结果。

解决此问题的算法流程图如图所示，相应的VisualBasic程序如下：

DimbAsLong,iAsInteger,kAsInteger,xAsLong,tAsInteger

b=0:

i=1

k=Val（Text1.Text）

x=Val（Text2.Text）

t=xMod10

DoWhile①

b=②

x=x\10

t=xMod10

i=i+1

Loop

Label4.Caption=Str（k）+"

进制数"

+Text2.text+"

转换成十制数为"

+Str（b）

在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：

三、附加题（共10分，第一题2分，第二题8分，第二小题代码行数不限）

42、把杂乱无章的数据变为有序的数据，这一过程称为排序。

冒泡排序是其中一种最基础的排序方法，其中的升序是把数列中把较小的数据逐次向上推移的一种排序技术。

它的方法是把待排序的n个元素的数组看成是垂直堆放的一列数据，从最下面一个元素起，自下而上的比较相邻两个元素中的数据，如果较小的数据在下面，那将较小的数据换到上面的元素中（否则不交换）。

重复这一过程，直到处理完最后两个元素中的数据，称为一遍加工，当第1遍加工完成时，最小的数据已经上升到第1个元素的位置；

第2遍加工对余下的n-1个元素重复上述处理过程，第2遍加工完成后剩下最小的数据上升到第2个位置；

直到n-1遍加工完成后发现数据完成了从小到大的排序。

假设有4个数据：

27363218，需要4-1=3遍加工

第1遍加工如下：

第2遍加工如下：

第3遍加工如下：

假设4个数据放在数组d

（1）,d

（2）,d（3）,d（4）第1遍：

比较d（j）、d（j-1），j=4,3,2,比较3次；

第2遍：

比较d（j）、d（j-1），j=4,3,比较2次；

第3遍：

比较d（j）、d（j-1），j=4,比较1次；

（1）假设另有一组未经排序的数据如下：

456723871330

按照上述规则进行从小到大冒泡排序，第一遍加工完成后这6个数的位次应该是

。