(计算规则：销售占比(%)=各品牌总销售量/所有品牌总销售量×100)
|
模块名：“Main” |
类别序号：2 |
进入方式：单击“load”场景“播放”按钮进入 |
|
呈现方式： ⒈背景图片和音乐同时播放，一直持续到场景动画结束。 ⒉玉琮1、玉琮2、玉琮3由小到大，淡入到舞台。 ⒊文字内容发生变化 ⒋重播按钮出现在舞台右下角，单击按钮，停止播放声音并转到Load场景第1帧继续播放 |
呈现顺序说明： ⒈一开始就出现背景图片，播放音乐 ⒉约0.5秒后，依次出现玉琮1、玉琮2、玉琮3动画。 ⒊约1秒后，依次出现两段文字动画。 ⒋最后出现“重播”按钮，动画停止 |
|
根据制作脚本要求，“main”场景的时间轴如下图所示
请回答下列问题：
①根据脚本要求，“玉琮1”图层的第20帧上实例的Alpha值为(单选填字母：A . 0% B . 100%)
②场景动画结束时音乐仍在继续播放，则表明声音的同步方式为
③测试影片，发现“重播”按钮一开始就出现在舞台，为让其符合制作脚本要求，该如何进行修改？
④根据制作脚本要求，“重播”按钮上应添加的动作脚本为
Private Sub Command1_Click()
Dim n As Integer, i As Integer
Dim s As Integer, x As Integer, f As Boolean
n= Val(Text1.Text)
f= False: s=0
i=2
Do While ①
For x=2 To i\2
If i Mod x=0 Then Exit For ‘Exit For用于退出For循环
Next x
If ② Then
s=s+1
If 
Then ‘③
Label1.Caption= "第"& Str(n) & "个素数为:"& Str()
f= True
End If
End If
i=i+1
Loop
End Sub
① ②
①取字符串的首字符为压缩后的第一个字符。
②统计该字符连续的个数，两者间使用逗号分隔。
③按此方法进行后续字符的压缩，各段压缩结果用“/”分隔。
④重复上述过程，直到将所有字符压缩完成。
例如：字符串"1100000000000011110"压缩后的字符串为"1,2/0,12/1,4/0,1/"。依据上述描述编写VB程序，实现此算法的解压缩功能：在文本框Text1中输入待解压缩的字符串，单击“解压缩”按钮，在文本框2中输出解压缩的字符串。运行效果如下图所示。
Private Sub Command1_Click()
Dim i As Integer, x1 As Integer, x2 As Integer, s As String
Dim ch As String, result As String
s= Text1.Text
i= 1: result =”
Do While i<= Len(s)
①
If ch< "O" Or ch> "9" Then
If ch= "/" Then
x2 = tmp
For j=1 To x2
result = result & CSstr(x1) ‘Cstr函数的功能是将数字转为字符串
Next j
Else
②
End If
tmp= 0
Else
③
End If
i=i+ 1
Loop
Text2.Text = result
End Sub
① ② ③
