学进去

移牌问题。小张在和室友玩新式桥牌游戏，为了加快分牌的速度，小张先将sum张牌大致分成n堆，编号分别为1，2，3，．．．．．．，n，且sum是n的倍数，然后再进行移牌，最终使每堆的张数相同。

移牌规则：

①编号为1的堆上的纸牌，只能移到编号为2的堆上；

②编号为n的堆上的纸牌，只能移到编号为n-1的堆上；

③其他堆上取的纸牌，可以移到相邻左边或右边的堆上。

现要求找出一种移动方法，用最少的移动次数使每堆的纸牌数一样多，如图所示，单击“发牌”按钮后，生成8组数据，点击“移牌统计”按钮，在label1中显示移牌次数

（1）52张牌随机分发给4个人13，12，2，25，则需要移动________次才能均分52张牌给4个人。
Const n=8
Const sum=104
Dim a(n) As Integer
Private Sub deal_Click()    ‘发牌过程
Text1.Text = ""
k = sum
For i = 1 To ________    
a (i) =   ① 
Text1.Text = Text1.Text & a(i) & ","
k = k - a(i)
Next i a(i) = k
Text1.Text = Text1.Text & a(i)
End Sub
Private Sub cut_Click()    ‘移牌统计过程
Dim avg As Integer
Dim c As Integer
avg=sum / n
c=0
For i = 1 To n – 1
If a(i) < > avg Then
a(i + 1) =________  
c = c + 1
End If
Next i
Label1.Caption = Str(c)
End Sub
（2）填写横线处的代码。
（3）根据①处语句，若第1次生成随机数是13，则下一次随机数生成区间为________。