浙江省绍兴市诸暨中学2019_2020学年高二信息技术上学期期中试题.docx

浙江省绍兴市诸暨中学2019-2020学年高二信息技术上学期期中试题第一部分 信息技术(50分)一、选择题(本大题共12小题，每小题2分，共24分，每小题列出的四个备选项中只有一个是符合题目要求的，不选、错选、多选均不得分)1.如右图所示程序界面中共有几类对象A. 3 B. 4 C. 5 D. 62. 一个Visual Basic工程的部分设计界面如图所示,下列选项中错误的是A.窗体的Caption属性值是Form1B.当前选中的对象类型是图像ImageC.当前对象显示的图片可以通过代码修改 D.当前选中对象的名称是Image3.第一题图中为使窗体运行时显示标题“四则运算”，可在（ ）事件过程中添加语句：Form1.caption=”四则运算”A. Form1.load B. Form1_load C. Form_load D. Form.load4.某算法的部分流程图如下图所示。执行这部分流程后，输出ans的值是A. 64 B. 128 C. 256 D. 5125.下列表达式的运算结果与其他选项不同的是 A. 9 mod 18 8B. Abs(Int(-6.8)C. Asc(Mid(789, 1, 1) D. Val(9) - Sqr(4)6.下列表达式能正确判断变量a中保存的是数字字符的是Anot(a=”9”)B.Val(a)=0 and val (a)=0 and a=”0”and a key And a(i) pmin then pmin = a(i)Next i数组元素a(1)到a(6)的值依次为9，1，7，3，8，4，执行程序后，变量pmin的值为A. 1 B. 4 C. 7 D. 910.一组同学的英语听力成绩分别为24、27、16、15、24、18，下列采用排序算法及第二遍的排序结果分别为:原始数据242716152418第一遍272416152418第二遍第三遍272424151618第四遍272424181615第五遍272424181615A. 冒泡排序，27 24 16 15 24 18B. 冒泡排序，27 24 18 16 15 24C. 选择排序，27 24 16 15 24 18D. 选择排序，27 24 18 16 15 2411.有如下程序段：i=1Do while i=2j=1Do while j a(j+1) Then t = a(j): a(j) = a(j+1): a(j+1) = tEnd Ifj=j+1Loopi=i+1Loop数组元素a(1)到a(7)的值依次为“44，24，33，67，77，58，12”，经过该程序段“加工”后，数组元素a(1)到a(7)的值依次为A. 24，33，44，58，12，67，77B. 12，24，33，67，77，58，44C. 12，24，44，33，58，67，77D. 44，24，33，58，12，67，7712.有如下VB程序段:i = 1 : j = 8 : n = 0Key = Val(Text1.Text)Do While i Key Thenj=m-1 : n=n-1Elsei=m+1 : n= n+1End IfLoop当在文本框Text1中输入不同的值时，程序段执行后，变量n的值有几种不同的情况A. 5 B. 6 C. 7 D. 8二、填空题（13题6分，14题6分，15题7分，16题7分）13.编写VB程序，实现如下功能：在文本框Text1中输入十六进制数，单击“转换”按钮Command1，在列表框List1中输出对应的十进制数，运行界面如图所示，程序代码如下。（1）为实现上述功能，请在划线处填入合适的代码。Private Sub Command1_Click()Dim s As String, c As String, t As StringDim i As Integer, b As Integer, ans As LongDim flag As Boolean s = b = Len(s) flag = True ans = 0 For i = 1 To b c = Mid(s, i, 1) If c = 0 And c = A And c + tEnd Sub（2）由上述算法可知，运行时在Text1框中输入“d8”，列表框List1中添加的条目为 。（单选，填字母：A. d8-216/ B. d8-输入有误!）14.海龟turtle从坐标系原点出发开始爬行，每次只能选择走“上”、“下”、“左”、“右”其中一个方向整数步，经过若干次爬行后，要求编程实现计算出原点到爬行终点的直线距离，功能如下：在文本框中Text1中输入爬行轨迹，单击“计算”按钮后，程序计算出爬行终点距离原点的直线距离，并显示到label1中。（1）实现上述功能的VB程序如下，请在划线处填入合适代码。Private Sub Comd1_Click()Dim s As String, ch As String, x As Integer, y As Integer, d As Single, t As Strings = Text1.Textx = 0: y = 0: ch = t = Mid(s, 1, 1)For i = 2 To Len(s) Do While Mid(s, i, 1) = 0 And Mid(s, i, 1) = 9 ch = i = i + 1 Loop If t = 上 Then x = x + Val(ch) ElseIf t = 下 Then x = x - Val(ch) ElseIf t = 左 Then y = y - Val(ch) ElseIf t = 右 Then y = y + Val(ch) End Ifch = t = Mid(s, i, 1)Next id = Label1.Caption = 离原点直线距离为 + Str(d)End Sub（2）窗体中“计算”按钮的对象名是 （3）在文本框中Text1中输入“上4左5下1右2”，则离原点直线距离为 15.某自助无人图书馆实现机器人从书架上取书还书，以下程序模拟还书过程中机器人查找归还书籍插入位置：书架上已有书籍已按书名拼音简称升序排列，当用户还书时，机器人扫描书籍条码获得书名简称（该过程模拟程序中由用户输入文本框text1），查找书架上现有书籍，若找到与归还书籍相同的书，就把归还的书插入该位置，若书架上没有归还的书籍，就把归还的书插入合适的位置使书架上的书名简称还是升序排列。（1）按示例图中列表框中已有图书，若要再还一本“bc”，该书蒋放入第 个位置（2）完成代码填空Dim book(1 To 10) As String 存放书名简称，窗体加载时随机生存保存Private Sub Command1_Click()Dim key As Stringkey = Text1.Text i = 1: j = 10 Do While i = j m = (i + j) 2 If book(m) = key Then exit do If Then j = m - 1 Else i = m + 1 Loop If Then Label3.Caption = 放入书架第 + Str(m) + 个位置 Else Label3.Caption = 放入书架第 + + 个位置 End IfEnd Sub16.双十一刚过快递量激增，某电商平台启用无人机进行快递配送，快递配送时，首先根据快递仓库与客户间距离计算出距离时间，快递被配送到客户手中的实际时间除距离时间外还要加上客户等待无人机完成前面先配送的订单的时间。等待时间是指排在该客户快递之前的所有客户的距离时间之和。如果某客户的等待时间超过他的距离时间的3倍，他就会不愉快，反之是愉快的。己知每个客户的距离时间，请确定如何分配无人机的投递任务才能使愉快的人数最多，并输出最多的人数。例如：10个快递的距离时间如下表所示，则最多有8个客户是愉快的。快递编号l23456789l0距离时间3255671813拿到快递是否愉快是是是是否是是否是是(1)代码“Private Sub Commandl_Click()”中的Commandl_Click()是 (单选，填字母：A.对象名/B.事件名/C.事件处理过程名)(2)请在划线处填入合适代码。(3)程序代码中，加框处代码有错，请改正。Const n=10Dim a(1 To n) As IntegerPrivate Sub Command1_Click() Dim i As Integer,a As Integer,ans As Integer,t As Integer，读取每个快递的距离时间，依次存储在数组a中，代码略For i =1 To n1 For j =