2020年浙江教育綠色評價聯盟高考信息技術適應性試卷
發布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分。在每小題給出的四個選項中，只有一個符合題目要求）
-
1．下列說法正確的是（ ）
組卷：8引用：1難度：0.6 -
2．下列應用中，使用了人工智能技術的是（ ）
組卷：5引用：1難度：0.9 -
3．通過瀏覽器登錄某購物網站進行購物，如圖所示，下列說法正確的是（ ）組卷：0引用：1難度：0.7 -
4．下列關于計算機信息編碼及進制的描述，正確的是（ ）
組卷：24引用：2難度：0.3 -
5．使用Photoshop軟件制作“致敬勞動者”作品，部分界面如圖所示。下列說法正確的是（ ）
組卷：3引用：1難度：0.5
二、非選擇題（本大題共4小題，其中第13小題4分，第14小題8分，第15小題7分，第16小題7分，共26分．）
-
15．給出一系列商品的生產時間和價值，現要在規定時間內生產出總價值最大的商品。如有5件商品生產時間和價值如下表所示：
若生產時間為20，則可生產編號為1、2、5的商品，總價值為10+16+15=41。編號 1 2 3 4 5 生產時間 4 7 5 5 9 商品價值 10 16 12 10 15
編寫一個VB程序，實現如下功能：在文本框Text1中依次輸入各商品（數量小于等于10件）的生產時間和價值（整數用逗號分隔并以逗號結尾），在文本框Text2中輸入總加工時間（至少可以生產一件商品），單擊“確定”按鈕Command1后，在列表框List1中顯示最大的總價值和生產的商品編號。程序運行界面如圖所示。
（1）下列對象不具有Caption屬性的是（單選，填字母：A．Command1/B．Form1/C．Text1/D．Label1）
（2）實現上述功能的VB程序如下，請在橫線處填入合適代碼。
（3）程序中代碼有誤，請改正。
PrivateSubCommand1_Click （ ）
DimnAsInteger,iAsInteger,jAsInteger,kAsInteger,cAsInteger,pAsInteger
DimtempAsxueInteger,sum1AsInteger,sum2AsInteger,maxAsInteger,ansAsIntegerDimsAskeString,wangchAsString,v（1To10）AsInteger,t（1To10）AsInteger
s=Text1．Text
n=Val（Text2．Text）c=00：k=0
Fori=1To①
ch=Mid（s,i,1）
Ifch＜＞“，“Thenk=k+1
Else
c=c+1
temp=Val（Mid（s,i-k,k））k=0
②
IfcMod2=1Thent（p）=tempElsev（p）=tempEndIf
Nexti
c=c\2
Fori=1To2^c-1k=i：j=c
DoWhilek＞0
If③Thensum1=sum1+v（j）：sum2=sum2+t（j）j=j-1
k=k\2Loop
Ifmax＜sum1Orsum2＜=nThenmax=sum1：ans=isum1=0：sum2=0
Nexti
List1．AddItem″最大價值是：″+Str（max）
List1．AddItem″生產商品如下：
″輸出生產的商品，代碼略
EndSub組卷：0引用：1難度：0.3 -
16．某次技術考試后進行成績處理，學生信息包括姓名、班級、成績，要按班級從小到大，同一班級按成績從高到低進行排序。按上述要求，編寫一個VB程序，功能如下：在列表框List1中顯示排序前的數據，單擊“排序”按鈕Command1，在列表框List2中顯示排序后結果，程序運行界面如圖所示。
（1）將數組元素temp1（1）到temp1（500）分為10段，每段剛好存儲一個班的學生成績，10個班
的學生數如下表所示。從數組temp1第1個元素開始依次存儲這10個班的學生成績，如1班學生成績存儲在temp1的第1個元素到第50個元素，則3班學生成績存儲在temp1的第個到第個元素（填數字）。
（2）請在橫線處填入合適的代碼。班級 1班 2班 3班 4班 5班 6班 7班 8班 9班 10班 人數 50 45 50 51 49 55 50 48 52 50
Constn=500'總學生數
Constm=10'總班級數Dimscore（1Ton）AsInteger
Dimstu_name（1Ton）AsIntegerDimclass（1Ton）AsIntegerDimtemp1（1Ton）AsIntegerDimtemp2（1Ton）AsIntegerDimtemp3（1Ton）AsIntegerFunctionadj（sAsString）
'本函數在字符串s前添加若干空格，實現右對齊，代碼略
EndFunction
PrivateSubForm_Load （ ）
'本過程讀取學生姓名、班級和成績數據分別存儲在數組stu_name,class和score中，'并在List1中顯示，代碼略
EndSub
PrivateSubCommand1_Click （ ）
DimiAsInteger,jAsInteger,kAsInteger,t1AsInteger,t2AsStringDimc（0Tom+1）AsInteger
Fori=0Tomc（i）=0
Nexti
Fori=1Ton
①
c（k）=c（k）+1
Nexti
Fori=1Tom
c（i）=c（i）+c（i-1）Nexti
Fori=nTo1Step-1k=class（i）
temp1（c（k））=score（i）temp2（c（k））=stu_name（i）temp3（c（k））=class（i）
②
Nexti'處理完畢c（i+1）表示第i個班級的最后一個學生的存儲位置
c（m+1）=n
Fork=1Tom'對每一個班級學生成績進行排序Fori=c（k）+1Toc（k+1）-1
Forj=c（k+1）Toi+1Step-1If③Then
t1=temp1（j）：temp1（j）=temp1（j-1）：temp1（j-1）=t1t2=temp2（j）：temp2（j）=temp2（j-1）：temp2（j-1）=t2t1=temp3（j）：temp3（j）=temp3（j-1）：temp3（j-1）=t1
EndIfNextj
NextiNextk
Fori=1Ton
score（i）=temp1（i）：stu_name（i）=temp2（i）：class（i）=temp3（i）List2．AddItemadj（Str（stu_name（i）））&adj（Str（class（i）））&adj（Str（score（i）））
Nexti
EndSub組卷：0引用：1難度：0.5