2018-2019学年浙江省台州市书生中学高二（上）第一次月考信息技术试卷
发布：2024/4/20 14:35:0
一、选择题（本大题共12小题，每小题2分，共24分．在每小题给出的四个选项中，只有一个符合题目要求）
-
1．下列有关信息的说法，正确的是（ ）
组卷：13引用：1难度：0.6 -
2．某二进制数11□101□0，其中两位数模糊不清，下列说法正确的是（ ）
组卷：27引用：2难度：0.3 -
3．使用 UltraEdit 软件观察字符“2018，Lucky！”的内码，部分界面如图所示。
下列说法不正确的是（ ）组卷：12引用：1难度：0.9 -
4．一幅未经压缩的 1024×768 像素、256 色真彩色 BMP 图象，其存储容量约为（ ）
组卷：7引用：3难度：0.7 -
5．将一个时长为1分钟、分辨率为800*600的NTSC制式的黑白动画压缩为MPEG格式文件，压缩后的文件大小为10MB，则其压缩比约为（ ）
组卷：3引用：1难度：0.4
二、非选择题：（本大题共4小题，其中第13题和第14题每题6分，第15题和第16题每题7分，共26分）
-
15．素数只能被1和它本身整除，不能被其他自然数整除。编写VB程序实现如下功能：单击“产生奇数并判断”按钮Command1，随机产生一个三位正奇数显示在文本框Text1中，并在文本框Text2中显示其是否为素数的判断结果。例如，当随机产生的三位正奇数为953时，程序运行界面如图a所示。
（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-1And flag=True
If n Mod i=0 ②
i=i+2
Loop
If 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\i组卷：8引用：2难度：0.4 -
16．我国居民身份证号是由 18 位字符组成，其中前 17 位是数字，第 18 位是校验位（校验位字符在“0”～“9”或“X”中选取）。由前 17 位数字经过一定的规则计算得到校验值，在查验居民身份证号有效性时，如果校验位中的字符与计算所得校验值相等则身份证号有效，否则无效。
校验值计算规则如下：
第一步：将身份证号前 17位数字分别乘以不同的系数后相加，对应系数如下表所示。
第二步：将第一步的计算结果除以 11，得到余数。第三步：根据第二步的计算结果从下表获取对应的校验值。位数 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 系数 7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2
例如：某身份证号为 34052419800101001X．要计算此身份证的校验值步骤如下：第一步：计算 3*7+4*9+0*10+5*5+……+1*2=189余数 0 1 2 3 4 5 6 7 8 9 10 校验值 1 0 X 9 8 7 6 5 4 3 2
第二步：189 除以 11 得到余数为 2
第三步：由余数 2 获取校验值 X。
根据以上规则小王编写了一个验证身份证号是否有效的 VB 程序，功能如下：在文本框 Text1 中输入身份证号，单击“验证”按钮 Command1 后，在列表框 List1 中显示验证结果。程序运行界面如图 a 所示。
（1）设计程序界面时，应使用图 b 中的（填写相应编号）添加列表框对象 List1。
（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 String
Const xs=“0709100508040201060307091005080402“'存储前 17 位每位系数
Const checkCodeStr=“10X98765432“'存储余数对应的检验值
①
sum=0
For i=1To 17Step 1
a=Val（Mid（idCode,i,1））
b=②
sum=sum+a*b
Next i
sum Mod 11
pos=
checkCode=Mid（checkCodeStr,pos,1）
sum Mod 11
sum Mod 11
sum Mod 11
sum Mod 11
sum Mod 11
sum Mod 11
sum Mod 11
sum Mod 11
sum Mod 11
sum Mod 11
If checkCode=Mid（idCode,18，1）Then result=“有效“
Else
result=“无效“
End if
List1．AddItem （idCode &““& result）
End Sub
（3）程序中加框处代码有误，应修改为。组卷：3引用：1难度：0.4
