浙江省诸暨市牌头中学2018_2019学年高二信息技术上学期期中试卷.docx

浙江省诸暨市牌头中学2018-2019学年高二信息技术上学期期中试卷一. 选择题（本大题共16小题，每小题2分，共32分。每小题列出的四个备选项中只有一个是符合题目要求的，不选、多选、错选均不得分）1.在Visual Basic 中,下列能作为变量名的是( )A.x+1 B.x_1 C.Or D.If2. 能正确判断x为偶数的VB表达式是( )A.x Mod 2=0 B.Int(x/ 2)= 0 C.x/ 2=0 D.x2=03. 产生a,b(a,b 都是整数且a=0 Or Asc(a)=9 B.“0”=a=“9” C.a=“9” D.a=“0”and a0.5 Then n=n+1 Else m=m+1 Next i分析该程序段,该代码中缺少了( )A.For B.End If C.Next D.If6. 如下VB 程序代码:For i=3 to 15 step x Print “”Next i下列说法中正确的是( )A.若x 的值为3,则显示5 个 B.若x 的值为5,则显示4 个C.若x 的值为0,则显示0 个 D.若x 的值为-2,则显示1 个7.对称字符串的特征是从左到右读和从右到左读是完全一样的,如“abba”是对称的,“abcba”也是对称的,判断字符串是否对称的VB程序段如下:n=Len(s) s 是待判断的字符串k=0:j=nFor i=1 To n/ 2 Next iIf k=0 Then Labell.Caption=“对称”Else Labell.Caption=“不对称”方框中的代码由以下三部分组成: j=j-1 If cl c2 Then k=k+1 cl=Mid(s,i,l):c2=mid(s,j,l)代码顺序正确的选项是( )A. B. C. D.8.下列VB 程序用于求2个正整数(均小于10000)的最大公约数:Private Sub Command1_Click()Dim x As Integer,y As Integer,z As Integerx=Val (Text1.Text) 第1 个正整数y=Val(Text2.Text) 第2 个正整数 调用函数gcdText3.Text=Str(z)End SubFunction gcd(a As Integer,b As Integer) As Integer Do While a bIf ab Then a=a-b Else b=b-aLoopgcd=bEnd Function方框中的正确语句是( )A.z=gcd B.z=gcd(a,b) C.z=gcd(x,y) D.z=gcd x,y9. 用选择排序将七个数“2022,2017,2018,2014,2021,2012,2015”从小到大进行排序,则第二轮交换数据后的顺序是( )A.2022,2021,2018,2017,2014,2012,2015 B.2012,2014,2018,2017,2021,2022,2015C.2012,2017,2018,2014,2021,2022,2015 D.2022,2021,2018,2014,2017,2012,201510. 已知斐波那契数列前8项是1,1,2,3,5,8,13,21,设计如下VB程序求其第n 项的值:Dim a(1 to 1000)as long,n as integern=Val(Text1.Text)a(1)= 1:a(2)= 1For i=3 to n a(i)= a(i-1)+a(i-2)Next iLabel1.Caption=“斐波那契的第”&Str(n)&“是”&a(n)该程序用到了下列哪一个算法( )A.枚举算法 B.递归算法 C.排序算法 D.查找算法11.有如下VB 程序段:m = Val(Text1.Text)Do While m 0x = m Mod 8m = m 8a(x) = a(x) + 1If a(x) = 1 Then n = n + 1Loop数组a 各元素的初始值都为0,在文本框Text1中输入“529”,执行程序后,变量n的值为（）A.1 B.2 C. 3 D. 412.若数组元素d(1)到d(8)的值依次为“86,75,58,46,20,18,12,5”,查找某Key值的VB程序段如下:n = 0 : i = 1 : j = 8Key = Val(Text1.Text)Do While i d(m) Thenj = m - 1 : n = n - 1Elsei = m + 1 : n = n + 1End IfLoopLabel1.Caption = Str(n)当输入不同的Key 值,运行该程序段后,在标签Label1中显示的不同结果共有A.5 种 B.6 种 C.7 种 D.8 种13.实现某排序算法的部分VB 程序如下:For i=1 To 6 k=i For j=i+1 To 7 If a(j)a(k) Then k=j Next j If ik Then t=a(i):a(i)= a(k):a(k)= t End IfNext i在排序过程中,经过某一遍排序“加工”后,数组元素a(1)到a(7)的数据依次为“10,41,75,12,63,11, 85”则下一遍排序“加工”后数组元素a(1)到a(7)的数据依次是( )A.10,11,41,75,12,63,85 B.10,11,75,12,63,41,85 C.10,11,12,75,63,41,85 D.10,11,12,41,63,75,8514.7位学生的身高(单位:cm)从高到低依次为:178,177,175,172,170,165,162用对分查找法找到178 的过程中,依次被访问到的数据是( )A.178 B.172,175,178 C.172,177,178 D.172,175,177,17815.某对分查找算法的VB 程序段如下:i=l:j=9:n=0key=Val(Text1,Text)Do While i=j n=n+1 m=Fix(i+j) / 2) If key=d(m) Then Exit Do Exit Do 表示退出循环 If keyd(m) Then j=m-1 Else i=m+1Loop数组元素d(1)到d(9)的值依次为“7,12,18,25,39,58,61,72,86”若该程序段运行结束后,n 的值为2,则key 的值是( )A.39 B.18 或61 C.18 或72 D.12 或6116.将数组a中的8 个数据“18,33,5,26,86,0,60,200”按从大到小的顺序排列,每次可以交换任意两个元素,最少需要交换的次数是( )A.4 B.5 C.6 D.7二填空题（本题共3大题，其中17题4分，18题6分，19题8分，共18分）17.某学校开设多样化选修课程,学生可以根据个人兴趣和特长选择选修课假设每门选修课的选课人数不超过40,学生选课的相关信息存放在数据库文件“student.accdb”的data 表中,选课查询程序运行时界面如图所示程序功能:在文本框Text1 中输入课程号,单击“查询” 按钮Command1,在列表框List1 中显示选修本课程的学生信息如果没人选修该课程显示“该课程当前无人报名”按此要求将程序补充完整Private Sub command1_click() Dim xh(1 to 40),xm(1 to 40) As String 学号和姓名的数组Dim i,num as integer Dim conn As New ADODB.Connection,rs As New ADODB.Recordset Dim strSQL As Stringconn.ConnectionString=“Provider=Microsoft.ACE.OLEDB.12.0;DataSource=”+App.Path+“ ” 打开到数据库的链接 conn.OpenstrSQL=”select xh,xm from where 课程&(Text1.Text)&”设置查询的SQL 语句 Set rs.ActiveConnection =conn 设置rs 的ActiveConnection 属性,指定与其关联的数据库链接 rs.Open strSQL 打开记录集,将从表student 中读取的结果集保存到记录集rs 中 List1.Clear num=0 Do while not rs.EOFnum=num+1 xh(num)= rs.Fields(“xh”) xm(num)= rs.Fields(“xm”) rs.MoveNext loop rs.Close conn.close set rs=nothing set conn=nothing For i=1 to numlist1.additem xh(i)+”+xm(i) Next i if num=0 then list1.additem(“该课程当前无人报名”)End Sub(1)程序中划线处应填入 (2)程序中划线处应填入 18.运动会田径比赛,记分裁判把各赛道运动员的成绩表交给录入员录入到计算机中,录入人员编制了如下程序运行程序,按道次顺序依次输入8个成绩,道次号存放在数组a中,相应道次的运动员比赛成绩存放于数组b中,并将原始成绩显示在列表框List1 中单击“成绩排序”按钮(Command1),将原始成绩从好到差排序,排序结果显示在列表框List2 中运行效果如图所示实现上述功能的VB 程序如下:(1)请在划线处填入合适代码Dim a(1 To 8)As Integer 存储道次编号Dim b(1 To 8)As Single 存储运动员成绩Dim num As IntegerPrivate Sub Command1_Click()Dim i As Integer,j As Integer,k As Integer,p As IntegerDim t As SingleFor i=1 To 7 k=i For j=i+1 To 8 If Then k=j End If Next jIf ki Then p=a(i):a(i)= a(k):a(k)= p t=b(i):b(i)= b(k):b(k)= tEnd IfNext iFor i=1 To 8List2.AddItem Str(a(i)&“道:”& Str(b(i)Next iEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) 按回车键录入比赛成绩Dim cj As SingleIf KeyAscii=13 Then 是否为回车键num=num+1cj=Val(Text1.Text)If cj0 And num=8 Then a(num)= num List1.AddItem Str(a(num)&“道:”&Str(b(num)Else MsgBox “输入无效” End IfText1.Text=“”End IfEnd Sub(2)在Command1_Click( ) 事件过程中使用的排序算法是 (选填:冒泡/ 选择)排序19.某编码由4 个信息位和3 个校验位组成，通过对编码信息进行验算，能够检测并纠正一位错误代码。该7 位编码中b1b4 为信息位，p1p3 为校验位，位置如下：编码中位1234567对位信息p1p2b1p3b2b3b4校验的方式如下，求校验值g1、g2、g3：g1 = p1 Xor b1 Xor b2 Xor b4g2 = p2 Xor b1 Xor b3 Xor b4g3 = p3 Xor b2 Xor b3 Xor b4其中Xor 为异或运算，规则是：0 Xor 0 =0，0 Xor 1 =1，1 Xor 0 =1，1 Xor 1 =0，p1 Xor b1 是将p1、b1 转换为二进制后按位进行异或运算，如7 Xor 12 的结果为11。（1）若计算得到的校验值g1、g2、g3 均为0，说明校验正确，数据无错误。例如：若7 位编码为1101001，计算校验值g1、g2、g3 值均为0，验证正确。（2）若校验值g1、g2、g3 不全为0，说明数据有错，出错位置为g3g2g1（二进制数表示），纠错的方法是对错误的位进行取反，即“0”变“1”，“1”变“0”。例如：若7 位编码为1111001，计算校验值g1=1、g2=1、g3=0，不全为0，说明数据有错，错误位置在011（二进制数）位，即第3 位，原位置上“1”应为“0”，正确编码为1101001。小明为此编写了VB 程序，程序运行时，在文本框Text1 中输入编码值，单击“校验”按钮Command1 后，在文本框Text2 中输出运行结果,如第17 题图所示。第19题图实现上述功能的 VB 程序如下，请回答下列问题：（1）若按上述规则的7 位编码为1001000，其中一位有错，则正确的编码应为_ _。（2）请在划线处填入合适的代码。Function check(s As String) As IntegerDim i As Integer, g1 As Integer, g2 As Integer, g3 As IntegerDim c(1 To 7) As IntegerFor i = 1 To 7c(i) = Val(Mid(s