Private Sub Command1_Click()
Const st = "0123456789ABCDEF"
Dim s, ch, rs As String
Dim m, r1, r2, n As Integer
For i = 1 To Len(s)
ch = Mid(s,i,1)
If ch > "9" Or ch < "0" Then
r2 = m Mod 16
rs = rs + Mid(st, r1 + 1, 1) + Mid(st, r2 + 1, 1)
m = 0
Else
m = m * 10 + Val(ch)
End If
Next i
Text2.Text = "#" + rs
End Sub
图1
|
场景：片头 |
类别序号：1-1 |
|
进入方式：开始播放后直接进入 |
|
|
呈现方式： ⒈“背景”淡入，从完全透明到完全显示。 ⒉“五环”在舞台中央顺时针旋转1圈，从小变大，缩小移动到舞台左上角。 ⒊标题动画显示1遍后停留在舞台中央 ⒋“金牌”从舞台左侧进入舞台，运动员1和运动员2先后从舞台右侧进入舞台。 ⒌“播放”按钮出现在舞台右下方，单击“播放”按钮，调整并停止在“交互界面”场景第1帧。 |
呈现顺序说明： ⒈一开始背景淡入同时出现“音乐”。 ⒉第6帧显示“五环”动画。 ⒊五环完全显示后，开始显示影片剪辑“标题动画”的动画特效，随后，“金牌”、“运动员1”、“运动员2”依次从舞台外进入舞台。 ⒋最后时刻出现库中按钮元件“播放”的实例，并暂停播放。 |
图2
分析片头场景制作脚本，检查“片头”场景各图层，动画中元件的实例出现时间与脚本要求不符。
3图
第一步：区间中点m＝ 。
第二步：若f(a)·f(m)<0，则含零点的区间为[a，m]；否则，含零点的区间为[m，b），将新得到的含零点的区间仍记为[a，b]。
第三步：判断[a，b）的长度是否小于一个足够小的值d。若是，则m是方程的近似解；否则，返回第一步。
于是我们设计函数f(x)＝x2－c，用此算法求出任意非负常数c的非负平方根。程序运行效果如下图所示，程序中还输出了区间的左右端点和区间长度值。
实现上述功能的VB代码如下，但加框处代码有错，请改正。
Const min As Single = 0.00005
Dim c As Single
Function fn（x As Single）As single
fn = x*x - c
End Function
Private Sub Command1_Click() '按钮上的程序
Dim a , b , m As Single
c = Val(Text1.Text)
a = 0 : b = c
Do While b-a > min
‘(1)
List1.AddItem Str(a)&" "&Str(b)&" "&Str(b－a)
If 
Then ‘(2)
b = m
Else
a = m
End If
Loop
Label2.Caption = Str（m）
End Sub
以上程序段运行时，为了实现上述功能，加框处代码应改正为：
⑴；⑵。
实现上述功能的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 + "," + Str(c(i))
Next i
Text2.Text = s
End Sub
以上程序段运行时，为了实现上述功能，划线处应填入的代码为：
① ； ②； ③。
