数独游戏

lingyuncelia · 发表于 2016-2-19 20:31

本帖最后由 lingyuncelia 于 2016-2-21 19:27 编辑

游戏规则自行百度。隐含对数法只能实现部分功能，其它功能多人验证，暂未发现问题。
如果有人能计算出正确答案，请发表，请共享！我与我周边的同事暂时未有人能破解。
哪位大神能破解？

bajifeng · 发表于 2016-2-19 21:20

以下所有代码放在模块1中：

Private Const SUDOKU_TITLE = "Su Doku "
Private Const SUDOKU_VERSION = " v1.1b"
Private Const SUDOKU_DATE = "Feb 2005"
Private Const SUDOKU_AUTHOR = "Andy Pope"
Private Const SUDOKU_DISPLAYGRID = "Grid"
Private Const SUDOKU_STORAGEGRID = "StorageGrid"
Private Const SUDOKU_SHEET = "SuDoku"
Private Const SUDOKU_MSG_BUILDPUZZLE = "Please wait whilst I generate a new puzzle"
Private Const SUDOKU_MSG_REVEALPUZZLE = "Please wait whilst the solution is revealed"
Private Const SUDOKU_MSG_SOLVEPUZZLE = "Please wait whilst I attempt to solve your puzzle"
Private Const SUDOKU_MSG_USERPUZZLE = "The puzzle appears to be user entered. Or contains incorrect answers." _
& vbLf & vbLf & "Press Yes to attempt to solve the puzzle" & _
vbLf & "No to reveal answer." & vbLf & "Or Cancel"
Private Const SUDOKU_MSG_CONTINUESOLVING = "This puzzle is taking a long while to solve. Do you wish to continue?"
Dim m_intGrid(81, 9) As Integer '(3x3) x 3 grids upto 9 values
Dim m_intSubGrid(9, 9) As Integer
Private Sub m_AssignCellValue(Cell As Integer, Value As Integer)
'
' Set specified cell to Value
'
Dim intIndex As Integer
For intIndex = 1 To 9
m_intGrid(Cell, intIndex) = -intIndex
Next
m_intGrid(Cell, 0) = Value
m_intSubGrid(m_GetSubGrid(Cell), Value) = Value
End Sub
Private Function m_AssignDisplay() As Range
'
' create pointer to Display grid
'
Set m_AssignDisplay = ThisWorkbook.Worksheets(SUDOKU_SHEET).Range(SUDOKU_DISPLAYGRID)
End Function
Private Function m_AssignStorage() As Range
'
' create pointer to Storage grid
'
Set m_AssignStorage = ThisWorkbook.Worksheets(SUDOKU_SHEET).Range(SUDOKU_STORAGEGRID)
End Function

复制代码

bajifeng · 发表于 2016-2-19 21:20

第二部分：

Private Function m_CanUse(Cell As Integer, Value As Integer) As Boolean
'
' Check whether using value in cell will allow related sub grids to place same value elsewhere
'
Dim intRow As Integer
Dim intCol As Integer
Dim blnAlternative As Boolean
intRow = m_WhichSubRow(Cell)
intCol = m_WhichSubCol(Cell)
Select Case intRow
Case 1
blnAlternative = m_AlternativeRowAvailable(2, Value)
blnAlternative = blnAlternative Or m_AlternativeRowAvailable(3, Value)
Case 2
blnAlternative = m_AlternativeRowAvailable(1, Value)
blnAlternative = blnAlternative Or m_AlternativeRowAvailable(3, Value)
Case 3
blnAlternative = m_AlternativeRowAvailable(1, Value)
blnAlternative = blnAlternative Or m_AlternativeRowAvailable(2, Value)
Case 4
blnAlternative = m_AlternativeRowAvailable(5, Value)
blnAlternative = blnAlternative Or m_AlternativeRowAvailable(6, Value)
Case 5
blnAlternative = m_AlternativeRowAvailable(4, Value)
blnAlternative = blnAlternative Or m_AlternativeRowAvailable(6, Value)
Case 6
blnAlternative = m_AlternativeRowAvailable(4, Value)
blnAlternative = blnAlternative Or m_AlternativeRowAvailable(5, Value)
Case 7
blnAlternative = m_AlternativeRowAvailable(8, Value)
blnAlternative = blnAlternative Or m_AlternativeRowAvailable(9, Value)
Case 8
blnAlternative = m_AlternativeRowAvailable(7, Value)
blnAlternative = blnAlternative Or m_AlternativeRowAvailable(9, Value)
Case 9
blnAlternative = m_AlternativeRowAvailable(7, Value)
blnAlternative = blnAlternative Or m_AlternativeRowAvailable(8, Value)
End Select
Select Case intCol
Case 1
blnAlternative = blnAlternative Or m_AlternativeColAvailable(2, Value)
blnAlternative = blnAlternative Or m_AlternativeColAvailable(3, Value)
Case 2
blnAlternative = blnAlternative Or m_AlternativeColAvailable(1, Value)
blnAlternative = blnAlternative Or m_AlternativeColAvailable(3, Value)
Case 3
blnAlternative = blnAlternative Or m_AlternativeColAvailable(1, Value)
blnAlternative = blnAlternative Or m_AlternativeColAvailable(2, Value)
Case 4
blnAlternative = blnAlternative Or m_AlternativeColAvailable(5, Value)
blnAlternative = blnAlternative Or m_AlternativeColAvailable(6, Value)
Case 5
blnAlternative = blnAlternative Or m_AlternativeColAvailable(4, Value)
blnAlternative = blnAlternative Or m_AlternativeColAvailable(6, Value)
Case 6
blnAlternative = blnAlternative Or m_AlternativeColAvailable(4, Value)
blnAlternative = blnAlternative Or m_AlternativeColAvailable(5, Value)
Case 7
blnAlternative = blnAlternative Or m_AlternativeColAvailable(8, Value)
blnAlternative = blnAlternative Or m_AlternativeColAvailable(9, Value)
Case 8
blnAlternative = blnAlternative Or m_AlternativeColAvailable(7, Value)
blnAlternative = blnAlternative Or m_AlternativeColAvailable(9, Value)
Case 9
blnAlternative = blnAlternative Or m_AlternativeColAvailable(7, Value)
blnAlternative = blnAlternative Or m_AlternativeColAvailable(8, Value)
End Select
m_CanUse = blnAlternative
End Function

复制代码

bajifeng · 发表于 2016-2-19 21:21

第三部分：

Private Function m_CompleteGrid() As Boolean
'
' Try and resolve grid
'
Dim intRow As Integer
Dim intCol As Integer
Dim intIndex As Integer
Dim intSubGrid As Integer
Dim intIndexRow As Integer
Dim intIndexCol As Integer
Dim intCell As Integer
Dim intUnique As Integer
Dim intValue As Integer
Dim intCellValues() As Integer
' Mark cells with values that are not available
For intSubGrid = 1 To 9
For intRow = 1 To 3
For intCol = 1 To 3
intCell = ((intRow - 1) * 3) + intCol
intIndex = m_GetCellIndex(intSubGrid, intCell)
If m_intGrid(intIndex, 0) <> 0 Then
intIndexRow = ((m_GetSubGridRow(intSubGrid) - 1) * 3) + intRow
intIndexCol = ((m_GetSubGridCol(intSubGrid) - 1) * 3) + intCol
m_ExcludeRowValue intIndexRow, m_intGrid(intIndex, 0)
m_ExcludeColValue intIndexCol, m_intGrid(intIndex, 0)
m_ExcludeValue intSubGrid, m_intGrid(intIndex, 0)
End If
Next
Next
Next
Do While m_Unsolved()
intUnique = m_GetUniquePosition(intValue)
If intUnique > 0 Then
intIndexRow = m_WhichSubRow(intUnique)
intIndexCol = m_WhichSubCol(intUnique)
m_AssignCellValue intUnique, intValue
m_ExcludeRowValue intIndexRow, m_intGrid(intUnique, 0)
m_ExcludeColValue intIndexCol, m_intGrid(intUnique, 0)
m_ExcludeValue m_GetSubGrid(intUnique), intValue
Else
' need to randomly pick a number
' use cell with least amount of choice
intCell = m_GetTestCell()
If intCell > 0 Then
m_GetTestValues intCell, intCellValues
For intIndex = 1 To UBound(intCellValues)
intValue = intCellValues(intIndex)
' test surrounding grids for alternatives
' if this value is used
If m_CanUse(intCell, intValue) Then
intIndexRow = m_WhichSubRow(intCell)
intIndexCol = m_WhichSubCol(intCell)
m_ExcludeRowValue intIndexRow, intValue
m_ExcludeColValue intIndexCol, intValue
m_AssignCellValue intCell, intValue
m_ExcludeValue m_GetSubGrid(intCell), intValue
Exit For
End If
Next
Else
m_CompleteGrid = False
Exit Function
End If
End If
Loop
m_CompleteGrid = True
End Function

复制代码

bajifeng · 发表于 2016-2-19 21:22

第4部分：

Private Sub m_ExcludeRowValue(Row As Integer, Value As Integer)
'
' Exclude this value from complete row
'
Dim intIndex As Integer
Dim intCell As Integer
intIndex = ((Row - 1) * 9) + 1
For intCell = intIndex To intIndex + 9 - 1
m_intGrid(intCell, Value) = -Value
Next
End Sub
Private Function m_AlternativeRowAvailable(Row As Integer, Value As Integer) As Boolean
'
' Check that the value has not yet been used
'
Dim intIndex As Integer
Dim intCell As Integer
Dim intCount As Integer
intIndex = ((Row - 1) * 9) + 1
For intCell = intIndex To intIndex + 9 - 1
If m_intGrid(intCell, Value) = Value Then
intCount = intCount + 1
End If
Next
m_AlternativeRowAvailable = (intCount > 1)
End Function
Private Function m_ValueInRow(Row As Integer, Value As Integer) As Integer
'
' Return number of occurances of value in a complete row
'
Dim intIndex As Integer
Dim intCell As Integer
Dim intCount As Integer
intIndex = ((Row - 1) * 9) + 1
For intCell = intIndex To intIndex + 9 - 1
If m_intGrid(intCell, 0) = Value Then
intCount = intCount + 1
End If
Next
m_ValueInRow = intCount
End Function
Private Sub m_ExcludeColValue(Col As Integer, Value As Integer)
'
' Exclude this value from complete Col
'
Dim intIndex As Integer
Dim intCell As Integer
intCell = Col
For intIndex = 1 To 9
m_intGrid(intCell, Value) = -Value
intCell = intCell + 9
Next
End Sub
Private Function m_AlternativeColAvailable(Col As Integer, Value As Integer) As Boolean
'
' Check that the value has not yet been used
'
Dim intIndex As Integer
Dim intCell As Integer
Dim intCount As Integer
intCell = Col
For intIndex = 1 To 9
If m_intGrid(intCell, Value) = Value Then
intCount = intCount + 1
End If
intCell = intCell + 9
Next
m_AlternativeColAvailable = (intCount > 0)
End Function
Private Function m_ValueInCol(Col As Integer, Value As Integer) As Integer
'
' Return occurances of value in complete column
'
Dim intIndex As Integer
Dim intCell As Integer
Dim intCount As Integer
intCell = Col
For intIndex = 1 To 9
If m_intGrid(intCell, 0) = Value Then
intCount = intCount + 1
End If
intCell = intCell + 9
Next
m_ValueInCol = intCount
End Function
Private Sub m_ExcludeValue(SubGrid As Integer, Value As Integer)
'
' Exclude this value from a subgrid
'
Dim intIndex As Integer
Dim intCell As Integer
For intIndex = 1 To 9
intCell = m_GetCellIndex(SubGrid, intIndex)
m_intGrid(intCell, Value) = -Value
Next
End Sub
Private Function m_GetAvailable(Cell As Integer) As Integer
'
' Return number of valid numbers avaiable for specific cell
'
Dim intIndex As Integer
If m_intGrid(Cell, 0) > 0 Then
m_GetAvailable = 0
Exit Function
End If
For intIndex = 1 To 9
If m_intGrid(Cell, intIndex) > 0 Then
m_GetAvailable = m_GetAvailable + 1
End If
Next
End Function

复制代码

bajifeng · 发表于 2016-2-19 21:22

第5部分：

Private Sub m_GetStartingGrid()
'
' Randomly select starting values
'
Dim strStartValues As String
Dim intSubGrid As Integer
Dim intReveal As Integer
Dim intIndex As Integer
Dim intRow As Integer
Dim intCol As Integer
Dim intIndexRow As Integer
Dim intIndexCol As Integer
Dim intValue As Integer
Dim rngDisplay As Range
Dim rngStorage As Range
Set rngDisplay = m_AssignDisplay()
Set rngStorage = m_AssignStorage()
Dim intNValues As Integer
Dim intValueStack(81) As Integer
Dim intNGrids As Integer
Dim intGridStack(81) As Integer
Dim intUseSubGrid As Integer
Dim intAttemptCount As Integer
' create an array of 3 copies of each number
Retry:
intValue = 1
intNValues = 36
intNGrids = 36
intValue = 1
For intIndex = 1 To intNValues
intValueStack(intIndex) = intValue
intGridStack(intIndex) = intValue
If intIndex Mod (intNValues / 9) = 0 Then intValue = intValue + 1
Next
ReDim blnReveal(9, 9) As Boolean
ReDim intRevealCount(9) As Integer
Dim intRevealGrid As Integer
Dim intGameLevel As Integer
intGameLevel = (intNValues / 9) + 1
' get first 34 values
Do While intNGrids > 0
intUseSubGrid = m_GetRandom(1, intNGrids)
intSubGrid = intGridStack(intUseSubGrid)
If intRevealCount(intSubGrid) < intGameLevel Then
Do
intReveal = m_GetRandom(1, intNValues)
intValue = intValueStack(intReveal)
If Not blnReveal(intSubGrid, intValue) Then
blnReveal(intSubGrid, intValue) = True
intRevealCount(intSubGrid) = intRevealCount(intSubGrid) + 1
intValueStack(intReveal) = intValueStack(intNValues)
intNValues = intNValues - 1
intGridStack(intUseSubGrid) = intGridStack(intNGrids)
intNGrids = intNGrids - 1
intAttemptCount = 0
Exit Do
Else
intAttemptCount = intAttemptCount + 1
If intAttemptCount = 100 Then
intAttemptCount = 0
GoTo Retry
End If
End If
Loop
Else
intAttemptCount = intAttemptCount + 1
End If
If intAttemptCount = 100 Then
intAttemptCount = 0
GoTo Retry
End If
Loop
' get a set for remaining 5 values
intNValues = 18
intNGrids = 18
intValue = 1
For intIndex = 1 To intNValues
intValueStack(intIndex) = intValue
intGridStack(intIndex) = intValue
If intIndex Mod (intNValues / 9) = 0 Then intValue = intValue + 1
Next
' pick subgrids and values for remaining 5 places
intGameLevel = m_GetRandom(5, 9)
Do While intNGrids > (27 - intGameLevel)
intUseSubGrid = m_GetRandom(1, intNGrids)
intSubGrid = intGridStack(intUseSubGrid)
If intRevealCount(intSubGrid) < 7 Then ' max 6 values in single grid
Do
intReveal = m_GetRandom(1, intNValues)
intValue = intValueStack(intReveal)
If Not blnReveal(intSubGrid, intValue) Then
blnReveal(intSubGrid, intValue) = True
intRevealCount(intSubGrid) = intRevealCount(intSubGrid) + 1
intValueStack(intReveal) = intValueStack(intNValues)
intNValues = intNValues - 1
intGridStack(intUseSubGrid) = intGridStack(intNGrids)
intNGrids = intNGrids - 1
Exit Do
End If
Loop
End If
Loop
m_ProtectPuzzle False
For intSubGrid = 1 To 9
' update storage grid by making start values BOLD
' update display grid by making start values visisble/bold and locked
For intRow = 1 To 3
For intCol = 1 To 3
intIndexRow = ((m_GetSubGridRow(intSubGrid) - 1) * 3) + intRow
intIndexCol = ((m_GetSubGridCol(intSubGrid) - 1) * 3) + intCol
intValue = rngStorage.Cells(intIndexRow, intIndexCol).Value
If blnReveal(intSubGrid, intValue) Then
rngStorage.Cells(intIndexRow, intIndexCol).Font.Bold = True
With rngDisplay.Cells(intIndexRow, intIndexCol)
.Font.Bold = True
.Locked = True
.Value = rngStorage.Cells(intIndexRow, intIndexCol)
End With
Else
rngStorage.Cells(intIndexRow, intIndexCol).Font.Bold = False
With rngDisplay.Cells(intIndexRow, intIndexCol)
.Font.Bold = False
.Locked = False
End With
End If
Next
Next
Next
'release
Set rngStorage = Nothing
Set rngDisplay = Nothing
End Sub

复制代码

bajifeng · 发表于 2016-2-19 21:23

第6部分：

Private Function m_GetSubGrid(Cell As Integer) As Integer
'
' Return SubGrid number for cell
'
Dim intRow As Integer
Dim intCol As Integer
intRow = (m_WhichSubRow(Cell) + 2) \ 3
intCol = (m_WhichSubCol(Cell) + 2) \ 3
m_GetSubGrid = ((intRow - 1) * 3) + intCol
End Function
Function m_GetSubGridCol(SubGrid As Integer) As Integer
' return col number 1 to 3 of subgrid
m_GetSubGridCol = ((SubGrid - 1) Mod 3) + 1
End Function
Function m_GetSubGridRow(SubGrid As Integer) As Integer
' return row number 1 to 3 of subgrid
m_GetSubGridRow = (SubGrid + 2) \ 3
End Function
Private Function m_GetTestCell() As Integer
'
' Scan grid for cell with lowest number of values available
' Check use of value in cell will not cause failure in related cells
'
Dim intCell As Integer
Dim intIndex As Integer
Dim intCount As Integer
Dim intTemp As Integer
Dim intStack() As Integer
Dim intStackCount As Integer
intCount = 9
For intCell = 1 To 81
intTemp = m_GetAvailable(intCell)
If intTemp > 0 Then
If intTemp < intCount Then
intStackCount = 1
ReDim intStack(intStackCount) As Integer
intStack(intStackCount) = intCell
intCount = intTemp
ElseIf intTemp = intCount Then
intStackCount = intStackCount + 1
ReDim Preserve intStack(intStackCount) As Integer
intStack(intStackCount) = intCell
End If
End If
Next
If intStackCount > 0 Then
m_GetTestCell = intStack(m_GetRandom(1, intStackCount))
Else
m_GetTestCell = 0
End If
End Function

复制代码

bajifeng · 发表于 2016-2-19 21:23

第7部分：

Private Sub m_GetTestValues(Cell As Integer, Value() As Integer)
'
' Return a random list of values that could be used
'
Dim intCount As Integer
Dim intIndex As Integer
Dim intResort As Integer
ReDim Value(0) As Integer
Dim intValue As Integer
For intValue = 1 To 9
If m_intGrid(Cell, intValue) > 0 Then
intCount = intCount + 1
ReDim Preserve Value(intCount) As Integer
Value(intCount) = intValue
End If
Next
If intCount = 0 Then Exit Sub
ReDim intOrder(intCount) As Integer
For intValue = 1 To intCount
intIndex = m_GetRandom(1, intCount - intValue + 1)
intOrder(intValue) = Value(intIndex)
For intResort = 1 To intCount - intValue
If intResort >= intValue Then
Value(intResort) = Value(intResort + 1)
Else
Value(intResort) = Value(intResort)
End If
Next
Next
For intValue = 1 To intCount
Value(intValue) = intOrder(intValue)
Next
End Sub
Private Function m_GetUniquePosition(Value As Integer) As Integer
'
' Search for a cell that contains a single location for a value within a subgrid
'
Dim intSubGrid As Integer
Dim intIndex As Integer
Dim intCell As Integer
Dim intCount As Integer
Dim intValue As Integer
Dim intFoundValue As Integer
Dim intFoundCell As Integer
' single value in cell
For intCell = 1 To 81
If m_intGrid(intCell, 0) = 0 Then
intCount = 0
For intValue = 1 To 9
If m_intGrid(intCell, intValue) > 0 Then
intCount = intCount + 1
intFoundValue = intValue
End If
Next
If intCount = 1 Then
Value = intFoundValue
m_GetUniquePosition = intCell
Exit Function
End If
End If
Next
' single occurance of value in subgrid
For intSubGrid = 1 To 9
For intValue = 1 To 9
intCount = 0
For intIndex = 1 To 9
intCell = m_GetCellIndex(intSubGrid, intIndex)
If m_intGrid(intCell, intValue) = intValue Then
intCount = intCount + 1
intFoundCell = intCell
End If
Next
If intCount = 1 Then
' found
Value = intValue
m_GetUniquePosition = intFoundCell
Exit Function
End If
Next
Next
m_GetUniquePosition = 0 ' Nothing Unique
End Function

复制代码

bajifeng · 发表于 2016-2-19 21:24

第8部分：

Private Sub m_ProtectPuzzle(LockDown As Boolean)
'
' Lock sheet so starting values can not be removed
'
With ThisWorkbook.Worksheets(SUDOKU_SHEET)
If LockDown Then
.Protect
Else
.Unprotect
End If
End With
End Sub
Private Sub m_RevealPuzzle()
'
' Transfer solution to display
'
Dim rngTemp As Range
Dim rngStorage As Range
Dim rngDisplay As Range
Dim lngRow As Long
Dim intCol As Integer
Application.StatusBar = SUDOKU_MSG_REVEALPUZZLE
Set rngStorage = m_AssignStorage()
Set rngDisplay = m_AssignDisplay()
m_ProtectPuzzle False
For lngRow = 1 To 9
For intCol = 1 To 9
rngDisplay.Cells(lngRow, intCol) = rngStorage.Cells(lngRow, intCol)
Next
Next
m_ProtectPuzzle True
' release
Set rngStorage = Nothing
Set rngDisplay = Nothing
End Sub
Private Function m_IsUserPuzzle() As Boolean
'
' Check numbers in current display grid match
' those in storage grid. If so then the solution
' to the grid is already know otherwise
' assume numbers are entered by user for solving
'
Dim rngTemp As Range
Dim rngStorage As Range
Dim rngDisplay As Range
Dim lngRow As Long
Dim intCol As Integer
Set rngStorage = m_AssignStorage()
Set rngDisplay = m_AssignDisplay()
For lngRow = 1 To 9
For intCol = 1 To 9
If rngDisplay.Cells(lngRow, intCol) <> "" Then
If rngDisplay.Cells(lngRow, intCol) <> rngStorage.Cells(lngRow, intCol) Then
m_IsUserPuzzle = True
Exit For
End If
End If
If rngStorage.Cells(lngRow, intCol) = "" Then
m_IsUserPuzzle = True
Exit For
End If
Next
Next
' release
Set rngStorage = Nothing
Set rngDisplay = Nothing
End Function

复制代码

bajifeng · 发表于 2016-2-19 21:25

第9部分：

Private Sub m_ReadPuzzle()
'
' Load number from storage grid
'
Dim intCell As Integer
Dim rngGrid As Range
Dim rngTemp As Range
Set rngGrid = m_AssignStorage()
For Each rngTemp In rngGrid
intCell = intCell + 1
If rngTemp <> "" Then
If rngTemp.Font.Bold Then
m_AssignCellValue intCell, rngTemp.Value
End If
End If
Next
' release
Set rngGrid = Nothing
End Sub
Private Sub m_ResetPuzzleArrays()
'
' Initialize variables
'
Dim intCell As Integer
Dim intIndex As Integer
For intCell = 1 To 81
For intIndex = 0 To 9
m_intGrid(intCell, intIndex) = intIndex
Next
Next
' Which values have been used in each subgrid
For intCell = 1 To 9
For intIndex = 1 To 9
m_intSubGrid(intCell, intIndex) = -intIndex
Next
Next
End Sub
Private Function m_SanityCheck() As Boolean
'
' Check puzzle for possible errors when user entered values
'
Dim blnOk As Boolean
Dim intCell As Integer
Dim intRow As Integer
Dim intCol As Integer
Dim intIndex As Integer
Dim intSubGrid As Integer
Dim intValue As Integer
Dim intGridCell As Integer
Dim intCellIndex As Integer
Dim intCount As Integer
Dim intCheckCell As Integer
' check for duplicate values across rows and columns
For intCell = 1 To 81
If m_intGrid(intCell, 0) > 0 Then
If m_ValueInUse(intCell, m_intGrid(intCell, 0)) Then
intRow = m_WhichSubRow(intCell)
intCol = m_WhichSubCol(intCell)
MsgBox "Duplicate entry of Value " & m_intGrid(intCell, 0) & " in Row " & intRow & ", Column " & intCol, vbExclamation
m_SanityCheck = False
Exit Function
End If
End If
Next
'check for duplicate values within subgrids
For intSubGrid = 1 To 9
For intGridCell = 1 To 9
intIndex = m_GetCellIndex(intSubGrid, intGridCell)
intValue = m_intGrid(intIndex, 0)
If intValue > 0 Then
intCount = 0
For intCheckCell = 1 To 9
intCellIndex = m_GetCellIndex(intSubGrid, intCheckCell)
If m_intGrid(intCellIndex, 0) = intValue Then intCount = intCount + 1
Next
If intCount > 1 Then
intRow = m_WhichSubRow(intIndex)
intCol = m_WhichSubCol(intIndex)
MsgBox "Duplicate entry of Value " & m_intGrid(intIndex, 0) & " in Row " & intRow & ", Column " & intCol, vbExclamation
Exit Function
End If
End If
Next
Next
m_SanityCheck = True
End Function

复制代码

		自动登录	找回密码
密码			免费注册

[分享] 数独游戏

评分