请回答下列问题:
（1）如图a所示，若该店铺只有销售表中的商品，请用公式求出该店铺所有产品的成本费用,要求公式中包含SUM函数，其公式为______。（提示：成本=销售金额合计-销售利润合计）
（2）当前表中的数据是经过2个关键字排序后得到的，则排序的主要关键字为_________。 （3）根据图a中数据制作的图表如图b所示，创建该图表的数据区域是_____。
（4）将区域A2：G14的数据复制到新工作表，在新工作表中对产品名称进行筛选操作，若要筛选结果仅显示商品名称为：“圆珠笔”、“彩铅笔”、“铅笔”和“白板笔”行的数据。则如图图c所示，①处应填入的条件为____________。
14.古希腊著名科学家毕达哥拉斯把1、3、6、10、15、21、28……称为三角形数。这些三角形数序列有一定的规律，后一个数与前一个数的差刚好构成一个等差数列2、3、4、5、6、7、……，所以，第2位的“3”等于序列的第1位数“1”加上等差数“2”，第3位的6等于序列的第2位数“3”加上等差“3”……，第n位数m等于序列的第n-1位数加上等差数n。小金利用这个规律编写了一个判断三角形数的VB程序，在文本框Textl中输入一个大于1的正整数，单击“判断”按钮Commandl,在标签Labell中显示判断结果。程
6
序设计界面如图所示。
(1) 在设计程序界面时，要清空标签中显示内容“Labell”，应修改该标签的_________属性。 (2) VB程序代码如下，请在划线处填入合适代码。 Private Sub Command1 Click()
Dim n As Integer, s As Integer s = 0
n = Val(Textl. text) If n > 1 Then
For i = 1 To n
s =________________________ If n = s Then
Labell. Caption = Str(n) +〃是一个三角形数。\Exit For
______________________________________
Labell. Caption = Str(n) +\不是一个三角形数。\Exit For End If Next i Else
Labell.Caption = 〃请输入一个大于1的正整数\End If End Sub
的7
(3)若文本框Text1中输入的内容为“27”，单击按钮Commandl后，标签Labell中显示的内容是_________________
15.小陈使用 Flash 软件制作主题为“乌衣巷—刘禹锡”的多媒体作品，其“Main”场景的制作脚本如下： 场景：Main 呈现方式： 1. “诗人”从舞台左向右运动； 呈现顺序： “云1”，“云 2”从右向左运动；“燕子”从右上方飞到舞台中央，再从左上方飞出。 2. “诗”以淡入方式呈现在舞台左侧。 3. “创作背景”按钮出现在舞台右下方，单击该按钮，在浏览器中显示位于作品同一目录下“gsbj.txt”文件的内容。
（1）下列选项中属于作品创作需求分析的是_____（多选，填字母：A.该作品主要面向高中阶段学生，用于课堂教学使用 / B.该作品发布在校园局域网平台上，可供学生查阅 / C.该作品需呈现“乌衣巷”这首诗的内容和创作背景 / D.该作品在制作的过程中需要使用PhotoShop 软件处理图像素材，GoldWave软件处理音频素材）
1. 一开始出现背景图片和“诗人”和“云 1”，“云2”。 2. 1秒钟后，“燕子”飞入舞台。 3. 3秒钟后，出现“诗”动画，持续到本场景结束。 4. 最后出现“创作背景”按钮，并停止播放。 类别序号：2 进入方式：点击“Load”场景的“播放”按钮进入 8
（2）如图所示，测试影片时发现，燕子飞入的动画与制作脚本的要求不符，应做的调整是_____________________________________。
（3）测试场景时，背景画面播放到第30帧时变成另一背景画面，为了使背景第1帧到第50 帧一直显示“背景”图层第1帧的内容，正确的操作是__________________________________________。
（4）图中“燕子”图层创建了燕子飞动画，各关键帧中的“燕子”影片剪辑实例均由库中“燕子”元件Y）(300,140)、（仅含展翅动作）创建。第1帧、第30帧和第50帧中“燕子”实例的坐标（X，依次为(450,35)、(-50,50)。若仅对第30帧执行清除关键帧操作，则测试场景时,___________（多选，填字母：A.燕子飞行路径变为直线 / B. 燕子在坐标(450,35)处原地展翅 / C.燕子飞行时间变短/ D. 燕子展翅频率不变）。 （5）如图所示，测试影片时，单击“创作背景”按钮，实现制作脚本要求，则“创作背景”按钮的动作脚本为：__________________。
16.小明基于选择排序算法编写了一个VB程序,功能如下：某班有50个学生，从中选择10个身高最高的同学，要求被选的任何两个人不能身高一样（所给的数据保证能选10个）。 实现上述功能的VB程序如下，但加框处代码有错，请改正。 Const n = 50
的9
Dim d(0 To n) As single , name(1 to n) as string
'读入50个学生的身高，依次存入d(1)…d(50), 最高身高小于2，姓名存入name(1)…name(50) '代码略
Private Sub Command1_Click()
Dim i As Integer, j As Integer, temp As single, k As Integer,r as string d(0) = 2 For i = 1 To 10
For j = i To n If d(j) < d(i - 1) Then If k = j End If End If Next j If k <> i Then
temp = d(k): d(k) = d(i): d(i) = temp r=name(k) : name(k)=name(i) : name(i)=r End If Next i
For i = 1 To 10 ‘输出被选的10个人的名字和身高。 List2．AddItem name(i) & d(i) Next i End Sub
17.酒店房间管理：酒店房间(房间数小于10000)编号按1、2、3…连续编号，老板对于没有出租的房子使用如下的方法来登记管理。连续的空房间，登记第一间的编号和连续的空房间数，比如空房间1，2， 6，7，8，10，则登记3条记录，分别为（1 2），（6 3），（10 1），某旅客退房了，需要把这房子也登记上去，有四种情况需要处理：
1）上靠，例如退的房间号为3，则原来登记的3条记录变成（1 3）， （6 3），（10 1）；
Then
10
精品解析：浙江省东阳中学2018-2019学年高二3月阶段性检测信息技术试题（原卷版）
