浙江省台州市2017_2018学年高二信息技术上学期第一次月考试题2017102801153

浙江省台州市2017-2018学年高二信息技术上学期第一次月考试题（满分：50分考试时间：45 分钟）一、选择题（本大题共12小题，每小题2分，共24分。

在每小题给出的四个选项中，只有一个符合题目要求）1. 下列有关信息的说法，错误的是()A.现在很多智能手机有了指纹锁，是为了提升信息的安全性B.人类在造纸术和印刷术产生之前，信息无法存储C.公民身份证号和考生准考证号的编排，都属于信息的编码D.不同的载体的可以承载同样的信息2. 在计算机内，有符号数有3种表示法：原码、反码和补码。

(1)原码就是二进制定点表示法，即最高位为符号位，“0”表示正，“1”表示负，其余位表示数值的大小；(2)反码表示法规定：正数的反码与其原码相同；负数的反码是对其原码逐位取反，但符号位除外。

如二进制原码10010，则反码11101(注：在10010中，左边的1为符号码，故为负)；(3)补码表示法规定：正数的补码与其原码相同；负数的补码是在其反码的末位加1，符号位除外。

根据以上运算规则，二进制有符号数100011的补码的十进制表示是()A．－29 B．－4 C．－61 D．－363. 使用UltraEdit软件观察字符“挑战AlphaGo！”的内码，部分界面如图所示。

下列说法正确的是（）A．字符“！”的内码占两个字节B．字符“战”的十六进制码是“BD 41”C．字符“h”的二进制码是“01101000”D．字符“go”的十六进制码是“47 6F”4. 某文件夹下共有100张属性相同的BMP图片，共占用了约75MB的存储空间，已知图片的分辨率为1024*768，问这种图片包括多少种颜色（）A．8 B．16 C．256 D．5125. 将一个时长为1分钟、采样频率为44.1kHz、量化位数为16、双声道未经压缩的Wave格式音频文件压缩为MP3格式文件，压缩后的MP3格式文件大小为940KB，则其压缩比约为（）A. 11 : 1B. 11 : 2C. 11：4D. 88 : 16. VB表达式9\8/2 + 12 Mod 3*3 -2^-2 的值是( )A. 3.25B. 4.75C.5D. 77. 有如下VB程序段：Dim a As Integer, b As Integer, c As Integer, y As Integera=3:b=4:c=4If a<=b And c<=a Theny=a+bElseIf a<=b or b<=c Theny=b+cElseIf b=c Theny=a mod cElsey=a+b+cEnd If该程序段运行之后，变量y的值为（）A.3B. 7C. 8D.118. 某两段VB程序分别如图1和图2所示：Dim n As Integer, s As Integer, i As Integern=Val(Text1.Text)s=0For i=1 To n Step 2s=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.两段程序都采用了循环结构D.图1程序实现了“1＋3＋5＋7＋9”和的运算9. 有如下VB程序段：Dim a(1 To 5) As Integer, i As Integer, c As Integera(1)=2:a(2)=1:a(3)=3:a(4)=4:a(5)=5c=0For i=3 To 5If a(i-2)+a(i-1)=a(i) Then c=c+1Next iText1.Text=Str(c)该程序段运行后，文本框Text1中显示的内容是（）A.1B. 2C. 3D. 410. 单击窗体后，文本框Text1、Text2中显示的内容是()Private Sub Form_Click()Dim x as Integer, n as Integerx=1n=0Do While x < 20n=n+1x=x * 3LoopText1.Text=Str(x)Text2.Text=Str(n)End SubA.27 3B.327C.20 3D.32111. 已知存有6个数字的数组d，其数组元素如下表，则以下程序的输出结果为( )A．-8 B．-6 C．9 D．1212. 有如下VB程序段：Dim a(1 To 10) As Integer，i As Integer，j As Integera(1)=1a(2)=1For i=3 To 5a(i)=1For j=i-1 To 2 Step -1a(j)=a(j)+a(j-1)Next jNext iText1.Text=Str(a(3))该程序段运行后，在文本框Text1中显示的内容是()A．1 B．3 C．4 D．6二、非选择题：（本大题共4小题，其中第13题和第14题每题6分，第15题和第16题每题7分，共26分）13. 编写VB程序，实现如下功能：在文本框Text1、Text2中分别输入一个正整数，单击“计算累加和”按钮，在标签Label3中显示起始值与结束值之间所有奇数的累加和。

界面如图所示。

(1)在设计应用程序界面时，要将窗体的标题改为“计算累加和”，应将窗体的____________属性的值更改为“计算累加和” (填写相应属性名)。

(2)为实现上述功能，请在划线处填入合适代码。

Private Sub Command1_Click()Dim x1 As Integer，x2 As Integer，n As IntegerDim sum As Longx1＝Val(Text1.Text)x2＝Val(Text2.Text)Sum＝0If x1<x2 Then n＝1 Else____①____For i＝x1 To x2 Step nIf____②____Thensum＝sum＋i____③____Next iLabel3.Caption＝“从”& x1 &“到”& x2 &“之前所有奇数的累加和＝”& Str(sum)End Sub14. 小丁想买几张6+1彩票，选号时，他希望前4位用自己的生日：11月8日，即1108，特别码号他选了买彩票日子的个位数5并，且他希望前六个数字组成的数能被他的幸运数字9整除他。

的好朋友小杰帮他设计了一个VB程序可，以提供一份符合这些要求的号码清单供他挑选。

相应的界面如图1所示。

阅读程序并完成后面的问题。

a b图1（1）设计应用程序界面时，为添加a所指向的对象，应使用图2所示的“控件工具箱”中的（填写相应编号）。

1324图2 图3（2）请根据题意将下列程序补充完整。

Private Sub Command1_Click()Dim i As Integer, j As Integer, c As Integer,n As Longc = 0①n = 110800 + iIf ②ThenList1.AddItem Str(n) + " " + "5"③End IfNext iLabel2.Caption = "满足条件的数有：" + Str(c) + "组"End Sub15. 编写“数字序列”程序，实现如下功能：在文本框Text1中输入[100,500]范围内的整数，单击“生成”按钮Command1，在列表框List1中显示9个该序列的数字。

数字序列的生成规则为：该项的数字+该数百位上的数字+该数十位上的数字+该数个位上的数字=下一项的数字，例如：365+3+6+5=379。

小明编写了VB程序，运行的界面如图所示，程序代码如下：（1）代码“Private Sub Command1_Click()”中的Command1_Click()是_________。

（单选，填字母：A．对象名B．事件C．事件处理过程D．方法）（2）为实现上述功能，请在划线处填入合适的代码。

Private Sub Command1_Click()Dim n As Integer, i As IntegerDim a As IntegerDim b As IntegerDim c As IntegerList1.Clearn = Val(Text1.Text)If n >= 100 And n <= 500 ThenFor i = 1 To 9A．位置一a = n \ 100b = (n - 100 * a) \ 10c = n Mod 10B．位置二Next iC．位置三ElseList1.AddItem "输入数值有误"End IfD．位置四End Sub（3）上述代码段中缺少了List1.AddItem Str(i) + "." + Str(n)，此句代码应该加在_______________（填字母）位置。

（4）若输入的数字为123，则第三项的值为__________________。

16. 小婷编写了一个VB程序，实现如下功能，在文本框Text1中输入一个4位整数zs，单击解密按钮后，在List1列表框中显示当前zs值降序开始的10位相邻整数“解密前”和“解密后”的信息，运行界面如图所示。

解密规则：将整数中各个位中的每一位值乘以5，然后除以8所得余数即为该位的值，然后将所得数的首末位进行交换。

如数字9357，解密后的值为3715。

（1）观察程序代码，可知“解密”按钮的对象名是（2）实现上述功能，请在划线处填入合适的代码。

Private Sub Decryp_Click( )Dim zs As Long, g As IntegerDim b As Integer, q As IntegerDim m As Integer, s As IntegerDim jmh As Stringzs = Val(Text1.Text)For m = zs To ①q = (m \ 1000) * 5 Mod 8b = ((m \ 100) Mod 10) * 5 Mod 8s = ((m \ 10) Mod 10) * 5 Mod 8g = (m Mod 10) * 5 Mod 8②List1.AddItem Str(m) + " " + jmhNext mEnd Sub（3）由上述算法可知，四位数“6124”对应的解密数值是2017学年第一学期书生中学高二年级第一次月考信息技术答题卷一、选择题（本大题共12小题，每小题2分，共24分。