個棋子。 (2)實現上述功能的程序代碼如下,請將橫線處的代碼補充完整。 Dima(1To16)As Integer,b(1To16)As Integer,min_ c As Long’數組a儲存棋盤原狀態,數組b儲存翻轉后的棋盤狀態 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=“無法翻轉為純色!“Else Label1,Caption=Labell.Caption+Str(min_c) End Sub Private Sub Form_ Load( ) ′生成棋盤狀態,用數組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