|
图a |
|
图b |
|
图c |
图d
|
模块名:“Main” |
类别序号:2 |
进入方式:单击“load”场景“播放”按钮进入 |
|
呈现方式: ⒈背景图片和音乐同时播放,一直持续到场景动画结束。 ⒉玉琮1、玉琮2、玉琮3由小到大,淡入到舞台。 ⒊文字内容发生变化 ⒋重播按钮出现在舞台右下角,单击按钮,停止播放声音并转到Load场景第1帧继续播放 |
呈现顺序说明: ⒈一开始就出现背景图片,播放音乐 ⒉约0.5秒后,依次出现玉琮1、玉琮2、玉琮3动画。 ⒊约1秒后,依次出现两段文字动画。 ⒋最后出现“重播”按钮,动画停止 |
|
根据制作脚本要求,“main”场景的时间轴如下图所示
请回答下列问题:
①根据脚本要求,“玉琮1”图层的第20帧上实例的Alpha值为(单选填字母:A . 0% B . 100%)
②场景动画结束时音乐仍在继续播放,则表明声音的同步方式为
③测试影片,发现“重播”按钮一开始就出现在舞台,为让其符合制作脚本要求,该如何进行修改?
④根据制作脚本要求,“重播”按钮上应添加的动作脚本为
Dim class(1 To 30) As Integer '存放班级序号的数组定义为class
Dim score(1 To 8) As single '存放班级各评委打分的数组定义为score
Private Sub Formload() '提取某班级的评委打分
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + App.Path + "\bbygs.accdb "
conn.Open
Set rs.ActiveConnection = conn
rs.Open "SELECT * FROM score "
n = 0
Do While Not rs.EOF '到最后一条记录后退出循环
n = n + 1
class (n) = rs.Fields("班级序号").Value
score (n) = rs.Fields("评委打分").Value
rs.MoveFirst '①指针移动到下一条记录
Loop
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
for i=1 to n
List1.AddItem str(score(i))
Next i
End sub
Private Sub Command1Click()
Dim i as integer
Dim j as integer
Dim t as single
For i = 1 to 8 For j=1 to i If ② then t=score(j) score(j)=score(j+1) score(j+1)=t End if Next j Next i |
For i=1 to 8
List2.AddItem str(score(i))
Next i
End sub
Private Sub Command2Click() '计算班级平均得分
Dim i As Integer
Dim sum As single
For i=2 to 7
sum=sum+score(i)
Next i
Text1.text= ③
End sub
①删除前10秒的声音数据
②将左声道设置为静音
③保存处理后的音频文件
则处理后的音频文件存储容量约是原文件的( )
①数字技术②电话电报技术 ③IP技术 ④VR技术 ⑤AI技术 ⑥光纤通信技术
计算机网络、移动通信网络及广播电视网络的技术功能逐步趋于一致,业务范围趋于相同,并出现融合的趋势,其中起主要作用的技术有( )
m=5
sum=0
while m<10:
sum=sum+m
m=m+1
print(sum)
程序运行后输出的结果为:( )