在n個(gè)（1≤n≤15）一連串的方格內(nèi)填寫字母A或B，但相鄰兩格內(nèi)不能都填B，求所有可能的填寫方案數(shù)。例如當(dāng)n=3，可能的方案有AAA、AAB、ABA、BAA、BAB等5種。
麗華設(shè)計(jì)如下算法：考慮到方案中只包含了A與B兩個(gè)字母，可以用二進(jìn)制的0和1來代替（0表示A，1表示B）。當(dāng)全部是0時(shí)最小，此數(shù)0；當(dāng)全部是 1 時(shí)此數(shù)最大。枚舉0到最大數(shù)的每一種情況，逐一判斷是否包含B相連（二進(jìn)制數(shù) 1 相連）情況，符合條件的0、1 轉(zhuǎn)為 A、B后輸出。
根據(jù)以上算法思想，麗華使用 VB程序編寫了一個(gè)程序來解決這個(gè)問題。在文本框Text1中輸入n的值，點(diǎn)擊“尋找方案”按鈕 Command1后，在列表框 List1中輸出所有的方案，在標(biāo)簽 Label3 中顯示方案總數(shù)。
（1）如果輸入的n值等于4，那么所有可能的方案有

8

8

種。
（2）實(shí)現(xiàn)上述功能的 VB 程序如下，運(yùn)行結(jié)果如圖所示，請?jiān)跈M線處填入合適的代碼。
Private Sub Command1_Click（　?。?br />Dim n As Integer,t As Integer,i As Integer,j As Integer,k As Integer
Dim flag as Boolean,ans As Integer
Dim a（1 To 15）As Integer
n=Val（Text1．Text）
For i=0 To 2^n-1
t=i
For j=1 To n
a（j）=t Mod 2
t=t\2
Next j
flag=True
For k=1 To n-1
If①Then flag=False
Next k
If flag Then②：ans=ans+1
Next i
Label3．Caption=″可能方案共″+Str（ans）+″種″
End Sub
Function GetStr（x As Integer,n As Integer） As String
Dim m As Integer,i As Integer
GetStr=″″
m=x
For i=1 To n
If m Mod 2=0 Then
GetStr=″A″+GetStr
Else
GetStr=″B″+GetStr
End If
 ③
Next i
End Function