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