o(>﹏<)o在线等……人工顶

全填1.5
233333333333
　　　　------报告老板，据研表究明，汉字的序顺并不定一能影阅响读，比如当你看完这句话后，才发这现里的字全是都乱的。

4楼正解

1230
3012
0321
2103

增加一句
刚刚是我不对题目内容没说清楚
6L的解答不是我要的
请看图片

0123123023013012

这游戏我玩过。。。尼玛在纸上试了N次都没解出来，回头用VB才搞定。。。。后面还有N关，每天可以跳过1个关卡。。。

Dim Arr(1 To 4, 1 To 4) As Integer
Dim i1, i2, i3, i4, i5, i6, i7, i8 As Integer
Dim r1, r2, r3, r4, r5, r6, r7, r8 As Integer
Dim x1, x2, y1, y2 As Integer
Function PosX(i As Integer)
If i = 1 Or i = 2 Then
PosX = 1
ElseIf i = 3 Or i = 4 Then
PosX = 2
ElseIf i = 5 Or i = 6 Then
PosX = 3
ElseIf i = 7 Or i = 8 Then
PosX = 4
Else
PosX = -1
End If
End Function
Function Posy(i As Integer, r As Integer, n As Integer)
If i = 1 Or i = 3 Or i = 5 Or i = 7 Then
If r + n = 1 Or r + n = 3 Then
Posy = 1
ElseIf r + n = 2 Then
Posy = 2
Else
Posy = -1
End If
ElseIf i = 2 And i = 4 And i = 6 And i = 8 Then
If r + n = 1 Or r + n = 3 Then
Posy = 3
ElseIf r + n = 2 Then
Posy = 4
Else
Posy = -1
End If
Else
Posy = -1
End If
End Function
Private Sub Command1_Click()
For i1 = 1 To 8
For i2 = 1 To 8
If i2 <> i1 Then
For i3 = 1 To 8
If i3 <> i1 And i3 <> i2 Then
For i4 = 1 To 8
If i4 <> i1 And i4 <> i2 And i4 <> i3 Then
For i5 = 1 To 8
If i5 <> i1 And i5 <> i2 And i5 <> i3 And i5 <> i4 Then
For i6 = 1 To 8
If i6 <> i1 And i6 <> i2 And i6 <> i3 And i6 <> i4 And i6 <> i5 Then
For i7 = 1 To 8
If i7 <> i1 And i7 <> i2 And i7 <> i3 And i7 <> i4 And i7 <> i5 And i7 <> i6 Then
For i8 = 1 To 8
If i8 <> i1 And i8 <> i2 And i8 <> i3 And i8 <> i4 And i8 <> i5 And i8 <> i6 And i8 <> i7 Then
For r1 = 0 To 1
For r2 = 0 To 1
For r3 = 0 To 1
For r4 = 0 To 1
For r5 = 0 To 1
For r6 = 0 To 1
For r7 = 0 To 1
For r8 = 0 To 1
Call Fil
Call Cal
Next
Next
Next
Next
Next
Next
Next
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
Next
Text1.Text = X
End Sub

13L大神已解答，终结贴

四个角上3 0占满别的

编一个程序可以搞定。VB写的太坑了。还是用脚本写吧。