资源简介

浙江省台州市2017-2018学年高二信息技术上学期第一次月考试题
（满分：50分
考试时间：45
分钟）
一、选择题（本大题共12小题，每小题2分，共24分。在每小题给出的四个选项中，只有一个
符合题目要求）
下列有关信息的说法，错误的是(　　)
A.现在很多智能手机有了指纹锁，是为了提升信息的安全性
B.人类在造纸术和印刷术产生之前，信息无法存储
C.公民身份证号和考生准考证号的编排，都属于信息的编码
D.不同的载体的可以承载同样的信息
在计算机内，有符号数有3种表示法：原码、反码和补码。
(1)原码就是二进制定点表示法，即最高位为符号位，“0”表示正，“1”表示负，其余位表示数值的大小；
(2)反码表示法规定：正数的反码与其原码相同；负数的反码是对其原码逐位取反，但符号位除外。如二进制原码10010，则反码11101(注：在10010中，左边的1为符号码，故为负)；
(3)补码表示法规定：正数的补码与其原码相同；负数的补码是在其反码的末位加1，符号位除外。
根据以上运算规则，二进制有符号数100011的补码的十进制表示是(　　)
A．－29
B．－4
C．－61
D．－36
使用UltraEdit软件观察字符“挑战AlphaGo！”的内码，部分界面如图所示。
下列说法正确的是（
）
A．字符“！”的内码占两个字节
B．字符“战”的十六进制码是“BD
41”
C．字符“h”的二进制码是“01101000”
D．字符“go”的十六进制码是“47
6F”
某文件夹下共有100张属性相同的BMP图片，共占用了约75MB的存储空间，已知图片的分辨率为1024
768，问这种图片包括多少种颜色（
）
A．8
B．16
C．256
D．512
将一个时长为1分钟、采样频率为44.1kHz、量化位数为16、双声道未经压缩的Wave格式音频文件压缩为MP3格式文件，压缩后的MP3格式文件大小为940KB，则其压缩比约为（
）
A.
11
:
1
B.
11
:
2
C.
11：4
D.
88
:
1
VB表达式9\8/2
+
12
Mod
3
3
-2^-2
的值是(
)
A.
3.25
B.
4.75
C.5
D.
7
有如下VB程序段：
Dim
a
As
Integer,
b
As
Integer,
c
As
Integer,
y
As
Integer
a=3:b=4:c=4
If
a<=b
And
c<=a
Then
y=a+b
ElseIf
a<=b
or
b<=c
Then
y=b+c
ElseIf
b=c
Then
y=a
mod
c
Else
y=a+b+c
End
If
该程序段运行之后，变量y的值为（
）
A.3
B.
7
C.
8
D.11
某两段VB程序分别如图1和图2所示：
Dim
n
As
Integer,
s
As
Integer,
i
As
Integern=Val(Text1.Text)s=0For
i=1
To
n
Step
2　s=s+iNext
iText2.Text=Str(s)
图1
Dim
n
As
Integer,
s
As
Integer,
i
As
Integern=Val(Text1.Text)s=0i=1Do
While
i<=n　s=s+i　i=i+2LoopText2.Text=Str(s)
图2
当n的值为10时，关于该两段程序，下列说法不正确的是(　　)
A.两段程序中i的初值相同
B.两段程序的运算结果不相同
C.两段程序都采用了循环结构
D.图1程序实现了“1＋3＋5＋7＋9”和的运算
有如下VB程序段：
Dim
a(1
To
5)
As
Integer,
i
As
Integer,
c
As
Integer
a(1)=2:a(2)=1:a(3)=3:a(4)=4:a(5)=5
c=0
For
i=3
To
5
If
a(i-2)+a(i-1)=a(i)
Then
c=c+1
Next
i
Text1.Text=Str(c)
该程序段运行后，文本框Text1中显示的内容是（
）
A.1
B.
2
C.
3
D.
4
单击窗体后，文本框Text1、Text2中显示的内容是(　　)
Private
Sub
Form_Click(　
)
Dim
x
as
Integer,
n
as
Integer
　x=1
　n=0
Do
While
x
<
20
　
n=n+1
　
x=x
3
Loop
Text1.Text=Str(x)
Text2.Text=Str(n)
End
Sub
A.27　3
B.3　27
C.20　3
D.3　21
已知存有6个数字的数组d，其数组元素如下表
，则以下程序的输出结果为(
)
A．-8
B．-6
C．9
D．12
有如下VB程序段：
Dim
a(1
To
10)
As
Integer，i
As
Integer，j
As
Integer
a(1)=1
a(2)=1
For
i=3
To
5
a(i)=1
For
j=i-1
To
2
Step
-1
a(j)=a(j)+a(j-1)
Next
j
Next
i
Text1.Text=Str(a(3))
该程序段运行后，在文本框Text1中显示的内容是(　　)
A．1
B．3
C．4
D．6
二、非选择题：（本大题共4小题，其中第13题和第14题每题6分，第15题和第16题每题7分，共26分）
编写VB程序，实现如下功能：在文本框Text1、Text2中分别输入一个正整数，单击“计算累加和”按钮，在标签Label3中显示起始值与结束值之间所有奇数的累加和。界面如图所示。
(1)在设计应用程序界面时，要将窗体的标题改为“计算累加和”，应将窗体的____________属性的值更改为“计算累加和”
(填写相应属性名)。
(2)为实现上述功能，请在划线处填入合适代码。
Private
Sub
Command1_Click()
Dim
x1
As
Integer，x2
As
Integer，n
As
Integer
Dim
sum
As
Long
x1＝Val(Text1.Text)
x2＝Val(Text2.Text)
Sum＝0
If
x1Then
n＝1
Else____①____
For
i＝x1
To
x2
Step
n
If____②____Then
sum＝sum＋i
____③____
Next
i
Label3.Caption＝“从”&
x1
&“到”&
x2
&“之前所有奇数的累加和＝”&
Str(sum)
End
Sub
小丁想买几张6+1彩票，选号时，他希望前4位用自己的生日：11月8日，即1108，特别号码他选了买彩票日子的个位数5，并且他希望前六个数字组成的数能被他的幸运数字9整除。他的好朋友小杰帮他设计了一个VB程序，可以提供一份符合这些要求的号码清单供他挑选。相应的界面如图1所示。阅读程序并完成后面的问题。
（1）设计应用程序界面时，为添加a所指向的对象，应使用图2所示的“控件工具箱”中的
（填写相应编号）。
（2）请根据题意将下列程序补充完整。
Private
Sub
Command1_Click()
Dim
i
As
Integer,
j
As
Integer,
c
As
Integer,n
As
Long
c
=
0
①
n
=
110800
+
i
If
②
Then
List1.AddItem
Str(n)
+
"
"
+
"5"
③
End
If
Next
i
Label2.Caption
=
"满足条件的数有："
+
Str(c)
+
"组"
End
Sub
编写“数字序列”程序，实现如下功能：在文本框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
Integer
Dim
a
As
Integer
Dim
b
As
Integer
Dim
c
As
Integer
List1.Clear
n
=
Val(Text1.Text)
If
n
>=
100
And
n
<=
500
Then
For
i
=
1
To
9
a
=
n
\
100
b
=
(n
-
100
a)
\
10
c
=
n
Mod
10
Next
i
Else
List1.AddItem
"输入数值有误"
End
If
End
Sub
（3）上述代码段中缺少了List1.AddItem
Str(i)
+
"."
+
Str(n)，此句代码应该加在_______________（填字母）位置。
（4）若输入的数字为123，则第三项的值为__________________。
小婷编写了一个VB程序，实现如下功能，在文本框Text1中输入一个4位整数zs，单击解密按钮后，在List1列表框中显示当前zs值降序开始的10位相邻整数“解密前”和“解密后”的信息，运行界面如图所示。
解密规则：将整数中各个位中的每一位值乘以5，然后除以8所得余数即为该位的值，然后将所得数的首末位进行交换。如数字9357，解密后的值为
3715。
（1）观察程序代码，可知“解密”按钮的对象名是
（2）实现上述功能，请在划线处填入合适的代码。
Private
Sub
Decryp_Click(
)
Dim
zs
As
Long,
g
As
Integer
Dim
b
As
Integer,
q
As
Integer
Dim
m
As
Integer,
s
As
Integer
Dim
jmh
As
String
zs
=
Val(Text1.Text)
For
m
=
zs
To
①
q
=
(m
\
1000)
5
Mod
8
b
=
((m
\
100)
Mod
10)
5
Mod
8
s
=
((m
\
10)
Mod
10)
5
Mod
8
g
=
(m
Mod
10)
5
Mod
8
②
List1.AddItem
Str(m)
+
"
"
+
jmh
Next
m
End
Sub
（3）由上述算法可知，四位数“6124”对应的解密数值是
2017学年第一学期书生中学高二年级第一次月考
信息技术
答
题
卷
一、选择题（本大题共12小题，每小题2分，共24分。在每小题给出的四个选项中，只有一个符合题目要求）
1
2
3
4
5
6
7
8
9
10
11
12
二、非选择题：（本大题共4小题，其中第13题和第14题每题6分，第15题和第16题每题7分，共26分）
(1)
(2)①
②
③
（1）
（2）①
②
③
（1）
（2）
（3）
（4）
（1）
（2）①
②
（3）
信息技术
参考答案
一、选择题（本大题共12小题，每小题2分，共24分。在每小题给出的四个选项中，只有一个符合题目要求）
1
2
3
4
5
6
7
8
9
10
B
A
D
C
A
B
C
B
C
A
11
12
D
D
二、非选择题：（本大题共4小题，其中第13题和第14题每题6分，第15题和第16题每题7分，共26分）
(1)Caption　
……1分
(2)①n=-1　
……1分
②i
mod
2=1　
……2分
③End
If
……2分
（1）4
……1分
（2）①For
i=0
To
99
……2分
②n
Mod
9=0
……2分
③c=c+1
……1分
（1）C
……1分
（2）n=n+a+b+c
……2分
（3）A
……2分
（4）141
……2分
（1）D
……1分
（2）①zs-9
Step
-1
……2分
②
jmh=Str(g)+Str(b)+Str(s)+Str(q)
……2分
（3）4526
……2分
b
a
图1
图3
1
2
3
4
图2
A．位置一
B．位置二
C．位置三
D．位置四

展开更多......

收起↑