浙江省三门亭旁高级中学高一下学期信息技术第一次月考.docx
《浙江省三门亭旁高级中学高一下学期信息技术第一次月考.docx》由会员分享，可在线阅读，更多相关《浙江省三门亭旁高级中学高一下学期信息技术第一次月考.docx（12页珍藏版）》请在冰点文库上搜索。
浙江省三门亭旁高级中学高一下学期信息技术第一次月考
高一信息技术第一次月考试卷
（考试时间60分钟，总分100分）
一、选择题（本大题共20小题，每小题3分，共60分。
每小题均为单选题，不选、多选、错选均不得分）
1、小李在设计VB程序时所使用的单选框对象的属性窗
口如右图所示。
他想编制该单选框的单击事件处理过
程，则该事件处理过程名是（）
A．OptionButton_Click
B．Option1_Click
C．单选_Click
D．单选框_Click
2、某VB程序如下：
PrivateSubText1_KeyPress（KeyAsciiAsInteger）
DimxAsInteger
IfKeyAscii=13Then
x=Val（Text1.Text）
List1.AddItemx
EndIf
EndSub
程序运行时，能触发该事件过程的是（）
A．文本框被激活后，用户在键盘上按下某个键
B．列表框被激活后，用户在键盘上按下某个键
C．单击文本框Text1
D．单击List1
3、某VB程序段如下：
PrivateSubCommand1_Click（）
DimxAsInteger,iAsInteger
Fori＝3To10Step2
x＝i*（i－1）
List1AddItemStr（x）
Nexti
EndSub
运行程序，单击命令按钮Command1后，弹
出如右图所示的出错信息提示：
（）
A．Fori＝3To10Step2
B．x＝i*（i－1）
C．List1AddItemStr（x）
D．Nexti
4、已知VB自定义函数fun（aAsSingle，bAsSingle）AsInteger，以下赋值
语句正确的是（）
A．x＝fun（3,5）＋“abc”
B．x＝fun（“3”，“5”）＋3
C．x＝fun（3,“a”）＋ “123”
D．x＝fun（3,5）＋6
5、有如下VB程序段：
PrivateSubCommand1_Click（）
DimaAsInteger,bAsInteger
a＝9
b＝13
Printfun（a,b）;a;b
EndSub
PrivateFunctionfun（aAsInteger,bAsInteger）AsInteger
a＝aMod5
b＝b\5
fun＝a
EndFunction
A．9 13 2B．4 13 9C．4 4 2D．13 9 2
6、下列VB程序的功能是：
求两数中的较大数。
在程序运行时，分别在文本框
Text1、Text2中输入两个数，单击“比较”按钮Command1，则在标签Label1
中输出较大数。
（）
Functionbig（x,y）AsSingle
Ifx>yThen
big=x
Else
big=y
EndIf
EndFunction
PrivateSubCommand1_Click（）
DimaAsSingle,bAsSingle,ansAsSingle
a=Val（Text1.Text）
b=Val（Text2.Text）
ans=___________
Label1.Caption=ans
EndSub
A．big（Text1,Text2）B．big（a,b）C．big（x,y）D．big（）
7、某对象的一个事件过程代码如下：
PrivateSubstrlink_Click（）
DimaAsString,bAsString
a=“100”
b=“200”
Text1.Text=a+b
EndSub
下列说法正确的是（）
A．该过程的过程名为“Sub”
B．Click是对象的方法
C．该事件过程执行后，在文本框Text1中显示100200
D．该事件过程执行后，在文本框Text1中显示300
8、在VB中，某对象的属性窗口如右图所示：
如果要使该对象在窗体加载时不显示，可设置下列
哪个属性（）
A．CaptionB．Text
C．EnabledD．Visible
9、实现某排序算法的部分VB程序如下：
Fori＝1To4
Forj＝5Toi＋1Step－1
Ifa（j）t＝a（j）：
a（j）＝a（j－1）：
a（j－1）＝t
EndIf
Nextj
Nexti
在经过某一遍排序“加工”后，数组元素a（l）到a（5）的数据依次为“25、77、
51、59、32”。
则下一遍排序“加工”后数组元素a（l）到a（5）的数据应该是
（）
A．25、32、77、51、59B．25、32、51、59、77
C．25、32、59、51、77D．25、32、51、7、59
10、6位小朋友的身高（单位：
米）分别是1.15、1.30、1.58、1.25、1.61、1.36，
若采用冒泡排序算法对其进行降序排序，第2趟排序时数据交换的次数是
（）
A．1B．2C．3D．4
11、有如下VB程序段：
Fori＝1To2
Forj＝5Toi＋1Step－1
Ifa（j）>a（i）Then
t＝a（j）：
a（j）＝a（i）：
a（i）＝t
EndIf
Nextj
Nexti
数组元素a（l）到a（5）的数据依次为“31、18、68、11、89”，经过这个程序
排序后，数组中的数据比较次数和交换次数分别为（）
A．7次和2次B．7次和3次
N
Y
C．8次和2次D．8次和3次
题11图
12、采用冒泡排序算法对数组a中的5个数据“5、10、6、30、9”进行排序，冒泡排序算法的部分程序如下：
Fori＝1To4
Forj＝5Toi＋1Step－1
Ifa（j）a（j）＝a（j－1）：
a（j－1）＝t
Nextj
Nexti
下列说法正确的是（）
A．升序排序，实线框中的语句执行了2次
B．升序排序，实线框中的语句执行了3次
C．降序排序，实线框中的语句执行了5次
D．降序排序，实线框中的语句执行了6次
13、有一组原始数据：
23、25、18、63、84、77、65、9、33、17。
利用冒泡排
序算法进行从小到大排序，最多需要进行（ ）次加工，才可以完成整个数
据的排序。
A．5B．6C．8D．9
14、用选择排序算法对一组学生的身高数据进行升序排序，已知第一遍排序结束
后的数据序列为166、169、177、175、172，则下列选项中可能是原始数据
序列的是（）
A．175、177、169、166、172B．177、169、166、175、172
C．166、177、169、175、172D．166、169、172、175、177
15、某VB程序的代码如下：
s＝“”
Fori＝1To3
k＝i
Forj＝i＋1To6
Ifa（j）Nextj
Ifi<>kThen
t＝a（i）:
a（i）＝a（k）:
a（k）＝t
EndIf
s＝s＋str（a（i））
Nexti
Text1.Text＝str（s）
数组元素从a
（1）到a（6）的数据依次为“13、27、21、35、8、19”，经过该
程序“加工”后，文本框Text1中显示的是（）
A．352721B．132721
C．271321D．81319
16、下表记录了6个数据的排序过程。
分析表中数据可知，该排序采用的算法与
排序方式分别为（）
原始数据
63
57
59
42
45
71
第1遍
42
63
57
59
45
71
第2遍
42
45
63
57
59
71
第3遍
42
45
57
63
59
71
…
…
…
…
…
…
…
A．冒泡排序，降序B．选择排序，降序
C．冒泡排序，升序D．选择排序，升序
17、下列关于排序的说法，错误的是（）
A．相对而言，选择排序算法的效率比冒泡排序算法高
B．冒泡排序算法和选择排序算法的都需要用到双循环结构
C．对于n个无序数据，不管是冒泡排序还是选择排序，都要经过n－1遍
加工
D．冒泡排序算法的程序实现一般要用到数组变量k，而选择排序则不需要
18、小明编写了一个统计数组元素a（l）到a（n）中的“升序段”个数s（如图所示的
数据序列，其“升序段”的个数等于3）的VB程序。
部分程序代码如下：
k＝0
s＝0
Fori＝2Ton
Ifa（i）>a（i－1）Then
Else
k＝0
EndIf
Ifk＝1Thens＝s＋1
Nexti
Textl.Text＝Str（s）
方框中的正确语句是（）
A．k＝k－1B．k＝1C．k＝－1D．k＝k＋1
19、有如下VisalBasic程序段：
s=1
Fori=20To___Step-2
s=s+i
Nexti
若要使语句s=s+i执行5次，则可循环变量i终值应为（）
A．12B．11C．10D．9
20、下列关于算法的叙述不正确的是（）
A．程序按照算法运行，程序是算法的实现
B．算法必须有输出
C．一个问题的算法具有唯一性
D．算法的表示方法有自然语言、流程图、伪代码
2、非选择题（本大题共4小题，共40分。
）
21、用流程图描述的算法如下图所示：
请回答下列问题：
1算法的结构属于____________________________（顺序结构、分支结构、循环结构）。
（3分）
②程序运行结束后，S的值为___________________________。
（4分）
22、某VB程序段代码如下所示：
PrivateFunctionkk（aAsInteger,bAsInteger,cAsInteger）AsInteger
DimnumAsInteger
Ifanum=a
Else
num=b
EndIf
Ifnum>cThennum=c
kk=num
PrivateSubCommand1_Click（）
DimxInteger,yAsInteger,zAsInteger
x=200
y=100
z=300
Text1.Text=kk（x,y,z）
EndSub
程序运行时，单击命令按钮Command1后，在文本框Text1中显示的内容是
_________________。
（4分）
23、圣诞节即将来临，某商场欲对仓库某货号商品进行补仓以应对即将举办的促销活动。
6家供货商给出的报价分别为54、48、43、60、58、55，若采用冒泡排序算法对其进行从大到小排序，则第三遍的排序结果是_____________。
（5分）
原始数据
48
54
43
60
55
58
第1遍
60
48
54
43
58
55
第2遍
60
58
48
54
43
55
第3遍
第4遍
60
58
55
54
48
43
第5遍
60
58
55
54
48
43
24、某俱乐部举行射击比赛，最后有十人进入决赛，录入员编制了如下VB程序，功能是根据成绩进行排序，程序中数组a保存所有参赛者的姓名，数组b保存此成绩对应的成绩，第i位参赛者的姓名保存在a（i）中，成绩保存在b（i）中。
程序界面如图9-1所示，左边列表框List1中显示原始数据（姓名和相应的成
绩），单击“排序”按钮（Command1），排序后的结果按成绩从高到低显示
在列表框List2中。
图24-1
设计应用程序界面时，为添加“排序”按钮，应使用如图24－2所示的
“控件工具箱”中的________（填写相应编号），并在图24－3所示的“属性”
窗口中，将__________属性值设置为“排序”。
（每空4分）
解决此问题的算法流程图如下所示，排序部分的程序段如下：
Dima（1To12）AsString
Dimb（1To12）AsSingle
PrivateSubCommand1_Click（）
DimiAsInteger,jAsInteger,kAsInteger,xAsSingle,yAs___①___
Fori＝1To11
k＝i
Forj＝i＋1To12
If___②___Thenk＝j
Nextj
Ifk<>iThen
y＝a（i）:
a（i）＝a（k）:
a（k）＝y
______
EndIf
Nexti
Fori＝1To12
List2.AddItema（i）＋” ”＋Str（b（i））
Nexti
EndSub
PrivateSubForm_Load（）
'此过程用于对数组a和数组b进行初始赋值，代码略
EndSub
（2）解决此问题的算法是____________________。
（4分）
（3）程序中划线处应填入____________________。
（4分）
（4）程序中划线处应填入____________________。
（4分）
（5）程序中划线处应填入____________________。
（4分）
升级会员 