发布时间 : 星期一 文章浙江省温州市普通高中2017届高三8月选考模拟考试技术试题（word版） - 图文更新完毕开始阅读caf44b2226fff705cd170acc
14．编写VB程序代码，实现如下功能：在文本框Text1中输入金额(整数)后，点击“转换”按钮
Command1，则在文本框Text2中显示该金额的大写，程序运行界面如下图所示:
（1）要使窗体标题上显示的文本改为“人民币大小写”，可在其属性窗口中将 属性的属
性值改为“人民币大小写”。
（2）为了实现以上程序功能，使程序正常运行，请完善以下两处代码。 Private Sub Command1_Click() Dim dx As String, dw As String Dim s As String, c As String Dim ch As String Dim i As Integer
dx = \零壹贰叁肆伍陆柒捌玖拾\dw = \亿仟佰拾萬仟佰拾元\
s = Text1.Text 第14题图 If Len(s) > 9 ①
Text2.Text = \输入的数据超出所能转换的范围\Else
For i = 1 To Len(s) ch = ②
c = c + Mid(dx, Val(ch) + 1, 1) + Mid(dw, 9 - Len(s) + i, 1) Next i
Text2.Text = c + \整\End If End Sub
（3）由上述算法可知，若在文本框Text1中输入“20”，则文本框Text3显示的结果为 。 15．小赵用Flash软件制作了题为“绿色环保”的单场景动画。请回答以下问题：
第15题图
（1）在作品制作之前，小赵分析该作品需要用到哪些多媒体设备和工具，该分析过程属于多媒
体创作中的 （选填：①应用需求分析 / ②创作需求分析）。
（2）如图所示，“地球”图层从第1帧到第24帧实现“地球”实例从透明到完全显示的动画，
该过程动画在舞台上实现的时间是 秒，该动画类型属于 （选填：①逐帧动画/ ②动画补间/ ③形状补间）。
（3）将该动画导出生成swf文件，运行该swf文件时，要实现该动画播放一次便自动关闭，则
应在“ ”图层最后一帧中设置脚本命令为 。
（4）测试场景时，发现“背景”图层只播放2秒便消失，若要使背景图片一直存在，对该图层
进行的操作是 。
16．【加试题】小明编写了一个VB程序，功能如下：在文本框Text1中输入一段英文，并在文本框
Text2中输入英文段落中的某个单词（或字符串），单击“最大间距”按钮（Command1）后，在文本框Text3中显示该单词在文中某两次出现的最大间距，若只出现一次或不出现则显示值为0。程序运行界面如下图所示：
第16题图
实现上述功能的VB程序如下： Private Sub Command1_Click()
Dim a(1 To 1000) As String '数组a存储文中出现该指定单词(或字符串)的各个位置 Dim s As String, c As String ,ch As String Dim n As Integer, max As Integer, i As Integer s = Text1.Text c = Text2.Text n = 0: Max = 0
For i = 1 To Len(s) - Len(c) + 1 ch = ① If ch = c Then n = n + 1 a(n) = i If n >= 2 Then
If a(n) - a(n - 1) - Len(c) > Max Then Max = a(n) - a(n - 1) - Len(c)
End If End If Next i
Text3.Text = ② End Sub
以上程序段运行时，为了实现上述功能，划线处①和②应填入的代码分别为： （1）_______________________________; （2）_______________________________
17．【加试题】合唱队列是按队员的身高进行排列，形成中间高两边有序降低的队形；例如有六个队
员“己、戊、丁、丙、乙和甲”的身高依次由小到大，则排列后的顺序为“戊、丙、甲、乙、丁、己”。小李用VB编写模拟“合唱队列”程序，功能如下：在文本框Text1中输入各队员身高，输入结束并回车，则输入的各队员身高分别存入数组a中；单击“合唱队列”按钮Command1，对数组a的元素进行有序排列后，将各元素存入数组C中形成合唱队列，并将结果显示在文本框Text2中。程序运行界面如图所示： 甲、乙、丙、丁、戊和己
第17题图
实现上述功能的VB程序如下：
（1）如果输入各队员身高为“190,191,194,179,166”，则合唱队列的结果为 。 （2）实现上述功能的VB程序如下，请在划线处填入合适代码。 Dim a(1 To 20) As Integer Dim n As Integer
Private Sub Text1_KeyPress(KeyAscii As Integer)
'将输入各队员身高分别存入数组a中，队员个数为n，代码略! End Sub
Private Sub Command1_Click() Dim c(1 To 20) As Integer
Dim right As Integer, left As Integer, i As Integer For i = 1 To n – 1 For j =1 To n-i
If ① Then t = (j): a(j) = a(j + 1): a(j + 1) = t End If Next j Next i
‘下列程序段实现数组C的合唱队列 m = (1 + n) \\ 2 left = m: right = m c(m) = a(n) i = 2
Do While i <= n
If i Mod 2 = 0 Then right = right + 1 c(right) = a(n-i+1) Else
② c(left) = a(n-i+1) End If i = i + 1 Loop
s = ③ For i = 2 To n
s = s + \Next i Text2.Text = s End Sub