小明在玩翻轉(zhuǎn)棋盤的游戲，游戲規(guī)則是在一個(gè)4×4的棋盤中挑選棋子（棋子只有黑白兩面），對(duì)于每顆被挑選的棋子，要將該棋子和它在棋盤上的上下左右4個(gè)相鄰位置上的棋子一起翻轉(zhuǎn)，若某個(gè)方向上無棋子，則不作處理，最后使得棋盤純色（純白或純黑）。如圖a所示的棋盤，需要選擇第2行第2列、第4行第2列兩顆棋子，按照規(guī)則進(jìn)行翻轉(zhuǎn)便可使得棋盤變?yōu)榧兒凇，F(xiàn)編寫程序找出實(shí)現(xiàn)棋盤純色所需翻轉(zhuǎn)棋子次數(shù)最少的方案并輸出所挑選棋子的個(gè)數(shù)，若無答案則輸出“無法翻轉(zhuǎn)為純色”。

每顆棋子的顏色狀態(tài)可以用0、1來表示，0表示白，1表示黑，順序?yàn)閺淖笾劣遥瑥纳现料拢纾瑘Da中的棋子初始狀態(tài)可以表示為1011000111001。
每顆棋子的被選狀態(tài)也可以用0、1進(jìn)行標(biāo)記，0表示不選中，1表示被選中。例如，一個(gè)16位的二進(jìn)制串0000010000000100就表示該棋盤中的第2行第2列、第4行第2列這兩個(gè)棋子被選中，如果將該二進(jìn)制串轉(zhuǎn)化為十進(jìn)制數(shù)，即2¹⁰+2²=1028．整張棋盤的所有選棋子方案為0000000000000000-1111111111111111，也就是十進(jìn)制數(shù)0-65535利用枚舉算法在0-65535之間枚舉，即可找到最優(yōu)方案。程序運(yùn)行界面如圖b所示，請(qǐng)回答下列問題。
（1）若某方案用十進(jìn)制表示為137，則該方案總共選擇了

3

3

個(gè)棋子。
（2）實(shí)現(xiàn)上述功能的程序代碼如下，請(qǐng)將橫線處的代碼補(bǔ)充完整。
Dima（1To16）As Integer,b（1To16）As Integer,min_ c As Long’數(shù)組a儲(chǔ)存棋盤原狀態(tài)，數(shù)組b儲(chǔ)存翻轉(zhuǎn)后的棋盤狀態(tài)
Function check（　　） As Boolean'判斷棋盤是否純色
Dim flag As Boolean,i As Integer
flag=True
For i=1 To 15
If b（i）＜＞b（i+1）Then flag=False
Next i
check=flag
End Function
Private Sub Commandl _Click（　　）
Dim k As Integer,c As Integer,i As Long,j As Long
min_ c=17
For i=0 T0 2^∧16-1
For j=1To16′初始化棋盤
b（j）=a （j）
Next
k=16
c=0
j=i
Do Whilei＞0
If

①

①

Then
b（k）=1-b（k）
If k＞4 Then b（k-4）=1-b（k-4
If k＜13 Then b（k+4）=1-b（k+4）
Ifk Mod 4＜＞0 Then b（k+1）=1-b（k+1）
If

②

②

Then b（k-1）=1-b（k-1）
c+1
End If
j=j\2
k=k-1
Loop
If

③

③

Then
min _c=c
End If
Next i
If min_ c=17 Then Labell.Caption=“無法翻轉(zhuǎn)為純色!“Else Label1，Caption=Labell.Caption+Str（min_c）
End Sub
Private Sub Form_ Load（　　）
′生成棋盤狀態(tài)，用數(shù)組a（1）-a（16）表示，代碼略
For i=1 To 16
s=s+Str（a（i））
If i Mod 4=0 Then List1．AddItem s：s=″″
Nexti
End Sub