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

8

8

種。
（2）實現上述功能的 VB 程序如下，運行結果如圖所示，請在橫線處填入合適的代碼。
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