学进去

现有编号为A、B、D、H四种颜色由浅到深的小花，若要在n个盆中种植n株小花，每个盆种植一株，为使颜色搭配方案更加协调，需要遵守以下原则：

图a
①颜色浅的小花株数不能少于颜色深的小花株数，即数量要求A> = B>= D>= H。
②某些编号的小花可以不种植，但颜色必须协调，若种植编号为B的小花，则必须种植编号为A的小花；若种植编号为D的小花，则必须种植编号为B的小花；若种植编号为H的小花，则必须种植编号为D的小花。例如：种植4个盆，则AABH，BBDH为不可行方案。
③相同小花不同排列也视作不同方案，如AAAB与AABA是两种不同的方案
（1）当花盆个数为3个时，方案总数为____________个。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Const s = "ABDH"
Dim num(1 To 10)   As Integer
Private Sub Commandl_Click( )
Dim n As Integer, total As Integer
Dim flower(0 To 3) As Integer  'flower(0)存储编号为A的小花数量
Dim ans As String
n = Val(Text1, Text)
For i= 1 To n
ans = ans ＋ "A"
Next i
List1.AddItem ans
total = 1
For i= 1 To 4^▲n - 1
'初始化数组flower 的代码为0,代码略
ans ="":j =n
①______
Do While j > 1 And num(j) = 4
num(j - 1) = num(j - 1)+1
num(j) = 0
j=j - 1
Loop
'统计"A"、"B"、"H"每种小花出现的次数
For j =1 To n
②_______
Next j
If flower(0) >= flower(1) And flower(1) >= flower(2) And flower(2) > = flower(3) Then
ans = num2chr(n)
List1. AddItem ans
total = total＋1
End If
Next i
Label1. Caption = "共有:" + Str(total) + "种方案"
End Sub
Private Function num2chr( number As Integer) As String
For i = number To 1 Step - 1
num2chr =③______ ＋ num2chr
Next i
End Function