题目

均分红包。当前有n堆红包，编号为1，2， 3， 。。 n，每堆有若干个红包，红包总数sum是n的倍数。可以在任一堆上取若干个红包，然后移动，最终使每堆上的红包个数相同。 移红包规则： ①编号为1的堆上的红包，只能移到编号为2的堆上； ②编号为n的堆上的红包，只能移到编号为n-1的堆上； ③其它堆上的红包，可以移到相邻左边或右边的堆上。 现要求找出最少的移动次数使每堆的红包数-样多。如图所示，在文本框Text1中输入红包堆数n，在文本框Text2中依次输入每堆红包的红包个数（以“，”为分隔符和结束符），单击“移红包次数统计”按钮Command1后，在标签Labe13中显示最少的移动次数。 （1） 代码“Private Sub Command1_ Click() ”中的Click是（单选，填字母： A . 对象名；B . 事件名；C . 事件处理过程名；D . 方法名） （2） 实现上述功能的VB程序如下，请在划线处填入合适的代码。 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 答案： 【1】B 【1】Val（Text1.text）【2】tmp*10+Val（c）【3】m1=m2

查看本题答案和解析