Dim a(1 To 5) As Integer

Dim f As Boolean

a(1) = 23: a(2) = 12: a(3) = 56: a(4) = 34: a(5) = 10

i = 1: f = True

Do While i <= 5 And f = True

  If a(i) = 56 Then f = False

  i = i + 1

Loop

Label1.Caption = i

程序界面如图所示，当单击“求解”按钮Command1时，在列表框List1中显示所有满足条件的组合。

程序代码如下，请在划线处填上合适的代码。

Dim a(0 To 9) As Integer

Private Sub Command1_Click()

 Dim i, n, m As Integer

 For i = 123 To 333

  For n = 1 To 9

   a(n) = 0

 Next n

 s = 0

 call fenjie (i)    ‘使用call调用自定义过程,下同

 call fenjie (2 *i)

 call fenjie (3 *i)

 For m = 1 To 9

  s ={#blank#}1{#/blank#}

 Next m

  If s = 9 Then List1.AddItem i & “ ” & 2 * i & “ ” & 3 * i

 Next i

 End Sub

Sub fenjie(x As Integer)    ‘自定义过程,将3位数分解并修改对应下标元素的值

 a(x Mod 10) = 1

 {#blank#}2{#/blank#}

 a(x \ 100) = 1

End Sub

实现上述功能的VB代码如下，但加框处代码有错，请改正。

Private Sub Command1_Click()

Dim a(1 To 999) As Integer

Dim n As Integer

Dim s As String

For i=1 To 999

 a(i)=0

Next i

n=Val(Text1.Text)

s =“”

Do While n<>1     ‘分解质因子过程并统计质因子出现次数

For i = 2 To n

 Do While n Mod i = 0

  s = s&“  ”&i

  a(i)= a(i)+1

       ‘①

 Loop

Next i

Loop

Label4.Caption =“质因子分解过程:” +s

For j = 2 To 999     ‘判断是不是漂亮数

 If Then      ‘②

  Label1.Caption = “不是漂亮数”

  Exit For

 Else

  Label1.Caption =“漂亮数”

  End If

Next j

For j = 2 To 999     ‘在列表框输出质因数及对应的乘方数

 If a(j)>0 Then

  List1.Additem Str(j)+“ ”+Str(a(j))

 End If

Next j

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#} 

移牌规则：在编号为①的堆上取的纸牌，只能移到编号为②的堆上;在编号为N(N≥2)的堆上取的纸牌，只能移到编号为N-1的堆上;其他堆上取的纸牌，可以移到相邻左边或右边的堆上。

现在要求找出一种移动方法，用最少的移动次数使每堆上纸牌数都一样多。

例如N=4，4堆纸牌数分别为：

移动3次可达到目的：从③取4张牌放到④(9 8 13 10)→从③取3张牌放到②(9 11 10 10)→从②取1张牌放到①(10 10 10 10)。

现编写如下代码解决4堆任意张数牌的移动问题，请按提示补充划线句的代码：

Private Sub Command1_Click()

Dim aver As Single

Dim st As Integer     ‘统计移动的步数

Dim ssum, i, j As Integer

Dim a( 1 To 100) As Integer

a(1) = Val(Text1.Text)     ‘读取各堆牌张数,求总张数aver

a(2) = Val(Text2.Text)

a(3) = Val(Text3.Text)

a(4) = Val(Text4.Text)

ssum =a(1) + a(2) + a(3) + a(4)

aver=ssum \ 4     ‘求牌的平均张数aver

For i=1 To 4

  ① 

Next i

i=1     ‘过滤初端和末端的0

j = 4

Do While a(i) = 0 And i < 4

 i=i+1

Loop

Do While a(j) = 0 And j > 1

 j = j-1

Loop

st = 0

Do While i < j      ‘开始移动牌使数组a元素值均为0并过滤掉

  ② 

 a(i) = 0

 st = st + 1

 i=i+1

 Do While a(i) = 0 And i<j      ‘过滤掉数组a元素值均为0

   ③ 

 Loop

Loop

Print st      ‘输出移动次数

End Sub