诸暨中学2018学年高二期中考试技术试卷及答案

诸暨中学2018学年第一学期高二期中考试技术试卷第一部分信息技术（共50分）单选题（每题2分，共28分）1、在VisualBasic代码中，将多个语句写在同一行上的并行符是A.撇号（'）B.冒号（：）C.感叹号（！）D.问号（?）2、下列控件中可用于接受用户输入文本，又可用于显示文本的是A.Label控件B.TextBox控件C.Timer控件D.CommandButton控件3、VisualBasic规定工程文件的扩展名是A..exeB..frmC..vbpD..bas4、在程序中用到某一整型变量的数据范围为40000至40000，则该变量类型应该说明为5、用语句DimA(3To3)AsInteger所定义的数组的元素个数是 A．3B．4C．6D．76、下列逻辑运算表达式的值为"True"的是ornottrueandnottrueC.trueornottrueandnottrue7、下列关于For...next语句的说法正确的是A.循环变量、初值、终值和步长都必须为数值型

后的步长只能为正数C.初值必须小于终值

8、下列赋值语句中不正确的是A．x+y=5B．x=y<>5C．=timeD．x=x+y9、某算法部分流程图如下左图所示，A.222 B.144 C.142 D.22410、某流程图如上右图所示：下列vb代码与流程图一致的是（）如上右面这段程序执行完后，s和i的值分别为（）13、有一组原始数据：23、25、8、63、84、77、65、19、33、17。利用冒泡排序算法进行排序，第1遍加工后的数据为：8、23、25、17、63、84、77、65、19、33，请问第二遍加工后数据的顺序为（）A．8、23、25、63、84、77、65、19、33、17B．8、23、25、17、63、84、77、65、19、33 C．8、17、23、25、63、84、77、65、19、33D．8、17、23、25、19、63、84、77、65、3314、有一组原始数据：23、25、63、84、77、8。利用选择排序算法进行降序排序，请问第二遍加工后数据的顺序为（）A．84、77、23、25、8、63B．84、77、63、25、8、23C．84、77、63、23、25、8D.8、23、25、63、84、77填空题（15题4分，16题6分，17题6分，18题6分，共22分）15、以下程序的功能是随机生成100个97122之间的正整数（包括97和122），并将一个区间内的数（第x个元素到第y个元素）取出并按升序输出。请修改加框处的错误。PrivateSubCommand1_Click()Dima(1To100)AsIntegerx=Val(Text1.Text)y=Val(Text2.Text)(1)Fori=1To100(1)a(i)=Int(Rnd*122)List1.AddItemStr(a(i))NextiFori=xToy1(2)(2)Forj=100Toi+1Ifa(k)>a(j)Thenk=jNextjIfk<>iThent=a(k):a(k)=a(i):a(i)=tEndIfNextiFori=xToyList2.AddItemStr(a(i))NextiEndSub16、小吴为了探究冒泡排序过程中数据的“移动”情况，编写了一个VB程序，功能如下：在列表框List1中显示排序前数据（存储在数组a中），在文本框Text1中输入初始位置（即下标值），单击“排序”按钮Command1后，在标签Label1中显示指定初始位置的数据在排序过程中的位置变化情况，排序后的数据显示在列表框List2中。程序运行界面如图所示。实现上述功能的VB程序如下，请在横线处填上合适的代码，改正加框处的代码。Dima(1To8)AsIntegerDimnAsIntegerPrivateSubForm_Load()'n=8，排序前的8个数据存储在数组a中，并在列表框List1中显示'代码略EndSubPrivateSubCommand1_Click()DimiAsInteger,jAsInteger,kAsIntegerDimposAsInteger'变量pos存储指定数据的位置（既下标值）DimsAsString'变量s存储pos变化情况pos=Val(Text1.Text)Fori=1Ton1 Forj=________________________'（1） Ifa(j)<a(j1)Then ________________________'（2） a(j1)=a(j) a(j)=k '如果pos位置的数据参与交换，则更新pos值，记录pos变化情况 Ifpos=jThen pos=j1 s=s+"→"+Str(pos) Else'（3） pos=j s=s+"→"+Str(pos) EndIf EndIf NextjNextiLabel1.Caption="位置变化情况："+sFori=1Ton List2.AddItemStr(a(i))NextiEndSub17、一个程序实现如下功能：在文本框text1中输入一个数，在文本框text2中输入需要转换的进制（小于等于16），点击转换按钮，在标签Label3输出转换后的十进制数，程序运行界面如下图所示：（1）请在划线处填入合适的代码(3)(2(3)(2)(1)EndFunction18、哥德巴赫1742年给欧拉的信中提出了以下猜想：任一大于2的偶数都可写成两个质数之和，是为著名的哥德巴赫猜想。下面VB程序用来验证410000的偶数分解。请完善下列程序代码：Functionprime(xAsInteger)AsBoolean’此函数判断x是否为质数prime=True(1)Fori=2ToInt(Sqr(x))(1)If__________Thenprime=False:ExitForNextiEndFunctionPrivateSubCommand2_Click()DimaAsInteger,bAsInteger(2)Dimn(2)_______________Fora=2Ton\2(3)(3)If___________ThenList1.AddItemStr(a)+""+Str(b)+""+Str(n)EndIfNextEndSub答案及评分标准一、单选题（每题2分）15BBCCD610CAAAD1114CCDC二、填空题（每空2分）15（1）a(i)=int(rnd*26+97)(2)j=ytoi+1step1或j=i+1toy16(1