Loop
数组元素a
(1)到a(7)存放的数值依次为8,21,27,36,79,28,98,若该程序段运行结束后,n的值为2,则Text1中输入的要查找的数是()
A.27或79B.28C.21或28D.21
二、非选择题(本大题共5小题,其中第13小题4分,第14小题5分,第15小题8分,第16小题3分,第17小题6分,共26分)
13.某家电销售商利用Excel软件对其2016年家电销售数据进行处理和分析,销售情况如下图所示。
请回答下列问题:
题13图-1
(1)若要计算出各产品的毛利润,可以在F3单元格中输入公式,然后自动填充至F9单元格。
(提示:
毛利润=(售价-进价×数量)
(2)在计算各产品占比时,除了G3单元格正确外,其他单元格均出现了错误,试说明出错
的原因。
(3)为了更加直观的比较各产品毛利润情况,制作了“2016年家电毛利润比较”图表(如
图b所示),则生成该图表的数据区域是:
。
(4)若要找出毛利润最高的三种产品,可以选择来进行筛选(填字母:
A.高于平均值/B.10个最大的值/C.自定义筛选)。
14.(改编)用VB编写正整数十进制转换为十六进制的程序,运行界面如图所示。
程序功能如下:
在文本框Text1中输入待转换的十进制值,单击“十进制转换十六进制”按钮Command1,在文本框Text2中输出转换结果。
(1)要使命令按钮Command1显示的文本改为“十进制转换十六进制”,可在其属性窗口中将属性的属性值修改为“十进制转换十六进制”。
(2)若在文本框Text1中输入79,则文本框Text2中输出的值是。
(3)请在程序的划线处填写合适的代码。
PrivateSubCommand1_Click()
DimaAsString,sAsString
DimrAsInteger,xAsInteger
x=Val(Text1.Text)
s=""
DoWhilex>0
x=x\16
Ifr>9Then
a=Chr(r+55)
Else
a=Str(r)
EndIf
s=a+s
Text2.Text=s
EndSub
15.(浙江“七彩阳光”联盟期中联考改编)小王制作主题为“枫叶红了”的多媒体作品。
他先使用Photoshop软件制作一张图片,然后使用Flash软件制作动画。
请回答下列问题:
(1)如图a所示,“蝴蝶”图层有三只蝴蝶,他可使用工具直接选取画布右上角的那只蝴蝶。
(多项选择:
A.矩形选框工具B.魔棒工具C.套索工具D.椭圆选框工具E.仿制图章工具)
图a
(2)小王使用Flash软件编辑“蝴蝶”元件,其部分界面如图b所示。
“翅膀”图层的动画类型属于①(选填字母:
A.动画补间动画/B.形状补间动画/C.逐帧动画)。
若要让“身体”图层的内容一直延续到第21帧,则应该在该图层的第21帧处执行②操作;在当前“身体”图层被锁的状态下,③(填:
能/不能)实现该操作。
图b
(3)小王制作的“Main”场景时间轴如图c所示,要使声音在“线条”动画开始时才播放,应在“声音”图层进行的操作是。
(4)测试场景时,发现动画播放一遍后停止在最后一帧,则在“线条”图层最后一帧上添加的动作脚本是。
图c
16.【加试题】(改编)某人编写了一个VB程序对一组随机数进行排名。
程序运行时,产生10个随机整数存数组d中,并在列表框List1中显示,单击按钮Command1,在列表框List12中显示降序排序后数据及名次,若数值相同则名次相同。
实现上述功能的VB代码如下,但加框处代码有错,请改正。
Constn=10
Dimd(1Ton)AsInteger,pm(1Ton)AsInteger
'产生10个随机整数存数组d中,并在列表框List1中显示。
代码略
PrivateSubCommand1_Click()
DimiAsInteger,jAsInteger,kAsInteger,tAsInteger
i=1
DoWhilei<=n-1
k=1’①
Forj=i+1Ton
Ifd(j)>d(k)Thenk=j
Nextj
Ifi<>kThent=d(i):
d(i)=d(k):
d(k)=t
i=i+1
Loop
pm
(1)=1
Fori=2Ton
Ifd(i)=d(i+1)Thenpm(i)=IElsepm(i)=pm(i-1)’②
Nexti
Fori=1Ton
List2.AddItemStr(d(i))+""+"第"+Str(pm(i))+"名"
Nexti
EndSub
(1)加框①处应填入的语句为:
(2)加框②处应填入的语句为:
17.【加试题】(高中自主导学案改编)用绳索围成回字迷宫图(如题17图a所示),迷宫路宽是1米,如果绳索长为X米,则可以构成多少个边长为1米并且至少两边在绳索上的正方形。
程序效果如题17图b所示。
DimXAsInteger,LAsInteger,iAsInteger
DimnAsInteger,aAsInteger,bAsInteger
X=Val(Text1.Text)
IfX<2Then
n=0
ElseIfX>=2AndX<=4Then
n=1
Else
i=1:
L=3
DoWhile ①
i=i+2题17图a
L=L+4*i
Loop
IfL=XThen
n=i^2
Else
L=L-4*i
a= ②题17图b
b=((X-L)\i)*(i-1)-1+(X-L)Modi
n=a+b
EndIf
EndIf
Label1.Caption="绳索长度为"+Str(X)+"米,可以构成"+Str(n)+"个边长为1米的正方形。
"
(1)为实现该程序的功能,画线处的语句应填写为:
①
②
(2)如果绳索长度X为15米,则可以构成相应的正方形个数为 。
2019年高考模拟试卷技术卷评分标准
第一部分信息技术(共50分)
一、选择题(每小题2分,共24分)
题号
1
2
3
4
5
6
7
8
9
10
11
12
答案
C
C
B
D
C
D
A
A
C
A
C
D
二、非选择题(本大题共5小题,其中第13小题4分,第14小题5分,第15小题8分,第16小题4分,第17小题5分,共26分)
13.
(1)=(D3-C3)*B3(1分)
(2)除数没有使用绝对地址(1分)
(3)A2:
A9,F2:
F9(1分)
(4)B(1分)
14.
(1)Caption(1分)
(2)4F
(3)①r=xmod16(2分)②loop(1分)
15.
(1)ACD(2分)
(2)①C(1分)
②清除关键帧或其他等效操作(1分)
③能(1分)
(3)将第1帧移动到第5帧(2分)
(4)stop();
16.
(1)k=i(1分)
(2)d(i)<>d(i-1)(2分)
17.
(1)①L②(i-2)^2(2分)
(2)9(1分)