浙江省金华一中高二信息技术上学期第二次段考试卷.doc

金华一中20172018学年第一学期第二次段考试卷高二 技术一、选择题（本大题共有10题，每题2分，共20分。选出各题中一个符合题意的正确选项，不选、漏选、多选、错选均不给分）1. 若要在列表框lst_mc中显示文本“金华一中”，下列语句正确的是（ ）a. list1.additem = “金华一中”b. list1.additem(“金华一中”)c. lst_mc.additem = “金华一中”d. lst_mc.additem “金华一中”2. 能正确判断三个整数型变量a、b、c值相等的vb表达式是（ ）a. a = b = cb. a = b and a = cc. a = c or b = c or a = bd. a b - c = 0 3. 下列visual basic表达式中，能产生80到100之间（包括80和100）随机整数的是（ ）arnd() * 100brnd() * 100 - 20cint(rnd() * 20) + 80dint(rnd()*21)+804. vb程序中表达式 33 mod 173*2的值为（ ）a.10 b.1 c.2 d.35. 某算法的部分流程如图所示，执行这部分流程，结束时n的值为（ ）a. 1b. 2c. 3d. 46. 有如下vb程序段： dim a(l to 5) as integer, i as integer, c as integer a(1) = 2 : a(2) = 4 : a(3) = 6 : a(4)=36 : a(5) = 72 s=0 for i = 2 to 5 if a(i - 1) 2 = a(i) then s = s + a(i) next i text1.text = str(s)该程序段运行后，文本框text1中显示的内容是( ) a.4b. 6c. 8d. 407. 有如下程序段： for i = 5 to 4 step -1 for j = 1 to i-1 if a(j) a(i) then t = a(j): a(j) = a(i): a(i) = t end if next j next i数组元素a(1)到a(5)的值依次为“3，1，4, 2 ,5”，经过该程序段“加工”后，数组元素a(1)到a(5)的值依次为( )a. 1,2,3,4,5b. 2,1,3,4,5 c. 3,1,2,4,5 d. 1,3,2,4,58. 某vb程序使用了递归函数，代码如下：private sub command1_click() n= val(text1.text)text2.text = f(n) end sub function f(x as integer) as stringdim t as integerif x = 1 then t = 1 else t = val(f(x - 1) + 2f=str(t) end function在文本框text1中输入3，运行程序并点击按钮command1后，文本框text2中显示的内容是（ ）a1 b5 c135 d 5319. 有如下程序段：tail = 6：i = 1：r = val(text1.text)do while i a(j - 1) then t = a(j): a(j) = a(j - 1): a(j - 1) = t end if next j i = i + 1 for j = i to tail - 1 if a(j) a(j + 1) then t = a(j): a(j) = a(j + 1): a(j + 1) = t end if next j tail = tail - 1loop数组元素a(1)到a(6)的值依次为“73、56、28、61、44、92”，若在文本框text1中输入“2”，则经过该程序段“加工”后，数组元素a(1)到a(6)的值依次为a. 73,61,56,92,44,28b. 92,73,56,61,44,28c. 92,73,61,56,28,44d. 92,73,61,56,44,2810. 有序（非降序）数组a有n个元素，用对分查找算法在数组a中查找key值所在的位置，如果有重复的元素，则显示最早出现该key值的位置。相应的vb程序段如下：key = val(text1.text)i = 1: j = ndo while i key then j = m - 1 elseif a(m) j then label2.caption = 找不到 + str(key)end if要使程序实现上述算法思想，则方框中的语句是aa(m - 1) = key ba(m) = key cm - 1 = 0 and a(m - 1) = keydm - 1 = 0 and a(m) = key二、 综合题（本大题共有5题，共30分。）11. 某同学编写一个“查找子串出现位置”的程序。功能如下：在文本框text1中输入字符串s1，在文本框text2中输入字符串s2，点击按钮command1后在标签label3上显示查找的结果。运行界面所示。（1）在设计程序界面时，要清空文本框中的显示内容，应修改该文本框中的 属性。（2）实现上述功能的vb程序如下，请在划线处填入合适代码。private sub command1_click()dim s1 as string, s2 as stringdim i as integer , j as integers1 = text1.texts2 = text2.textfor i = 1 to len(s1) - len(s2) + 1 do while mid(s1, i + j, 1) = mid(s2, j + 1, 1) and j = a(i) thenlist1.additem str(a(i) end ifi = i + 1 loop end sub（1）上述代码中“list1.clear”中的clear是对象list1的 （选填： 属性 / 事件 / 方法）。（2）为实现以上功能，画线处应填入的代码为 画线处应填入的代码为 （3）程序运行正确后，在文本框内输入708，并单击“计算”按钮。则程序运行结果为 （选字母a/b/c）。abc13. 一个十进制整数的二进制表示中，如果数字“1”的个数多于数字“0”的个数，则称该整数为a类数。如十进制整数26的二进制表示为11010，26是一个a类数。下列vb程序的功能是：统计前1000个自然数中a类数的个数，并在文本框中输出。请在划线处填入合适代码。private sub command1_click() dim i as integer, n as integer dim s as integer, t as integer, k as integer s = 0 for i = 1 to 1000 t = 0 ： k = 0 do while n 0 if n mod 2=0 then t = t + 1 else k = k + 1 loop if then s = s + 1 next i text1.text = str(s)end sub14. 小明用 vb编写了一个连续高温天数的统计软件。小明采集了金华市 7-8 月的每日最高气温，并存放在 access数据库中。程序运行时，读取日期和最高气温并显示在列表框 list1 中，在文本框 text1 中输入温度值，单击“统计”按钮 command1，程序自动统计运行在该温度值及以上的最长连续天数，并显示在 text3 中，同时在 text2 中显示日期区间，运行界面如下图所示。实现上述功能的 vb 代码如 下，在划线处填入合适代码。dim rq(1 to 100) as string 存放日期dim qw(1 to 100) as integer 存放最高气温值dim n as integer 总天数private sub form_load() 读取数据库内容，其中日期数据存放在数组 rq 中，最高气温数据存放在 qw 中，第 i 个日期保存在 rq（i）中，对应的气温保存在 qw（i）中，并显示在列表框 list1 中，代码略end subprivate sub command1_click()dim ntempend as integer 记录当前结束日期的下标dim max as integer 记录最大连续天数dim nend as integer 记录最大连续天数下的结束日期的下标dim ncount as integer 统计连续天数dim tjqw as integer 存放输入的温度tjqw = val(text1.text)ncount = 0max = 0for i = 1 to n if _ then ncount = ncount + 1 ntempend =i else ncount = 0 end if if max ncount then max = ncount _ end ifnextif max 0 then text2.text = _ & - & rq(nend)15. 编码工作常被运用于密文或压缩传输。有一种最简单的编码方式，把一些有规律的单词编成数字。编码方法如下：字母表中共有26个字母a，b，z，把符合“长度不超过6”的所有字符组合升序排列，一个单词的编码就对应着它排序后的位置。例如：a1 b2 z26 aa27 ab28 az 52 ba 53 bb 54小何为此编写了vb程序，将该编码理解为26进制数值，求该编码对应的数值。程序运行，从文本框text1输入要查询的单词，单击按钮command1，如果输入的单词符合编码条件，则在label3上显示对应的编码值否则在label3中显示“不符合编码条件”。实现上述功能的vb程序和程序运行界面如下所示，请补充完善代码。function c(n as long, r as long) as long dim i as long, cc as long cc = 1 for i = 1 to r cc = cc * n next i end functionprivate sub command1_click() dim s as string, ch as string dim bm as long, qz as long dim xh as integer s = text1.text bm = 0 flag = true for i = 1 to len(s) ch = mid(s, i, 1) if then flag = false exit for end if xh = asc(ch) - asc(a)+1 bm = bm + xh * qz next i if flag then text2.text = s + 的编码值为： + else text2.text = 输入内容不符合编码规则 end ifend sub金华一中20172018学年第一学期第二次段答题卷高二 技术 信息技术部分一、选择题（本大题共有10题，每题2分，共20分。选出各题中一个符合题意的正确选项，不选、漏选、多选、错选均不给分）题号12345678910答案dbdbbdbbbc三、 综合题（本大题共有5题，