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．下列关于计算机信息编码及进制的描述，正确的是（ ）
组卷：23引用：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
