t=a(j):
a(j)=a(j-1):
a(j-1)=t
m=m+1
Endif
Nextj
Nexti
数组元素a
(1)到a(5)的值依次为“10,45,8,6,20”,程序运行后,变量m和n的值分别为
A.6,9
B.9,9
C.9,6
D.5,6
二、非选择题(本大题共5小题,其中第13小题4分,第14题5分,第15题8分,第16题3分,第17题6分,共26分)
13、(原创)下图是一份某班级学生期末成绩。
请根据图x,回答下列问题:
(1)N3:
N16为语数外在总分中的权重计算,方法为,在N3中输入公式,通过自动填充功能完成所有数据的填充。
如图可知,N16的公式为
(2)为得出相同班级中语文的排名,对全部学生按照为主要关键字,语文为次要关键字进行降序排序,排序前应选择的数据区域为
(3)现对学生的语数外成绩制作了图表,如图所示:
发现科目为系列1、系列2、系列3,表格内的“语文、数学、外语”无法体现在图表内,该如何解决
14、(根据模拟练习卷二第14题改编)求孪生素数。
孪生素数要求为:
两个相邻奇数且都是素数。
下列VisualBasic程序用于查找100以内的所有孪生素数,其中自定义函数judge
用于判断一个数是否是素数,程序运行界面如图(第14题-1图)所示,Command1鼠标单击事件过程的流程图如图(第14题-2图)所示。
请在划线处填入相关代码。
第14题-1图
程序代码如下:
PrivateSubCommand1_Click()
DimiAsInteger
List1.Clear'清除列表框内容
Fori=3To97___①___
第14题-2图
Ifjudge(i)And② Then
List1.AddItemStr(i)+"和"+Str(i+2)
EndIf
Nexti
EndSub
Functionjudge(xAsInteger)AsBoolean
DimjAsInteger
judge=True
Forj=2ToInt(Sqr(x))
IfxModj=0Then
judge=false
ExitFor
EndIf
Nextj
EndFunction
将加框部分转换为DoWhile条件循环结构,部分代码如下:
PrivateSubCommand1_Click()
DimiAsInteger
i=3
DoWhilei<=97
'循环内语句块与加框处循环内语句块相同
③
Loop
EndSub
15、(原创)某同学利用photoshop软件处理图像素材,再利用flash软件制作课程教学宣传动画。
“main”场景的制作脚本如下:
场景名:
main
进入方式:
由用户双击动画文件进入
呈现方式:
①背景图片一开始就显示,背景音乐随后自动循环播放;
②“欢迎你”文字从左侧舞台外,2秒后移出右侧舞台,并重复播放
③“相关课程”按钮位于右下角,点击后跳转到“课程”场景第1帧并继续播放。
呈现顺序说明:
①背景图片出现,音乐在1秒后播放;
②文字从左往右,再从右往左,重复进行
③播放一趟后,动画停止在第60帧,“欢迎你”动画继续播放
④最后出现“进入”按钮
第15题-1图
第15题-1图
(1)第15题-1图在使用时,发现了右下角有”pm0047-6676jy”字样,可采取的方法有
(多选,选对2分,漏选1分,错选0分;填字母:
A.用选框工具选择”pm0047-6676jy”字样所在区域,利用填充功能实现“内容识别”操作;B.用魔棒选择”pm0047-6676jy”字样,删除;C.用仿制图章工具,将周边像素仿制过来;D.用套索工具选择”pm0047-6676jy”字样,删除。
)
(2)flash操作软件界面如第15-2图所示,根据脚本制作,场景播放结束后动画停止,可以在按钮图层的最后一帧设置动作为
(3)测试时,发现文字图层内的动画效果随着场景停止而停止了,不符合脚本要求,如何解决
(4)动画在第60帧停止,而声音要求重复播放,以下同步方式可以设置为(单选、填字母:
A.数据流、B.停止、C.开始)
16【加试题】(根据模拟练习试卷16题改编)扔球进袋游戏是一种体现人思维反应能力的游戏,其思想为将数量有限的桶进行编号,分别为1~n,另有乒乓球m个,乒乓球上可写上1~n之间任意随机数,该随机数存储在数据b
(1)~b(m)内。
参与者则将所有手中的乒乓球扔入相应编号的桶内,完成后,1~n号桶内的乒乓球数量分别为a
(1)~a(n)个,用此方法可以得出原先乒乓球的编号,并以有序的形式呈现。
实现上述功能的vb程序如下,请回答以下问题。
(1)某同学随机抽取了两个乒乓球,发现其编号为1和100,那么数组a的数组范围有可能是
(2)修改划线处处的代码
dimnasinteger,masinteger
Dima(1ton)asinteger,b(1tom)asinteger
Privatesubcommand1_click()
n=val(text1.text)
m=val(text2.text)
Fori=1tom
b(i)=int(rnd*n)+1
List1.additemstr(b(i))
Nexti
Endsub
Privatesubcommand2_click()
Fori=1ton
a(b(i))=b(i)+1
Nexti
Forj=1tom
Dowhileb(j)<>0
List2.additemstr(j)
b(j)=0
Loop
Nextj
Endsub
17【加试题】(根据2016.10选考第17题改编)小李与小王合作编写一个成绩统计的VB程序:
小王编写一个过程,该过程从数据库读取某一指定科目的相关数据,存储在数组a中;小李编写一个过程,该过程依据数组a中的相关数据进行排序。
小李与小王约定的数组a各元素含义如图所示。
程序功能如下:
在文本框Text1中输入科目名称,单击“读取数据库”按钮Command1,程序从数据库读取数据,数据存放与a()中,呈现方式如表所示;在文本框text2中输入第几班级,单击“开始排序”按钮Command2,程序对输入班级的学生成绩进行排序,结果输出在列表框List1中。
程序运行界面如下图所示。
数组元素
数组元素的含义
a
(1)
存储班级数n
a
(2)
从a
(2)到a(n+1)依次存储第1、2、…第n个班级人数
…
a(n+1)
a(n+2)
从a(n+2)依次存储第1班每个学生的单科成绩、第2班每个学生的单科成绩、…第n班每个学生的单科成绩
…
…
实现上述功能的VB程序如下,请回答下列问题:
(1)根据程序运行界面中的数据及数组a各元素的含义,数组元素a(5)表示的是
(2)分析程序,可知数据库的文件名为
(3)请在划线处填入合适的代码。
Dima(1To600)AsInteger'数组大小满足处理要求
PrivateSubCommand1_Click()'本过程由小王完成,从数据库读取指定科目的各相关数据,存储在数组a中
DimconnAsNewADODB.Conncction
DimrsAsNewADODB.Recordset
connConncctionString="provider=Microsoft.ACE.OLEDB.12.0;datasource="+"Score.accdb"
conn.Open
Setrs.ActiveConnection=conn'本过程的其他语句略
EndSub
PrivateSubCommand2_Click()'依据数组a中的相关数据对第k个班级的学生平均分进行升序排序
DimiAsInteger,jAsInteger,nAsInteger‘i,j为循环变量,n为班级个数
Dimkasinteger,tasinteger
DimpAsInteger‘p为前几个班级的总人数
k=val(text2.text)
Fori=2tok‘求得前几个班级的总人数
p=p+a(i)
Nexti
t=‘t为第k-1个班级最后一个学生所在的位置
Fori=t+1tot+a(k+1)-1‘t+1为第k个班级第一位学生所在的位置,t+a(k+1)为第k个班级最后一个学生所在的位置
Forj=toi+1step-1
Ifa(j)k=a(j-1):
a(j-1)=a(j):
a(j)=k
Endif
Nextj
Nexti
Fori=1toa(k+1)
List1.additemstr(i)+””+str(a(t+i))
Nexti
EndSub
高考模拟试卷技术卷(信息技术部分)
参考答案及评分标准
1.B2.A3.D4.B5.A6.B7.A8.A9.B
10.A11.D12.A
13、
(1)=SUM(C16:
E16)/M16*100(1分)
(2)班级(1分)A2:
M16(1分)
(3)重新选择数据区域为A2:
A16,C2:
E16(1分)
14、①STEP2(2分)
②judge(i+2)(2分)
③i=i+2(1分)
15、
(1)AC(2分)
(2)stop();(2分)
(3)删除文字图层内所有帧,新建影片剪辑元件,制作符合要求的文字动画,将该元件应用到文字图层即可(2分)
(4)C(2分)
16、
(1)a
(1)~a(100)(1分)
(2)a(b(i))+1(1分)
b(j)-1(1分)
17.
(1)第4个班级的人数(1分)
(2)Score.accdb(1分)
(3)p+n+1(2分)t+a(k+1)(2分)