| 场景：片头 | 类别序号：1 |
| 进入方式：运行文件直接进入 | |
| 呈现方式： ⒈“童”和“趣”两字依次由舞台外从上而下，从小变大进入，并排停在舞台中。 ⒉“Play”按钮出现在舞台右下方，单击“Play”按钮，将从“草原”场景第1帧开始播放。 | 呈现顺序说明： ⒈一开始同时出现背景声音和“童”动画。 ⒉“童”动画结束开始“趣”动画。 ⒊最后出现“Play”按钮，并停止播放。 |
合并规则如下：
⑴当字符串1的长度大于字符串2的长度时，将字符串2中的各个字符从左侧依次插入到字符串1中的各字符后方。例如字符串1为“abcdef”，字符串2为“123”时，合并后的字符串为“a1b2c3def”
⑵当字符串2的长度大于等于字符串1的长度时，将字符串1中的各个字符从右侧依次插入到字符串2中的各个字符后方。例如字符串1为“abcd”，字符串2为“12345”时，合并后的字符串为“12d3c4b5a”。
程序运行界面如图所示。
Private Sub Commandl_Click ()
Dim sl As String, s2 As String, ans As String
Dim n As Integer, m As Integer, i As Integer
s1=Text1. Text
s2=Text2. Text
m=Len (s1)
n=Len (s2)
If m＞n Then
For i=1 To n
ans=ans+Mid (sl, i, 1)+Mid (s2, i, 1)
Next i
ans=ans +Mid (sl, i, m-n)
Else
For i=1 To m
ans= ① +Mid (s1, i, 1)+ans
Nest i
ans=Mid (s2, 1, n-m)+ans
②
Label3. Caption=“合并为”+ans
End Sub
① ②
