浙江省金华一中2017_2018学年高二信息技术上学期第二次段考试卷2018053103113.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题，