2020年浙江教育綠色評(píng)價(jià)聯(lián)盟高考信息技術(shù)適應(yīng)性試卷
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分。在每小題給出的四個(gè)選項(xiàng)中，只有一個(gè)符合題目要求）
-
1．下列說(shuō)法正確的是（ ?。?/h2>
組卷：7引用：1難度：0.6 -
2．下列應(yīng)用中，使用了人工智能技術(shù)的是（ ?。?/h2>
組卷：5引用：1難度：0.9 -
3．通過(guò)瀏覽器登錄某購(gòu)物網(wǎng)站進(jìn)行購(gòu)物，如圖所示，下列說(shuō)法正確的是（ ?。?/h2>組卷：0引用：1難度：0.7 -
4．下列關(guān)于計(jì)算機(jī)信息編碼及進(jìn)制的描述，正確的是（ ?。?/h2>
組卷：22引用：2難度：0.3 -
5．使用Photoshop軟件制作“致敬勞動(dòng)者”作品，部分界面如圖所示。下列說(shuō)法正確的是（ ）
組卷：3引用：1難度：0.5
二、非選擇題（本大題共4小題，其中第13小題4分，第14小題8分，第15小題7分，第16小題7分，共26分．）
-
15．給出一系列商品的生產(chǎn)時(shí)間和價(jià)值，現(xiàn)要在規(guī)定時(shí)間內(nèi)生產(chǎn)出總價(jià)值最大的商品。如有5件商品生產(chǎn)時(shí)間和價(jià)值如下表所示：
若生產(chǎn)時(shí)間為20，則可生產(chǎn)編號(hào)為1、2、5的商品，總價(jià)值為10+16+15=41。編號(hào) 1 2 3 4 5 生產(chǎn)時(shí)間 4 7 5 5 9 商品價(jià)值 10 16 12 10 15
編寫(xiě)一個(gè)VB程序，實(shí)現(xiàn)如下功能：在文本框Text1中依次輸入各商品（數(shù)量小于等于10件）的生產(chǎn)時(shí)間和價(jià)值（整數(shù)用逗號(hào)分隔并以逗號(hào)結(jié)尾），在文本框Text2中輸入總加工時(shí)間（至少可以生產(chǎn)一件商品），單擊“確定”按鈕Command1后，在列表框List1中顯示最大的總價(jià)值和生產(chǎn)的商品編號(hào)。程序運(yùn)行界面如圖所示。
（1）下列對(duì)象不具有Caption屬性的是（單選，填字母：A．Command1/B．Form1/C．Text1/D．Label1）
（2）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)跈M線處填入合適代碼。
（3）程序中代碼有誤，請(qǐng)改正。
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″最大價(jià)值是：″+Str（max）
List1．AddItem″生產(chǎn)商品如下：
″輸出生產(chǎn)的商品，代碼略
EndSub組卷：0引用：1難度：0.3 -
16．某次技術(shù)考試后進(jìn)行成績(jī)處理，學(xué)生信息包括姓名、班級(jí)、成績(jī)，要按班級(jí)從小到大，同一班級(jí)按成績(jī)從高到低進(jìn)行排序。按上述要求，編寫(xiě)一個(gè)VB程序，功能如下：在列表框List1中顯示排序前的數(shù)據(jù)，單擊“排序”按鈕Command1，在列表框List2中顯示排序后結(jié)果，程序運(yùn)行界面如圖所示。
（1）將數(shù)組元素temp1（1）到temp1（500）分為10段，每段剛好存儲(chǔ)一個(gè)班的學(xué)生成績(jī)，10個(gè)班
的學(xué)生數(shù)如下表所示。從數(shù)組temp1第1個(gè)元素開(kāi)始依次存儲(chǔ)這10個(gè)班的學(xué)生成績(jī)，如1班學(xué)生成績(jī)存儲(chǔ)在temp1的第1個(gè)元素到第50個(gè)元素，則3班學(xué)生成績(jī)存儲(chǔ)在temp1的第個(gè)到第個(gè)元素（填數(shù)字）。
（2）請(qǐng)?jiān)跈M線處填入合適的代碼。班級(jí) 1班 2班 3班 4班 5班 6班 7班 8班 9班 10班 人數(shù) 50 45 50 51 49 55 50 48 52 50
Constn=500'總學(xué)生數(shù)
Constm=10'總班級(jí)數(shù)Dimscore（1Ton）AsInteger
Dimstu_name（1Ton）AsIntegerDimclass（1Ton）AsIntegerDimtemp1（1Ton）AsIntegerDimtemp2（1Ton）AsIntegerDimtemp3（1Ton）AsIntegerFunctionadj（sAsString）
'本函數(shù)在字符串s前添加若干空格，實(shí)現(xiàn)右對(duì)齊，代碼略
EndFunction
PrivateSubForm_Load （ ?。?br />'本過(guò)程讀取學(xué)生姓名、班級(jí)和成績(jī)數(shù)據(jù)分別存儲(chǔ)在數(shù)組stu_name,class和score中，'并在List1中顯示，代碼略
EndSub
PrivateSubCommand1_Click （ ?。?br />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個(gè)班級(jí)的最后一個(gè)學(xué)生的存儲(chǔ)位置
c（m+1）=n
Fork=1Tom'對(duì)每一個(gè)班級(jí)學(xué)生成績(jī)進(jìn)行排序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