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