(提示: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 页