2016年浙江省普通高校高考信息技术模拟试卷（3）
发布：2024/4/20 14:35:0
一、选择题（本大题共12小题，每小题2分，共24分．在每小题给出的四个选项中，只有一个符合题目要求）
-
1．天猫某店在双11来临之前发行了很多电子优惠券，如图所示，图中“即日至11月12日”体现信息的（ ）组卷：7引用：2难度：0.9 -
2．ASCII码表中’Q’的编号为81，如果用内码观察软件观察’O’的内码，显示出来的十六进制值为（ ）
组卷：5引用：1难度：0.9 -
3．某张JPEG格式照片的详细信息如图所示，其实际容量为5.32MB．则该图象容量的压缩比大小约为（ ）
组卷：4引用：1难度：0.9 -
4．小俞同学使用Word软件编辑文档，部分界面如图所示．下列说法正确的是（ ）
组卷：3引用：1难度：0.7 -
5．以下VB表达式的值是13的是（ ）
组卷：8引用：2难度：0.7
二、非选择题（本大题共5小题，其中第13小题4分，第14小题5分，第15小题8分，第16小题4分，第17小题5分，共26分）
-
16．下列VB程序用于求2个正整数（均小于10000的最大公约数）：
Private Sub Command1_Click （ ）
Dim x As Integer
Dim y As Integer
Dim z As Integer
x=Val（Text1．Text）
y=Val（Text2．Text）
z=gcd（a,b）
Text3．Text=Str（z）
End Sub
Function gcd（a As Integer,b As Integer） As Integer
Do While a＞b
If a＞b Then a=a-b Else b=b-a
Loop
gcd=b
End Function
其中，划线①，②部分有错，应改为，．组卷：1引用：1难度：0.3 -
17．小林想用VB实现以下功能：输入一个十进制正整数（10000以内），输出其二进制形式．效果图如图1所示，完成以下填空．
Private Sub Command1_Click （ ）
Dim a As Long
Dim b As String
Dim c As String
a=Val（Text1．Text）
b=““
Do While a＞0
c=Str（a Mod 2）
a=
Loop
Text2．Text=b
End Sub
（1）完善代码，空格①部分应填入，空格②部分应填入．
（2）小林为了使得代码功能更强大，希望修改代码，添加一个文本框输入整数k（范围在2到9之间），使得程序能实现十进制到k进制的转化．得到的界面和代码如图2所示：
Private Sub Command1_Click （ ）
Dim a As Long
Dim b As String
Dim c As String
Dim k As Long
a=Val（Text1．Text）
k=Val（Text3．Text）
b=““
Do While a＞0
c=Str（）
b=c+b
a=
Loop
Text2．Text=b
End Sub
其中③部分应填入，④部分应填入．组卷：9引用：1难度：0.1
