浙江省台州市书生中学2018-2019学年高二信息上学期第一次月测习题.docx

浙江省台州市书生中学2018-2019学年高二信息上学期第一次月考试题（满分：50分 考试时间： 45分钟） 2018.10一、选择题（本大题共12小题，每小题2分，共24分。在每小题给出的四个选项中，只有一个 符合题目要求）1. 下列有关信息的说法，正确的是()A.信息也像物质和能量一样会产生损耗B.通过无线网络传输的信息不依附于任何载体C.教科书是信息的载体，书本中的文字是信息D.人类无时无刻也离不开信息，信息无处不在2. 某二进制数111010，其中两位数模糊不清，下列说法正确的是（ ）A.将该数转成十进制，最大值是246 B.将该数转成十六进制，可能得到三位数C.将该数转成十进制，无法确定是奇数还是偶数D.在该数后添加一个0，再转成十六进制，得到的新数是原数的16倍 3. 使用 UltraEdit 软件观察字符“2018，Lucky！”的内码，部分界面如图所示。下列说法不正确的是（ ）A.图中内码表示的 ASCII 码字符共有9 个B.小写字母“z”的内码用二进制表示是“0111 1010”C.字符“10”的内码十六进制内码是“3A” D.字符“！”的十六进制内码是“A3 A1”4. 幅未经压缩的1024*768像素、256色的BMP图像，其存储容量约为A.192KB B.768KB C.6MB D.24MB5. 将一个时长为1分钟、分辨率为800*600的NTSC制式的黑白动画压缩为MPEG格式文件，压缩后的文件大小为10MB，则其压缩比约为（ ）A.5：1 B. 9：1C. 10 : 1D. 20 : 16. 建立一个VB程序窗体，如图所示，下列说法正确的是A.该窗体的名称是“第一个VB小程序”B.当前选中对象的类名是“Lab4”C.当前界面共有7个对象D.“VB01.vbp”是窗体文件名7. 下列VB表达式中值最大的是A.Sqr（2018） B. Abs（-2018） C.Len（2018）+1 D. int(rnd*2018)8. 有如下VB程序段：Dim x As Integer, y As Integer, s As Integerx=3:y=4If xy And y0 and yx Then s=x*yElseIf x=0 Or y=0 Then s=x+yElse s=0End If该程序段运行之后，变量s的值为（ ）A.0 B. 3 C. 7 D.129. 某两段VB程序分别如图1和图2所示：Dim n As Integer, s As Integer, i As Integern=Val(Text1.Text)s=0For i=1 To n Step 3s=s+iNext iText2.Text=Str(s)图1Dim n As Integer, s As Integer, i As Integern=Val(Text1.Text)s=0i=1Do While i=ns=s+ii=i+2LoopText2.Text=Str(s)图2当n的值为10时，关于该两段程序，下列说法不正确的是()A.两段程序中i的初值相同 B.两段程序都采用了循环结构C.图1程序实现了算式“1+4+7+10”的运算 D.图2程序中i=i+2执行了5次10. 某算法表示如下：将 0 赋值给变量 Num，将 1 赋值给变量 i若 i 除以 2 余 0，则将变量 Num 的值增加 1 并输出 i变量 i 的值增加 1，若变量 i 小于等于 10，则转结束 关于该算法的说法不正确的是A.该算法是用自然语言来描述的B.该算法结束后i=11C.该算法最后输出 5 个数值D.该算法只能用 Do While 语句实现YNs1k1a8a=65 and Asc(ch)=97 then ch=Chr(Asc(ch)+32) End If Label1.Caption=Label1.Caption+chNext i已知字母“A”的ASCII码65，字母“a”ASCII码97。若在Text1中输入“Happy 2018”，则Label1中应显示（ ）A. H 2018 B. APPY 2018 C. HAPPY 2018 D. Happy 2018二、非选择题：（本大题共4小题，其中第13题和第14题每题6分，第15题和第16题每题7分，共26分）13. 台州市政公共停车的收费标准如下：30分钟以内不收费，1小时及以内收费5元，超过一小时后超过部分2元小时收费（不足1小时的按1小时计算）。小明据此设计了以下VB程序，程序运行界面如图。（1）若将窗体标题改为“台州停车收费”，应修改窗体属性栏中的 属性。（2）运行程序，在文本框Text1中输入当天停车时间（分钟），单击“收费”按钮Command1，在文本框Text2显示所对应的费用（元），实现上述功能的VB程序如下，请在划线处填写合适的代码。Private Sub Command1_Click()Dim t As Integer, cost As Integer, h As Integer h是小时时长t = Val(Text1.Text)If t = 30 Thencost = 0Elseh = (t - 1) 60 + 1If Thencost = 5Elsecost = End IfEnd IfText2.Text = End Sub 14. 现要编写一个统计20182100年间闰年次数的程序。已知出现闰年条件是：年份数能被4整除但不能被100整除，或者能被400整除。如图所示，要求程序运行后单击按钮，在列表框中显示闰年年份，并将统计次数显示在Label1。（1）代码“Private Sub Cmd1_Click()”中的Cmd1_Click()是_。（单选，填字母：A对象名B事件C事件处理过程D方法）（2）下面的VB程序可用来实现上述功能，请在划线处填写合适的代码。Private Sub Cmd1_Click( )Dim c As Integer, year As Integerc = 0A位置一 B位置二 If Then c = c + 1C位置三 End IfD位置四Next year Label1.Caption = 闰年共有 + Str(c) + 次End Sub（3）上述代码段中缺少了List1.AddItem Str(year)，此句代码应该加在_（填字母）位置。15. 素数只能被1和它本身整除，不能被其他自然数整除。编写VB程序实现如下功能：单击“产生奇数并判断”按钮Command1，随机产生一个三位正奇数显示在文本框Text1中，并在文本框Text2中显示其是否为素数的判断结果。例如，当随机产生的三位正奇数为953时，程序运行界面如图a所示。图a 图b（1）在设计程序界面时，应使用图b所示“控件工具箱”中的 (填写相应编号)添加文本框Text1。（2）实现上述功能的VB程序如下，请在划线处填写合适的代码。 Private Sub Command1_Click() Dim n As Integer, i As Integer Dim flag As Boolean用于标记是否为素数 Randomize n = Int( )*2+1 随机生成三位正奇数 Text1.Text = Str(n) flag = True标记为素数 i = 3 Do While i = n - 1 And flag = True If n Mod i = 0 i = i + 2 LoopIf flag=true Then Text2.Text = Str(n) + “是素数”Else Text2.Text = Str(n) + “不是素数” End If End Sub（3）以下选项中，与加框处表达式“n Mod i = 0”等价的是 (单选，填字母）。A. n i = Int(n / i)B. n i = n/ i C. n Mod i = n i16. 我国居民身份证号是由 18 位字符组成，其中前 17 位是数字，第 18 位是校验位（校验位字符在“0”“9”或“X”中选取）。由前 17 位数字经过一定的规则计算得到校验值， 在查验居民身份证号有效性时，如果校验位中的字符与计算所得校验值相等则身份证号有效， 否则无效。校验值计算规则如下：第一步：将身份证号前 17位数字分别乘以不同的系数后相加，对应系数如下表所示。位数1234567891011121314151617系数7910584216379105842第二步：将第一步的计算结果除以 11，得到余数。 第三步：根据第二步的计算结果从下表获取对应的校验值。余数012345678910校验值10X98765432例如：某身份证号为要计算此身份证的校验值步骤如下： 第一步：计算 3*7+4*9+0*10+5*5+1*2=189第二步：189 除以 11 得到余数为 2第三步：由余数 2 获取校验值 X。根据以上规则小王编写了一个验证身份证号是否有效的 VB 程序，功能如下：在文本框 Text1 中输入身份证号，单击“验证”按钮 Command1 后，在列表框 List1 中显示验证结果。 程序运行界面如图 a 所示。（1）设计程序界面时，应使用图 b 中的（填写相应编号）添加列表框对象 List1。图a 图b（2）实现上述功能的 VB 程序如下，请在划线处填入合适代码。Private Sub Command1_Click( )Dim i As Integer, a As Integer, b As Integer, sum As Integer, pos As Integer Dim idCode As String, result As StringConst xs = 0709100508040201060307091005080402存储前 17 位每位系数Const checkCodeStr = 10X98765432存储余数对应的检验值 sum = 0For i = 1 To 17 Step 1a = Val(Mid(idCode, i, 1)b = sum = sum + a * b Next isum Mod 11pos = checkCode = Mid(checkCodeStr, pos, 1)sum Mod 11sum Mod 11sum Mod 11sum Mod 11sum Mod 11sum Mod 11sum Mod 11sum Mod 11sum Mod 11sum Mod 11If checkCode = Mid(idCode, 18, 1) Then result = 有效Else result = 无效End ifList1.AddItem (idCode & & result)End Sub（3）程序中加框处代码有误，应修改为。2018学年第一学期书生中学高二年级第一次月考信息技术答 题 卷一、选择题（本大题共12小题，每小题2分，共24分。在每小题给出的四个选项中，只有一个符合题目要求）123456789101112二、非选择题：（本大题共4小题，其中第13题和第14题每题6分，第15题和第16题每题7分，共26分）13. (1) (2) 14. （1） （2） （3） 15. （1） （2） （3） 16. （1） （2） （3） 2018学年第一学期书生中学高二年级第一次月考信息技术参考答案一、选择题（本大题共12小题，每小题2分，共24分。在每小题给出的四个选项中，只有一个符合题目要求）12345678910DACBCCBADD1112BC二、非选择题：（本大题共4小题，其中第13题和第14题每题6分，第15题和第16题每题7分，共26分）13. (1)Capt