現(xiàn)有如下問題，在一個 6×6 的跳棋棋盤上放置 6 個棋子，使得每行、每列，每條斜線上至多有一個棋子，請問有幾種不同的擺法。為了方便處理，可將棋盤模擬成 6*6 的正方形矩陣，如圖1所示。該矩陣中從左往右列號依次 1，2，3，4，5，6，從上往下行號依次為 1，2，3，4，5，6。若在位置（1，2）（指第一行第二列）中放置了一個旗子，則第一行，第二列以及該位置所在的左斜線與右斜線均無法放置其他棋子。
解決該問題的算法思想如下：

①從第一行開始逐行放置棋子。
②每行從左到右逐列嘗試放置棋子，放置之前與已放置的棋子作比對。
③若無沖突，放置該行棋子并跳轉(zhuǎn)至下一行。
④若有沖突，則在本行中向右繼續(xù)尋找放置棋子的位置，若找不到則返回上一行，重新尋找棋子放置位置。
⑤最后一行放置結(jié)束，輸出一種方案并繼續(xù)尋找下一方案。用 VB 程序?qū)崿F(xiàn)該算法，程序界面設(shè)計如圖2所示。
（1）若第一行的棋子放置在第三列，則第二行不能放置棋子的列的數(shù)量為 

3

3

。（填個數(shù)）
（2）實現(xiàn)上述功能的 VB 程序如下，請在橫線處填入合適的代碼。
Const n=6
Dim a（1 To n） As Integer
Dim m As Integer
Private Sub Command1_Click

（　?。?/div>

（　　）

Dim i As Integer,j As Integer
m=0
For i=1 To n
a（i）=0'a（i）存儲第 i 行放置棋子的列號
Next i
For i=1 To n+1
If i=n+1 Then'所有行棋子放置完畢，輸出一種方案
m=m+1
s=““
For j=1 To n
s=s+Str（j）+“：“+Str（a（j））+“|“
Next j
List1．AddItem s
i=i-2
Else'尋找下一行棋子放置位置
j=a（i）+1
Do While j＜=n And check（i,j）=False

j=j+1

j=j+1

Loop
If j＜=n Then
a（i）=j
Else
a（i）=0

i=i-2

i=i-2

If i＜0 Then Exit For
End If
End If Next i
Label1．Caption=“共有“+Str（m）+“種方案“End Sub
'判斷當前放置的棋子與已放置有無沖突
Function check（i As Integer'j As Integer） As Boolean
check=True
For k=1 To i-1
If a（k）=j Or j+i=a（k）+k Or 

j-i=a（k）-k或i-j=k-a（k）

j-i=a（k）-k或i-j=k-a（k）

 Then
check=False
End If
Next k
End Function