浙江省三门亭旁高级中学高一下学期信息技术第一次月考Word文件下载.docx
《浙江省三门亭旁高级中学高一下学期信息技术第一次月考Word文件下载.docx》由会员分享，可在线阅读，更多相关《浙江省三门亭旁高级中学高一下学期信息技术第一次月考Word文件下载.docx（12页珍藏版）》请在冰点文库上搜索。
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程序段：
DimaAsInteger,bAsInteger
a＝9
b＝13
Printfun（a,b）;
a;
b
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
EndFunction
PrivateSubCommand1_Click（）
DimaAsSingle,bAsSingle,ansAsSingle
a=Val（Text1.Text）
b=Val（Text2.Text）
ans=___________
Label1.Caption=ans
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
下列说法正确的是（）
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）<
a（j－1）Then
t＝a（j）：
a（j）＝a（j－1）：
a（j－1）＝t
Nextj
在经过某一遍排序“加工”后，数组元素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
Ifa（j）>
a（i）Then
a（j）＝a（i）：
a（i）＝t
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”进行排序，冒泡排序算法的部分程序如下：
a（j－1）Thent＝a（j）：
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）<
a（k）Thenk＝j
Ifi<
>
kThen
t＝a（i）:
a（i）＝a（k）:
a（k）＝t
EndIf
s＝s＋str（a（i））
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遍
第2遍
第3遍
…
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
Ifk＝1Thens＝s＋1
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
若要使语句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
Ifa<
bThen
num=a
num=b
Ifnum>
cThennum=c
kk=num
DimxInteger,yAsInteger,zAsInteger
x=200
y=100
z=300
Text1.Text=kk（x,y,z）
程序运行时，单击命令按钮Command1后，在文本框Text1中显示的内容是
_________________。
23、圣诞节即将来临，某商场欲对仓库某货号商品进行补仓以应对即将举办的促销活动。
6家供货商给出的报价分别为54、48、43、60、58、55，若采用冒泡排序算法对其进行从大到小排序，则第三遍的排序结果是_____________。
（5分）
48
54
43
60
55
58
第4遍
第5遍
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
DimiAsInteger,jAsInteger,kAsInteger,xAsSingle,yAs___①___
Fori＝1To11
k＝i
Forj＝i＋1To12
If___②___Thenk＝j
Ifk<
iThen
y＝a（i）:
a（i）＝a（k）:
a（k）＝y
______
Fori＝1To12
List2.AddItema（i）＋” ”＋Str（b（i））
PrivateSubForm_Load（）
'
此过程用于对数组a和数组b进行初始赋值，代码略
（2）解决此问题的算法是____________________。
（3）程序中划线处应填入____________________。
（4）程序中划线处应填入____________________。
（5）程序中划线处应填入____________________。
升级会员 