学进去

某翻转字符串程序能实现句子中单词顺序的翻转，例如字符串 “Hello，I am student, nice to you!”翻转后为“! you to nice, student am I, Hello”（包括双引号）程序界面如图所示：

实现该功能的VB程序段如下：；
Dim i As Integer
Dim s1 As String, s2 As String, ch As String, s3 As String
s1=Text 1. Text : s2=“” : s3=“”
For i=1 To Len(s1)’①

ch=Mid(s1,i,1)

     If ch >= “a” And ch <= “z” or ch >= “A” And ch <= “Z” Then’②
          s3=ch + s3’③
     Else
          s2=s2 + s3 +ch ’④
          s3=“”
     End if
Next i
Text 2. Text=s2
调试代码时发现无法实现程序功能，修改指定语句中和一条可使程序功能实现的是

A．①改为For i=Len(s1) To 1 Step －1

B．②改为If Not ((ch >= “a” And ch <= “z”) Or (ch >= “A” And ch <= “Z”)) Then

C．③改为s3=s3 + ch

D．④改为s2=ch + s3 + s2

小王同学使用Flash软件创建“漫游太空”多媒体作品，部分编辑界面如图a所示．

场景名：片头	类别序号：1	进入方式：启动动画自动播放
呈现方式： ①：文字图层的“漫游太空”从完全显示到完全透明。 ②“宇航员”图层的“宇航员”从舞台右下方移动到舞台中央。 ③“旋转的星球”图层中星球在舞台左下方，并一直旋转。 ④“播放”按钮位于舞台右侧靠下位置，单击该按钮，跳转下一个场景“主交互界面”第1帧播放。		呈现顺序： ①一开始就呈现背景、旋转的星球和宇航员、声音等。 ②最后出现“播放”按钮，并停止播放。

             图a
请回答下列问题：
（1）在创作之前进行了作品设计，下列说法正确的是______（多选，填字母）．
A．考虑作品的社会需求和作品内容，属于作品的应用需求分析
B．在系统结构设计之前就需确定作品的结构类型
C．将作品划分为片头、主交互界面、片尾等组成部分，属于模块设计
D．有了脚本大纲，就可以直接编写制作脚本
E．媒体元素分解是多媒体作品设计的最后一步
（2）根据制作脚本和动画编辑界面，“旋转的星球”图层中的对象是______（单选，填字母：A．影片剪辑元件实例/B．形状/C．位图）．若在“片头”场景中将帧频调整为10fps，则星球旋转的速度将______（单选，填字母：A．变快/B．变慢/C．不变）．
（3）“sound”图层第1帧上添加了“sound．mp3”文件，其声音属性设置如图b所示．测试影片，以下操作会改变声音播放效果的是______（多选，填字母）．
A．将动画文件的帧频修改为24fps
B．在“sound”图层第40帧插入关键帧
C．删除“sound”图层第30帧到第60帧
D．将“sound”图层第1帧移动到第20帧
E．将“sound．mp3”声音同步方式改为“事件”
图b
（4）根据制作脚本，“播放”按钮的动作脚本为____________．

某校将举行“希望杯”欢乐四项赛，比赛项目有跳绳、颠球、套圈、飞镖四项。团体   赛规则：每班由 2 名选手参加；每名选手参赛项目不限；每项每班由 1 名选手参赛；团体成绩为 4 项得分的总和。根据团体赛规则，为推选出最优组合参赛，班级制定了如下推荐办法：个人总分前 5 名入围，在入围的选手中依据单项得分之和最高推选两位选手组队参赛（若有多组符合要求，则选择编号靠前的选手组队）。
编写 VB 程序，实现选手推荐功能：单击“入围”按钮 Command1 后，将入围选手名单及成绩按总分降序显示在列表框 List1 中，然后单击“推荐”按钮 Command2，在标签Label1 中显示推荐结果，程序运行界面如图所示。

（1）要使窗体 Form1 标题显示“比赛选手推荐”，则需修改该窗体的_____属性。（单选， 填字母：A.Font /B.Caption /C.BackColor）
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
（3）程序中加框处代码有错，请改正。Const rs = 30 '初赛人数
Dim ts(rs) As Integer, dq(rs) As Integer, tq(rs) As Integer, fb(rs) As Integer Dim xm(rs) As String, zf(rs) As Integer, bh(rs) As Integer
Dim n As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, t As Integer
'读取选手姓名及四项比赛成绩，依次存入数组 xm、ts、dq、tq、fb，代码略
For i = 1 To rs
zf(i) = ts(i) + dq(i) + tq(i) + fb(i)
bh(i) = i
Next i
For i = 1 To rs - 1
k = i
For j = i + 1 To rs
If   ____ Then k = j
Next j
If k <> i Then t = bh(i): bh(i) = bh(k): bh(k) = t
If i > 5 And zf(bh(i)) < zf(bh(i - 1)) Then
n = ① ____
Exit For       'Exit For 表示退出循环End If
Next i
'按要求将入围选手显示在列表框 List1 中，代码略End Sub
Private Sub Command2_Click()
Dim smax As Integer, s As Integer, i As Integer, j As Integer Dim xs1 As String, xs2 As String
smax = 0
For i = 1 To n - 1   
For j = i + 1 To n
s = sum(bh(i), bh(j))
If s > smax Then
____②
xs1 = xm(bh(i))
xs2 = xm(bh(j))
End If
Next j
Next i
Label1.Caption = xs1 + " " + xs2
End Sub
Function sum(x As Integer, y As Integer) As Integer sum = 0
If ts(x) > ts(y) Then sum = sum + ts(x)
Else sum = sum + ts(y)
If dq(x) > dq(y) Then sum = sum + dq(x)
Else sum = sum + dq(y)
If tq(x) > tq(y) Then sum = sum + tq(x)
Else sum = sum + tq(y)
If fb(x) > fb(y) Then sum = sum + fb(x)
Else sum = sum + fb(y)
End Function

小明与同伴玩数学游戏，看谁算的最快。规则如下：对一组数，选其中最小的两个数相加，把和保存到变量Total中；接着，在剩下的数中（包括上一步两数相加的和），选其中最小的两个数相加，并把和累加到前面的Total中，以此类推，直到最后。例如，对于1、2、3、4这四个数，第1步1+2=3，total=3; 第2步，对于3、3、4 ，3+3=6，total=3+6=9; 第3步，对于4、6, 4+6=10，total=9+19=19。最终得到结果：total=19。为了加快计算速度，小明编写了一个VB程序帮助计算。

（1）请帮助小明完善程序，在划线处填入合适的代码。________、________
（2）若随机生成的一组数为3、10、2、5、8，则程序运行后，最终Total的值为：________
（3）加框处的代码有错误，请改正。     ________
Dim a(1 To 10) As Integer
Private Sub mysort(n)
For i = 2 To n
   a(i) = a(i + 1)
Next i
t = a(1)
For i = 2 To n
   If t > a(i) Then
        a(i - 1) = a(i)
   Else
        a(i - 1) = t ：Exit For
   End If
Next i
If i = n + 1 Then ____①____
End Sub
Private Sub Command1_Click()
Dim s As String
n = 5
Randomize
‘随机产生n位整数，并在列表框List1中显示,代码略
For i = 1 To n – 1   ‘对n位数升序排序
   For j = i + 1 To n
       If    Then t = a(i): a(i) = a(j): a(j) = t   
   Next j
Next i
i = 1
Do While n > 1

________②_______

       total = total + a(1)   

n=n-1   

       Call   mysort( n )   
Loop
Label1.Caption = "计算结果为：" + Str(total)
End Sub

某教室在上午8点到12点的时间段可以安排活动。为了安排尽可能多场次的活动，按以下方法安排：先安排结束时间早的活动；若有多个活动的结束时间相同，则优先安排占用时间少的活动。要求编写一个VB程序，实现上述功能。在文本框Text1中输入一批数据（数据都用逗号分隔并以逗号结尾），奇数位置数据表示某活动的起始时间，偶数位置数据表示该活动的结束时间，单击“确定”按钮Command1后，在列表框List1中显示各活动的起始和结束时间，在列表框List2中显示选择安排的活动。运行界面如图所示。

（1）要清空Text1中的内容，可以把Text1对象的_________属性设置为空值。（单选，填字母：A．Caption / B．Text / C．Text．Clear）。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
（3）程序加框处的代码有误，请改正。
Private Sub Command1_Click()
Const n = 100
Dim ss As String, t As String, i As Integer
Dim k As Integer, p As Integer, temp As Integer
Dim s(1 To n) As Integer, f(1 To n) As Integer
Dim num(1 To n) As Integer, flag(1 To n) As Boolean
ss = Text1．Text
starttime = 480: endtime = 720 '教室可以安排活动时间为8:00到12:00
k = 0: p = 0
For i = 1 To Len(ss)
ch = Mid(ss, i, 1)
If ch <> "," Then
t = t + ch
Else
____①
p = (k - 1) \ 2 + 1
If k Mod 2 = 1 Then s(p) = convert(t) Else f(p) = convert(t)
t = ""
End If
Next i
For i = 1 To p
num(i) = i
Next i
For i = 1 To p
List1．AddItem Str(num(i)) + "     " + ff(s(i)) + "     " + ff(f(i))
Next i
For i = 1 To p - 1
For j = p To i + 1 Step -1
If Then____
      temp = num(j): num(j) = num(j - 1): num(j - 1) = temp
      temp = s(j): s(j) = s(j - 1): s(j - 1) = temp
      temp = f(j): f(j) = f(j - 1): f(j - 1) = temp
End If
Next j
Next i
For i = 1 To p
If s(i) >= starttime And f(i) <= endtime Then
flag(i) = True
____②
End If
Next i
List2．AddItem "活动号 起始时间 结束时间"
For i = 1 To p
If____③ Then
List2．AddItem Str(num(i)) + "      " + ff(s(i)) + "     " + ff(f(i))
End If
Next i
End Sub
Function convert(s As String) As Integer
'把时间格式的s转换为整数，如"08:20"转化为500。代码略
End Function
Function ff(t As Integer) As String
'把整数t转换为时间格式，如500转化为"08:20"。代码略
End Function

一个弹球会发出红、绿或蓝三种单色光。 发着光的弹球从高处垂直下落，触地会垂直弹起，且弹起时发光颜色会变化。 假设弹球下落高度为 h, 触地前发红光、绿光、蓝光时，反弹高度分别为0.8h、0.6h、0.5h。 触地若干次后，弹球弹起时不再发光。观察弹球的发光颜色变化，并用字符串记录，其中每个字符表示弹球一次触地前的发光颜色（字符R、G、B 分别表示红、绿、蓝）。编写一个程序，计算弹球发光状态下的运动轨迹长度。
(1)请根据运行结果，完善下面的代码


h=_________________①
s=input('触地前的发光颜色变化:')
d={'R':0.8,'G':0.6,'B':0.5}
sum=h
for i in range(1,len(s)):
________②
       h=d[c]*h
       sum=____________③
print('弹球发光状态下的运动轨迹长度:'+str(sum))
(2)请结合题目描述和程序代码判断这是哪种算法______(单选，填字母：A.解析算法/B.枚举算法)

某景区渡口游客可乘船往返于河的两岸，有m个人自河东去河西，n个人自河西返回河东。现有一艘船，最大载重量为wt，最多可同时载两人，船自河东出发，最后返回河东。所有人的体重不会超过wt，求把所有人载过河所需最少往返次数。

编写一个VB程序，实现上述功能。程序运行时，在列表框List1中显示所有游客的体重和去向(W表示往西、E表示往东)，如“132E”表示体重为132往东。单击“统计”按钮Command1，在标签Label1中显示最少往返次数。程序运行界面如图所示。

(1)VB语句"List1.AddItem"中AddItem是__________(单选，填字母：A.对象名/B.方法名/C.属性名)。
(2)实现上述功能的VB程序如下，请在划线处填入合适代码。
(3)程序加框处的代码有误，请改正。
Const m=6,n=8, wt = 200
Dim d(1 To m + n) As String, a(1 To m + n) As Integer
Private Sub Form_ Load()
'读取m+n个人的体重及去向数据存入d数组，代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, p As Integer, q As Integer, s As String
Dim num As Integer, numl As Integer, num2 As Integer
以下代码实现从d数组中提取每个人的体重数据，根据去向分段存入a数组
p= 1:q=_____
For i= 1 To m+ n

s = Mid(d(i), 1, Len(d(i))- 1)

If Mid(d(i)，____, 1)= "W" Then

a(p)=' Val(s):p=p+ 1

Else

a(q)= Val(s):q=q+ 1

End If

Next i
numl = GetNum(1, m)
num2 = GetNum(m+ 1, m + n)
If num1 > num2 Then

num = numl

Else

num = num2

Labell.Caption = "过河需要最少往返次数: " + Str(num)
End Sub
Function GetNum(head As Integer, tail As Integer) As Integer
Dim i As Integer, j As Integer, k As Integer, cnt As Integer, t As Integer
以下代码实现对数组a降序排序
i= head
Do While i< tail

k=i: i= tail

For j=______

If a(j- 1) < a(j) Then

t= a(j): a(j)=a(j- l):a(j- 1)= t

i=j

End If

Next j
Loop
cnt=0:i= head:j= tail
Do While i<= j

If _____

Then j=j-1

cnt= cnt+1:i=i+1

Loop
GetNum = cnt
End Function

用 VB 编写字符串“密码破译”程序， 其功能如下： 在文本框 Text1 中输入任意一串字符串,字符串长度为n*n（n 为自然数）， 单击“解密”按钮 Command1，在文本框 Text2 中输出解锁密码。解锁密码破译步骤如下： 将字符依次存储到数组a 中， 存储方式从左下向右上， 平行于矩阵的对角 线依次进行存储，以长度为 36 的字符串“Tolerance is the mental,YouSheng 优胜一筹”为例， 数组 a 元素对应的赋值情况如图a 所示； 将对角线字符从右上向左下依次相连即为解锁密码。程 序运行效果如图b 所示。


实现上述功能的 VB 程序如下，请回答下列问题：
(1)若输入的字符串内容为“abcdefghijklmnopqrstuvwxy”，则破译后的解锁密码为______________。
(2) 请在划线处填写合适代码，使程序正常运行。
Private Sub Command1_Click()
Const n = 6
Dim a(1 To n * n) As Integer
Dim b(1 To n * n) As String
Dim i As Integer, j As Integer, k As Integer, s As String
Dim zf As Integer '变量 zf 存储数组 a 元素的值
Dim xb As Integer '变量 xb 存储数组 a 的下标
Dim p As Integer
For i = 1 To Len(Text1.Text)        

b(i) = Mid(Text1.Text, i, 1)

Next i
k = 1
For i = 1 To n          

k = k + (i - 1)

zf = k

①__________

a(xb) = zf

p = i + 1

For j = 2 To n

If j <= n - i + 1 Then

zf = zf + p

a(xb + j - 1) = zf

p = p + 1

Else

②__________

zf = zf + p

a(xb + j - 1) = zf

End If

Next j

Next i
For i = 1 To n

s = s +__________③          

Next i
Text2.Text = s
End Sub

小红制作主题为“文明出行”的多媒体作品。

（1）使用Photoshop软件编辑“文明出行.psd”文件，当前状态如图a所示，以下操作可行的有______（多选，填字母）。
A.设置“小孩”图层的图层样式
B.利用“油漆桶工具”直接修改“文字”图层中的文字颜色
C.设置“礼让行人”图层的滤镜效果
D.直接更改“背景”图层的不透明度
“Main”场景的制作脚本如下表所示。

场景名：Main	类别序号：2	进入方式：来自Load场景，通过“Play”按钮进入
呈现方式：1.“声音”图层中声音素材为sound.mp3文件2.“小孩”图层中的小孩从左向右移动3.“汽车”图层中的汽车从远到近、由小变大移动4.“重播”按钮位于舞台右下角，单击该按钮返回本场景第1帧开始播放（其他略）			呈现顺序说明：1.动画开始1秒后，小孩出现，声音随之响起，并持续到最后1帧停止播放（其他略）

使用Flash软件编辑“文明出行.fla”文件的部分界面如图b所示，回答下列问题：

（2）测试影片时，首先播放的场景是_______（填场景名）。
（3）为了使“小孩”图层中的动画符合脚本要求，正确的操作是_______。
（4）“汽车”图层关键帧中的对象是由“汽车”元件生成的实例，则该图层第1帧到第48帧的补间类型是_________（选填“逐帧动画/动画补间/形状补间”）。
（5）根据脚本，“重播”按钮上的动作脚本正确的有_______（多选，填字母）。
A.on(press)｛Play(1)；｝
B.on(release)｛Play(“Main”，1)；｝
C.on(release)｛gotoAndPlay(“Main”，1)；｝
D.on(press)｛gotoAndPlay(1)；｝
E.on(release)｛getURL(“Main”)；｝

写程序，实现如下功能：输入一个十六进制数，输出该十六进制数对应的十进制数。程序运行效果如下图所示。

实现上述功能的程序如下，请回答下列问题：
s＝input(″请输入十六进制数：″)
b＝len(s)
flag＝True
ans＝0
for i in range(0，b)：
　 c＝s[i]
　 if c>＝″0″and c<＝″9″：
        ans＝ans*16＋ord(c)－ord(″0″)
　 elif c>＝″A″ and c<＝″F″：
        ______①______
　 else：
        ______②______
break
if flag：
　 print(s，″H→″，str(ans)，″D″)
else：
　 print(″输入有误！″)
(1)程序运行时，输入″10D″，输出的结果为____________。
(2)请在程序划线处填入合适的代码。
划线①处应填入的语句为：______________；
划线②处应填入的语句为：_______________。