2020-2021學(xué)年浙江省紹興市高三（下）適應(yīng)性信息技術(shù)試卷（4月份）
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分。在每小題給出的四個(gè)選項(xiàng)中，只有一個(gè)符合題目要求）
-
1．關(guān)于信息與信息技術(shù)，下列說法正確的是（ ）
組卷：9引用：1難度：0.6 -
2．小明使用智能手機(jī)進(jìn)行網(wǎng)絡(luò)購(gòu)物，經(jīng)歷了如下過程：
①手機(jī)電量不足時(shí)，給手機(jī)無(wú)線充電
②智能客服代替人工與小明語(yǔ)音交流
③下訂單后，進(jìn)行刷臉支付
④實(shí)時(shí)查看商品的物流信息
⑤通過識(shí)別指紋開啟寄存柜
以上過程中，應(yīng)用了人工智能技術(shù)的有（ ）組卷：6引用：1難度：0.4 -
3．用Access軟件設(shè)計(jì)某水果進(jìn)銷存系統(tǒng)的數(shù)據(jù)庫(kù)，其中“水果信息表”數(shù)據(jù)表中需要存儲(chǔ)如表所示的數(shù)據(jù)。
下列關(guān)于“水果信息表”數(shù)據(jù)表的描述，不正確的是（ ）序號(hào) 水果編碼 水果名稱 單位 單價(jià) 1 100516 進(jìn)口青提子 斤 33.80 2 100520 夏威夷木瓜 斤 6.50 …… …… …… …… …… 組卷：0引用：1難度：0.5 -
4．使用UltraEdit軟件觀察字符“2021-2025年十四五規(guī)劃早知道abc”的內(nèi)碼，部分界面如下圖所示。
下列說法正確的是（ ）組卷：9引用：2難度：0.5 -
5．使用Photoshop軟件制作“抗疫”作品，部分編輯界面如圖所示。
下列說法正確的是（ ）組卷：0引用：1難度：0.5
二、非選擇題（本題共4小題，其中第13題4分，第14題8分，第15題7分，第16題7分，共26分）
-
15．給定n個(gè)學(xué)生成績(jī)，篩選男生或女生中成績(jī)居前百分之k的學(xué)生。篩選規(guī)則如下：m=男生或女生記錄數(shù)×k%，若m＜1，則m取1；否則m向下取整，如m=3.1，則篩選最大的3項(xiàng)。若有數(shù)據(jù)和第m項(xiàng)的值相同，則一起篩選出。如有男生成績(jī)分別是“78，99，98，99，90”，以“最大10百分比”篩選，則5×10%=0.5，篩選最大的1項(xiàng)，篩選出“99，99”。編寫一個(gè)VB程序，實(shí)現(xiàn)上述功能。程序運(yùn)行時(shí)，在列表框List1中顯示n名學(xué)生的姓名、性別和成績(jī)，在文本框Text1中輸入性別，Text2中輸入k,單擊“篩選”按鈕Command1，在列表框List2中顯示篩選出的學(xué)生姓名、性別和成績(jī)。程序運(yùn)行界面如圖所示。
（1）下列VB語(yǔ)句可以實(shí)現(xiàn)清空文本框Text1（A.Text1.Clear/B.Text1.Caption=““/C.Text1.Text=““）
（2）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)冖佗冖厶幪钊牒线m代碼、、。
（3）程序加框處的代碼有誤，請(qǐng)改正。
Dim n As Integer
Dim xm（1 To n）As String
Dim xb（0 To n）As String
Dim cj（0 To n）As Integer
Private Sub Form_Load（ ）
'讀取學(xué)生姓名、性別和成績(jī)分別存xm、xb和cj數(shù)組，并在列表框List1中顯示。
'學(xué)生人數(shù)存變量n,代碼略。
End Sub
Private Sub Commandl_Click0
Dim s As String,k As Single,m As Single,mm As Integer
DimcAs Integer,p As Integer,iAs Integer,j As Integer
Dim tl As String,t2 As Integer
s=Textl.Text
k=Val（Text2.Text）
c=0
For i=1To n
If xb（i）=sThen ①_____
Next i
m=c*k/100
If m＜1Then
mm=1
Else
mm=②____
End If
i=1
Do While i＜=n
p=i
For j=i+1To n
If xb （j）=s Then
If
Then p=j
End If
Next j
If i◇p Then
t1=xb（i）：xb（i）=xb（p）：xb（p）=tl
2=cj（i）：cjii）=cj（p）：cj（p）=t2
End If
If i＞mm And（xb（i）◇xb（i-1）Or cj（i）◇cj（i-1））Then Exit Do
i=i+l
Loop
③_____
For i=1To mm
List2.Addtem xm（i）+““+xb（i）+““+Str（cj（i））
Nexti
End Sub組卷：1引用：1難度：0.3 -
16．某手機(jī)APP為電影觀眾選座提供了程序推薦和自主選位功能。當(dāng)觀眾購(gòu)票選擇程序推薦時(shí)，程序根據(jù)電影放映廳內(nèi)每個(gè)座位的優(yōu)先等級(jí)（用一個(gè)正整數(shù)表示其等級(jí)值，如圖a所示），自第1排1號(hào)座開始，按自左向右逐排的順序查找滿足本次購(gòu)票人數(shù)r的最優(yōu)空位區(qū)（最優(yōu)空位區(qū)是指從某個(gè)座位開始的同排連續(xù)的r個(gè)空位，且其等級(jí)值之和最高，若有多個(gè)最優(yōu)空位區(qū)，則推薦最先找到的）。若找到，則顯示出推薦的座位編號(hào)；若找不到，則提示自主選位。例如：圖a中放映廳內(nèi)座位有9排10列，第5排10個(gè)座位的等級(jí)值依次為：1，2，3，4，5，5，4，3，2，1。全部座位為空時(shí)，當(dāng)前購(gòu)票人數(shù)為5，推薦座位編號(hào)為5排3-7號(hào)；如圖b所示已經(jīng)部分選座狀態(tài)下，當(dāng)前購(gòu)票人數(shù)為2，推薦座位編號(hào)為6排3-4號(hào)。
編寫VB程序，模擬上述功能。運(yùn)行程序，在列表List1中顯示目前選座狀態(tài)，黑點(diǎn)表示已選座，白點(diǎn)表示空位，在文本框Text1中輸入購(gòu)票人數(shù)后，單擊“推薦”按鈕Command1，在標(biāo)簽Label3顯示當(dāng)前購(gòu)票人座位的推薦結(jié)果。程序運(yùn)行界面如圖c所示。
（1）如圖a所示，全部座位為空時(shí)，第1次購(gòu)票人數(shù)為4人，按程序推薦座位選座，座位等級(jí)值之和為。
（2）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)跈M線處填入合適的代碼、、。
Constm=9'm表示座位有9排
Constn=10′n表示每排的座位數(shù)為10
Dim r As Integer'r表示當(dāng)次輸入的購(gòu)票人數(shù)
Dim a（1 to m*n）As Integer'a數(shù)組存放每個(gè)座位的等級(jí)值
Dim b（l to m*n+1）As Integer′b數(shù)組保存當(dāng)前各座位選座情況，選中為1，未選為0
Private Sub Form_Load（ ）
'從第1排開始，按座位編號(hào)從小到大順序逐排讀取座位等級(jí)值并依次存入數(shù)組a
'同上述順序，讀取選座狀態(tài)存入數(shù)組元素b（1）至b（m*n）中，輸出當(dāng)前選座狀態(tài)。代碼略
End Sub
Function getsum（i As Integer,j As Integer）As Integer
'從第i排第j列開始，計(jì)算第i排中滿足r個(gè)觀眾就座的連續(xù)空位等級(jí)值之和。
'若無(wú)法找到足夠的連續(xù)空位時(shí)，則返回-1
Dim p As Integer,sum As Integer,k As Integer
sum=0
p=j：k=（i-1）*n+p
Do Whilep＜=j+r-l And b（k）=0
sum=①____
p=p+1：k=k+1
Loop
If p=j+r Then getsum=sum Else getsum=-1
End Function
Private Sub Command1_Click）
Dim iAs Integer,jAs Integer,s As String,max As Integer
Dim t As Integer,newi As Integer,newj As Integer,pos As Integer
r=Val（Textl.Text）
max=0
For i=1To m
Forj=l To n-r+1
②____-
If max＜t Then max=t：newi=i：newj=j
Next j
Next i
If max=0 Then
Label3.Caption=“請(qǐng)自主選位”
Else
pos=（newi-1）*n+newj
Fori=③_____
b（i）=1
Next i
Label3.Caption=“推薦座位編號(hào)：”&newi&“排”&newj&”-”&newj+r-1&”座”
End If
End Sub組卷：1引用：1難度：0.3