请回答下列问题：
移红包规则：
①编号为1的堆上的红包，只能移到编号为2的堆上；
②编号为n的堆上的红包，只能移到编号为n-1的堆上；
③其它堆上的红包，可以移到相邻左边或右边的堆上。
现要求找出最少的移动次数使每堆的红包数-样多。如图所示，在文本框Text1中输入红包堆数n，在文本框Text2中依次输入每堆红包的红包个数（以“，”为分隔符和结束符），单击“移红包次数统计”按钮Command1后，在标签Labe13中显示最少的移动次数。
Const Sum = 40 ‘红包总个数
Private Sub Command1_Click()
Dim n As Integer ‘红包的堆数
Dim s As String, k As Integer
Dim avg As Integer '最终每堆的红包个数
Dim ml As Integer, m2 As Integer
Dim tmp As Integer, count As Integer, ans As Integer
n=
s = Text2. Text
avg=Sum/n
tmp=0：count=0：ans=0
For k=1 To Len（s）
c = Mid（s， k， 1）
If c <>”，”Then
tmp =
Else
count = count + 1
If count = 1 Then
m1 =tmp
Else
m2 = tmp
If m1 <> avg Then
m2=m2-（avg-m1）
ans=ans+1
End If
End If
tmp=0
End If
Next k
Labe13. Caption = Str （ans）
End Sub
|
场景名： main |
类别序号： 1 |
进入方式：来自“片头”场景，通过“进入”按钮进入 |
|
呈现方式： ①“季军"文字变为“亚军"文字，“亚军"文字变为“冠军”文字，时长4秒。 ②季军从舞台外从右到左移动，移动效果2秒。 ③亚军从舞台外从左到右移动，移动效果2秒。 ④冠军从舞台外从左到右移动，移动效果2秒。 ⑤"播放"按钮位于舞台右侧，单击该按钮可使停止的动画继续播放。 |
呈现顺序： ①“开始出现背景，文字， 按钮，声音响起。 ②一开始出现季军动画 ③2秒后出现亚军动画 ④4秒后出现冠军动画 ⑤动画播放到约2秒、 约4秒处停止播放。 |
|
作品的main场景如下图所示，请回答以下问题。
