发布时间 : 星期六 文章2018年04月浙江省学考选考高三技术选考试题及参考答案浙江省普通高校招生选考科目考试更新完毕开始阅读d1aed15029ea81c758f5f61fb7360b4c2e3f2afe
(提示:COUNTIF函数用于统计某个区域满足条件的单元格个数。例如:＝
COUNTIF(B4:B20,\表示在数据区域B4:B20中统计数值小于100的单元格个数。) 14.某种编码以4位二进制码为一组,每组前两位表示方向,后两位表示距离。编写一个程序,将编码翻译成方向和距离,距离值为每组编码后两位二进制码转换为十进制数的值。具体功能如下:在 文本框Text1中输入连续多组编码,单击“翻译”按钮Commandl,结果显示在列表框List1中。
程序运行界面如右图所示。
(1)要使程序运行时,文本框Text1的Width属性值为2018,可在Form_Load事件过程中添加语句 (单选,填字母:A.Width=2018 / B.Text1.Width = 2018 / C.Width.Text1=2018)。
(2)实现上述功能的VB程序如下,请在划线处填人合适的代码。 Private Sub Command1_Click()
Dim s As String, c As String, d As String
Dim n As Integer, b1 As Integer, b2 As Integer, v As Integer, i As Integer s = Text1.Text: n = Len(s): i = 1 Do While i <= n
c = Mid(s, i, 2) If c = \ d = \东\
ElseIf c = \ d = \南\
ElseIf c = \ d = \\ Else
d = \北\ End If
b1 = Val(Mid(s, i + 2, 1)) b2 = Val(Mid(s, i + 3, 1)) v= ①
List1.AddItem d + \ ② Loop End Sub
(3)若文本框Text1中输入的内容为“1111”,单击“翻译”按钮,列表框List1中显示的内容是 。
15.小王要创作一个关于“古诗欣赏”的多媒体作品。请回答下列问题: (1)在制作作品前,小王进行了相应的分析和规划。下列不属于需求分析的是 ．．．
第 5 页 共 23 页
(单选,填字母:A.该作品要求使用Flash软件制作/ B.该作品面向小学生演示播放/ C.该作品的主题思想为“赏析经典诗词,弘扬传统文化”/ D.根据主题思想和内容,制订该作品的脚本大纲)。
(2)小王使用Flash软件制作该多媒体作品,如下图所示。
图中“人物”图层第1帧到第10帧的补间动画实现了“人物”实例从完全透明到完全显示的效果,第1帧中“人物”实例的Alpha值是 。
(3)图中“白云”图层第15帧到第48帧的动画补间实现了由一朵云逐渐变化为两朵云的效果,该动画的补间类型是 。
(4)测试场景时,“标题”图层内容在播放完第40帧后消失。为了使该图层第40帧内容延续显示至场景动画结束,下列操作方法可行的有 (多选,填字母:A.选中“标题”图层第．．41帧执行“清除关键帧”操作 / B.删除“标题”图层第41帧到第60帧 / C.选中“标题”图层第40帧执行“复制帧”操作,在第41帧执行“粘贴帧”操作 / D.选中“标题”图层第60帧执行“插入关键帧”操作)。
(注:全部选对的得2分,选对但不全的得1分,不选或有选错的得0分)
(5)要将当前场景动画播放时长从6秒调整为5秒,则需设置Flash文档的帧频为 fps。 (6)测试影片时,单击“赏析”按钮,实现在浏览器中显示位于同一文件夹下“赏析.txt”文件的内容,并停止当前动画的播放,则“赏析”按钮的动作脚本为on(release){ }。
16.【加试题】有一组正整数,要求供对其中的素数进行升序排序。排序后素数在前,非素数在后。排序示例如下。
第 6 页 共 23 页
排序前 86 71 5 41 81 79 37 89 排序后 5 37 41 71 79 89 86 81 Const n = 8 Dim a(1 To n) As Integer Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, t As Integer Dim flag As Boolean
'读取一组正整数,存储在数组a中,代码略 For i = 1 To n - 1 k = 1 If IsPrime(a(k)) Then flag = True Else flag = False For j = i + 1 To n If IsPime(a(j)) Then If a(j) < a(k) Then k = j
flag = True End If End If Next j
If k <> i Then
t = a(k): a(k) = a(i): a(i) = t End If
If Not flag Then Exit For 'Exit For表示退出循环 Next i
'依次输出排序后的数据。代码略 End Sub
Function IsPrime(m As Integer) As Boolean
'本函数判断m是否是素数:是素数返回值为True,不是素数返回值为False '代码略 End Function
17.【加试题】为分析数组a中各元素依次变化的情况,进行如下定义: ? 变化段:数组中相邻两个元素构成一个变化段。变化段有上升段(a(i)>a(i-1))、下降段
(a(i) ? 波峰:从上升段转到下降段形成一个波峰。波峰的起点是峰顶前所有连续上升段中的第 1个,终点是峰顶后所有连续下降段中的最后1个。 ? 对称波峰:上升段与下降段个数相同的波峰称为对称波峰。 下图为一组数据的变化段及波峰示意图。 现要求统计数组a各元素依次变化过程中“对称波峰”的个数。小李依据上述描述设计如下VB程序。请回答下列问题: 第 7 页 共 23 页 (1)数组元素“1,4,3,3,2,6,8,7,9,3,4,7,9,6,3,1”依次变化过程中“对称波峰”的个数为 。 (2)请在划线处填入合适的代码。 Const n = 20 Dim a(1 To n) As Integer Private Sub Form_Load() '读取数据,并存储到数组a中,代码略 End Sub Private Sub Command1_Click() Dim flag As Integer '存储变化段的状态:1表示升,-1表示降,0表示平 Dim count As Integer '存储对称波峰段的个数 Dim steps As Integer Dim i As Integer flag = 0: steps = 0: count = 0 For i = ① To n If a(i) > a(i - 1) Then If IsSymPeak(flag, steps) Then count = count + 1 If flag = 0 Or flag = -1 Then ② Else steps = steps + 1 End If flag = 1 ElseIf a(i) = a(i - 1) Then If IsSymPeak(flag, steps) Then count = count + 1 steps = 0 flag = 0 Else steps = steps - 1 flag = -1 End If Next i If IsSymPeak(flag, steps) Then count = count + 1 Text1.Text = Str(count) End Sub Function IsSymPeak(flag As Integer, steps As Integer) As Boolean If ③ Then IsSymPeak = True Else IsSymPeak = False End If End Function 第 8 页 共 23 页