发布时间 : 星期日 文章浙江省东阳中学2017届高三3月阶段性考试技术试题 Word版含答案 - 图文更新完毕开始阅读49c88017abea998fcc22bcd126fff705cc175c18
第15题-1图
“音乐”图层中导入了一个存储容量为862KB的music.wav (44100Hz，16bit，单声道)文件，其音乐属性如第15题-2图所示，测试场景时，该音乐播放时长约 秒。
第15题-2图
（3）单击“控制”图层中的“关闭”按钮关闭放映文件，则在该按钮上添加的动作脚本是 。
（4）影片剪辑“太阳”元件将实现由云朵逐渐变成太阳的动画，部分界面如第15题-3图所示，动画设置不成功的原因是 。
第15题-3图
16. 【加试题】将一组数据按大小顺序排列，处在最中间位置的一个数叫做这组数据的中位数。 当数据个数n为奇数时，处于中间位置的变量值即为中位数;当个数n为偶数时，中位数则为处于中间位置的2个变量值的平均数。
小李编写一个计算中位数的VB程序:从数据库读取某一指定科目的相关数据存储在数组a中，计算并输出这组数据的中位数。
程序功能如下:在文本框Text1中输入科目名称，单击“读数据库”按钮Command1，程序从数据库读取数据；单击“输出中位数”按钮Command2，程序进行统计处理，输出结果在文本框Text2中。程序运行界面如第16题图所示。实现以上功能的VB程序如下，请回答下列问题：
(1) 分析程序，可知数据库的文件名为 。 (2) 请在划线处填入合适的代码。 Dim a(1 To 1000) As Integer Dim n As Integer
‘存储某科目的相关数据，数组大小满足处理要求
‘该科目的学生总人数
Private Sub Command1_Click()
‘从数据库中读取指定科目的各相关数据，存储在数组a中 Dim conn As New ADODB.Connection，rs As New ADODB.Recordset
conn. ConnectionString = \App.Path + \ conn. Open
Set rs. ActiveConnection = conn ’本过程的其他语句略 End Sub
Private Sub Command2_Click()
Dim i As Integer，j As Integer，k As Integer，kt As Integer Dim c As Integer，zws As Single For i = 1 To n - 1 ① For j = i + 1 To n If a(j) > a(k) Then
kt=a(j)： a(j) = a(k): a(k) =kt End If Next j Next i
c = n \\ 2
If n Mod 2=1 Then zws = ② Else
zws = (a(c) + a(c + 1))/2 End If
Text2.Text = Str(zws) End Sub
第16题图
17. 【加试题】在计算机系统中，数值一般用补码来表示和存储，补码由符号位和数值位两部分 组成，符号位用0表示正数，用1表示负数。例如，整数n( -128≤n≤127)用8位二进制补码的表示方法为：
符号位（1位） 第1位(最高位） ①正数:正整数补码的数值即其二进制表示。
例:12的8位二进制表示00001100,最高位即符号位“0”表示正数。 ②负数:除符号位外，所有位取反，然后 + 1。
例：-5的8位二进制补码表示方法如下，5对应7位二进制数为0000101 (原码），所有位取反后为1111010(反码），再加1后为1111011(补码），再设置符号位为1，因此-5 用8位二进制补码表示为11111011。
小明设计了一个VB程序，点击“补码”按钮Command1，将文本框Text1中输入的整数 n( -128≤n≤127)转换成相应的补码，并在文本框Text2中输出，程序结果如第17题图所示，请将划线处的代码补充完整。 Private Sub Command1_Click()
Dim n As Integer，a As Integer，i As Integer Dim m(1 To 8) As Integer Text2.Text = \n = Val(Text1.Text) If n > =0 The ‘计算二进制原码
数值位(7位） 第2~8位 For i = 8 To 2 Step - l m(i) = n Mod 2 n = n \\ 2 Next i ‘设置符号位 m(1) = 0 Else n = - n
‘计算二进制反码
For i = 8 To 2 Step – l m(i)= ① n = n \\ 2 Next i ‘加1计算 i =8
Do While m(i) = 1 ② i=i-1 Loop m(i) = 1 ‘设置符号位 m(1) = 1 End If ’输出结果 For i = l To 8
Text2.Text =Text2.Text & m(i) Next i End Sub
(1) -27用8位二进制补码表示为 (2) 请在划线处填入合适的代码。
第17题图