2017-2018學年浙江省溫州市新力量聯盟高二（下）期中信息技術試卷
發布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分．在每小題給出的四個選項中，只有一個符合題目要求）
-
1．小飛同學最近購買了一款華為 B3 智能手環，戴上手環后，手環記錄了小飛同學每天的運動步數，并能通 過微信朋友圈與好友分享運動數據，互相點贊。這一案例體現了信息的什么特征？（ ）
組卷：69引用：2難度：0.9 -
2．通過“百度軟件中心”下載“百度網盤 PC 客戶端，如圖所示：
該軟件，下列說法不正確的是（ ）組卷：17引用：2難度：0.9 -
3．漢字點陣碼是一種用黑白兩色點陣來表示漢字字形的編碼，一個 24×24 點陣字模的存儲容量為（ ）
組卷：30引用：2難度：0.9 -
4．AlphaGo 與李世石的人機圍棋大戰吸引了全世界的關注，某同學要制作一個關于 AlphaGo 的 PPT 課件用 于展示，他將課件分為“開發團隊”、“AlphaGo 簡介”、“李世石簡介”、“戰況分析”、“人工智能”五部分，請問這個過程屬于（ ）
組卷：28引用：3難度：0.7 -
5．小柯使用 Word 字處理軟件，在“修訂”模式下對某文檔進行了修改，修改情況如圖所示：
下列說法不正確的是（ ）組卷：22引用：2難度：0.7
二、非選擇題（本大題共5小題，其中第13小題5分，第14小題5分，第15小題7分，第16小題4分，第17小題5分，共26分）
-
16．哥德巴赫 1742 年給歐拉的信中哥德巴赫提出了以下猜想：任一大于 2 的偶數都可寫成兩個 質數之和。下列 VB 程序的功能即驗證哥德巴赫猜想。程序運行時，在文本框 Text1 中輸入一個大于 2 的偶 數，單擊“證明”按鈕 Command1 后，在列表框 List1 中輸出所有符合猜想的組合，在標簽 Label2 中輸出 共有多少個組合。程序運行效果如圖所示。
為實現上述功能程序如下，但加框處的代碼有誤，請改正。Private Sub Command1_Click （ ）
Dim n As Integer
Dim i As Integer,c As Integer
n=Val（Text1．Text）
List1．Clear
c=0
If n Mod 2=0Then
For
If
Then
List1．AddItem n &“=“& i &“+“& n-i
c=c+1
End If
Next i
Label2．Caption=“共有“& c &“種組合“
Else
Label2．Caption=“請輸入一個大于 2 的偶數“
End If End Sub
Function is Prime（x As Integer） As Boolean
Dim i As Integer
Is Prime=True
For i=2To Int（Sqr（x））
If x Mod i=0Then
Is Prime=False
Exit For
End If
Next i End Function組卷：2引用：1難度：0.5 -
17．猴子選大王的問題：N 只猴子選大王，選舉辦法如下：從頭到尾 1、2、3 報數，凡報 3 的退 出，余下的從尾到頭 1、2、3 報數，還是報 3 的退出，依此類推；當剩下只有兩只猴子時，不再報數，取 當前報數報 1 的為王。如五只猴子報數，則第一輪順序為第 12345，第 3 只出列，第二輪順序為 5421，第 2
只出列；第三輪順序為 145，第 5 只出列，這時第 1 只猴子報數為 1，則第 1 只猴子為猴王。若想當猴王，請問最初占據什么位置？在 Text1 文本框中輸入參選大王的猴子總數量，單擊“猴王的位置”，在 Label2 標 簽上顯猴王最初的位置。VB 程序運行界面如下：
實現上述功能的 VB 程序如下：
（1）如果只有 10 只猴子參加本次選大王，則猴王最初的位置為：
（2）實現上述功能的 VB 程序如下，請在橫線處填入合適代碼。
Private Sub Command1_Click （ ）
Dim n,x,m,s As Integer'假設參與的猴子數量不超過 5000
Dim a（1To 5000）As Integer'用數組 a 存儲每只猴子的報數，值為 3 時視同出列
Dim t,y As Boolean't 用于循環，y 為 true 時表示報數順序是從頭到尾，y 為 false 時報數順序 是從尾到頭
n=Val（Text1．Text）
x=1'x 為每次猴子的位置
m=1'm 為報數的 1、2、3
y=True
t=True
Do While t
'該位置的猴子是否已經出列
If a（x）＜＞3Then'沒有出列的，則報數
a（x）=m
①'1，2，3 之后重新開始
If m＞3Then m=1
Else'每次有猴子報 3 出列之后，檢查是否已經只有兩只猴子沒有出列
s=0
For i=1To n
If②Then s=s+1
Next i
If s＜3Then Exit Do
End If
If y=True Then x=x+1Else x=x-1
'檢查報數是在遞增，還是遞減，y 為 true 時遞增
'報到最后一次猴子后
If x＞n Then y=False：m=1：x=n
'報到第一次猴子后
If x=0Then y=True：m=1：
Loop
'輸出猴王的位置
For i=1To n
③
If a（i）=1Then Label2．Caption=“猴王的位置為第“+Str（i）+“只“
Next i
End Sub組卷：0引用：1難度：0.9