求助数度九宫格答案

来源：百度知道 编辑：UC知道 时间：2024/06/23 03:19:44
***7**1**
*12*5**3*
4***2**7*
***6****9
*38*4*76*
1********
*4**8***2
*9**1*85*
**3**6***
实在是填不出来，多拜托！！首次提问，见谅！

有且只有一组解：
385769124
712854936
469123578
254671389
938245761
176938245
541387692
697412853
823596417

附上原创版VB的源代码：
============clsNum.cls=================
Private mvarCan1 As Boolean
Private mvarCan2 As Boolean
Private mvarCan3 As Boolean
Private mvarCan4 As Boolean
Private mvarCan5 As Boolean
Private mvarCan6 As Boolean
Private mvarCan7 As Boolean
Private mvarCan8 As Boolean
Private mvarCan9 As Boolean

Public Property Get OnlyNum() As Integer
If NumOfCans <> 1 Then
OnlyNum = 0
Else
OnlyNum = -(mvarCan1 + 2 * mvarCan2 + 3 * mvarCan3 + 4 * mvarCan4 + 5 * mvarCan5 + 6 * mvarCan6 + 7 * mvarCan7 + 8 * mvarCan8 + 9 * mvarCan9)
End If
End Property

Public Property Get NumOfCans() As Integer
NumOfCans = -(mvarCan1 + mvarCan2 + mvarCan3 + mvarCan4 + mvarCan5 + mvarCan6 + mvarCan7 + mvarCan8 + mvarCan9)
End Prope