2020-2021學年浙江省嘉興市高三（上）月考信息技術試卷（12月份）
發(fā)布：2024/4/20 14:35:0
一、單選題（本大題共12小題，每小題0分，共24分。）
-
1．下列有關信息的描述，不正確的是（ ?。?/h2>
組卷：2引用：2難度：0.6 -
2．下列有關網(wǎng)頁與瀏覽器的說法，不正確的是（ ）
組卷：1引用：1難度：0.6 -
3．下列應用中，體現(xiàn)了人工智能技術的是（ ）
①學校門禁系統(tǒng)通過“人臉識別”驗證身份
②利用微信與朋友語音聊天
③某汽車具有自動泊車功能
④通過語音實現(xiàn)手機自動撥號
⑤“感應燈”感知光線控制開關組卷：1引用：1難度：0.6 -
4．使用UltraEdit軟件觀察字符內(nèi)碼，部分界面如圖所示。
下列說法正確的是（ ?。?/h2>組卷：2引用：1難度：0.5 -
5．使用Photoshop軟件制作“廉”作品，界面如圖所示。
下列說法正確的是（ ）組卷：1引用：1難度：0.5
二、非選擇題（本大題共4小題，其中第13小題4分，第14小題8分，第15小題7分，第16小題7分，共26分。）
-
15．老張要準備一道晚宴，需要上n個菜，為了省事他在n個不同的餐廳訂好了這些菜?，F(xiàn)在他需要盡快取回這些菜，對于每一道菜，有兩種取菜方式：
第1種：讓各店的外賣員送貨上門，對于第i個菜需要花費a（i）的時間。
第2種：自己去餐廳取回家，每次出門僅能取回一道菜，對于第i個菜，從出門到回家整個過程需要花費b（i）的時間。
每家餐廳都有各自的外賣員送菜，并且無論老張是否在家，他們都能把菜送到，為了節(jié)省時間，能由外賣員送的菜盡量由外賣員各自送達，現(xiàn)在需要知道最少花費多少時間才能集齊所有的菜。
比如n=4，a（i）=（30，70，40，50），b（i）={20，10，20，30}，那么花費最少的方案是第一個菜和第三個菜讓外賣員送，第二個菜和第四個菜老張自己取，一共需要40分鐘。
設計VB程序計算最少時間，界面如下圖。
實現(xiàn)上述功能的VB程序如下，回答以下問題：
（1）根據(jù)程序語句判斷對象Lab3屬于類。
（單選，填字母：A.Form/B.Label/C.TextBox/D.CommandButton）
（2）請在橫線處填入合適的代碼。
①；
②；
③。
（3）程序中加框處代碼有錯，請改正。
改正：。
Const n=4
Dim a（1 To n）As Integer'n道菜由每家餐廳外賣員送達耗時
Dim b（1To n）As Integer'n道菜自取耗時
Private Sub Form_Load。
'產(chǎn)生外賣送貨各道菜耗時，并存儲到數(shù)組a中，并顯示，
'產(chǎn)生自取各道菜耗時，并存儲到數(shù)組b中，并顯示
'代碼略
End Sub
Private Sub Command1_Click
Dim i As Integer,max As Integer,ans As Integer
Dim left As Integer,right As Integer,m As Integer
For i=1 1 To n
If a（i）＞max Then ①'外賣員送菜的最長時間
Next i
left=1：right=max：ans=max.
m=（left+right）\2
If ②Then
ans=m：right=m-1
Else
left=m+1
End If
Loop
Lab3.Caption=“最快“+str（ans）+“分鐘“
End Sub
private Function check（t As Integer）As Boolean
Dim total As Integer
check=False
For i=1 To n
If a（i）＞t Then
total=③'如果外賣來不及就自己取
End If
Next i
If tital＞=t Then check=True
End Function組卷：0引用：1難度：0.3 -
16．某卡牌共有52張牌，分黑桃，紅桃，梅花，方塊4種花色，每種花色，13張（編號為1～13），花色外分別用1，2，3，4表示。將這卡牌打亂后，從中每次摸1張牌，同種花色的牌放一起，在每種花色均有3張牌時結束摸牌，然后按花色編號從小到大展示摸到的卡牌。
摸牌規(guī)則：
（1）當某花色牌不足3張，則記錄摸到的牌，繼續(xù)摸下一張牌
（2）當某花色的牌超過3張時，若摸到的卡牌點數(shù)大于本花色中已有卡牌點數(shù)的最小值，則替換本花色中點數(shù)最小的卡牌，否則，棄置摸到的牌。繼續(xù)下一張摸牌
（3）當所有花色的牌均為3張時結束摸牌。然后按花色編號從小到大展示摸到的卡牌例如：在某次摸牌后的卡牌如下表所示：
（1）當下一次摸到“黑桃4”的牌時，4小于已摸到的[7，5，12]，棄置摸到的牌，繼續(xù)摸牌花色 黑桃 紅桃 梅花 方塊 序號 1 2 3 4 5 6 7 8 9 10 11 12 點數(shù) 7 5 12 11 3 8 7 5 8 5 3
（2）當摸到“紅桃9”的牌時，9大于已摸到的[11，3，8]的最小值3，紅桃更新為[11，9，8]，繼續(xù)摸牌
（3）當摸到“梅花9”的牌時，梅花點數(shù)更新為[7，5，9]，達到所有花色的牌均為3張的目標，結束摸牌。
模擬此過程編寫VB程序，程序運行界面如下圖，單擊“展示摸到的卡牌”按鈕開始摸牌，滿足條件時，在列表框中展示摸到的卡牌。
（1）在如表中所示卡牌狀態(tài)下，連續(xù)2次摸牌為“方塊4”，“方塊7”后，方塊卡牌點數(shù)更新為（填點數(shù)，逗號分隔）
（2）實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適代碼。
Const n=52
Dim hs（1 To n） As Integer’存儲每張卡牌的花色
Dim num（1 To n） As Integer’存儲每張卡牌的點數(shù)
Dim class（1 To 4）As Integer’存儲每種花色卡牌的存儲位置
Dim record（1 To 12）As Integer
Private Sub Form_Load
’讀取打亂的卡牌中每張卡牌的花色、點數(shù)數(shù)據(jù)，存入數(shù)組hs,num中，代碼略
End Sub
Private Sub Command1_Click
Dim k As Integer,i As Integer,p As Integer
Dim flag As Boolean
flag=True
For i=1 To 4
class（i）=①’計算每種花色卡牌存儲的起始位置
Next i
i=1
Do While i＜=n And flag=True
k=hs（i）
If class（k）＞k*3 Then
p=pos（i）
If p＜＞0 Then
②
End If
Else
record（class（k））=i
class（k）=class（k）+1
If class（1）=4 And class（2）=7 And class（3）=10 And class（4）=13 Then
flag=False
End If
End If
i=i+1
Loop
List1.AddItem“&”“花色”“&”“&”“點數(shù)”
For i=1 To 12
List1.AddItem“”& hs（record（i）&“”& mua（record（i）
Next i
End Sub
Function pos（t As Integer）As Integer’返回點數(shù)最小卡牌位置
Dim min As Integer
m=（hs（t）-1）*3+1
min=m
If num（record（min））＞num（record（n+1））Then min=m+1
If num（record（min））＞mun（record（m+2））Then min=m+2
If③Then
pos=0
Else
pos=min
End If
End Function組卷：0引用：1難度：0.3