请问一下VB数独计算程序的编写方法

我想用随机数不行吧，正确的解只有一个或者很少几个，可是可能的排列方式有很多个，那么你用随机数生成的解绝行陪橡大多数都是不正乱扒确的，那么就会不断的生成解，结果就是死循环，除非你的运气好到逆天，能碰上那唯一的正确解。

所以，应该用循环的方式来档旁解数独的问题，对所有可能的排列都进行一遍判断。

为方便起见盯册，建名称“数独盘”和“可选数”，分别代表B2:J10和B12:J20两个区域。用如下VBA程序清空初盘：Sub 清空初盘()

Dim rag As Range

For Each rag In Range("数独盘")

rag.ClearContents

rag.Font.Bold = False

Next

End Sub

用如下VBA程序把初盘“粗体化”：Sub 粗体初盘()

Dim rag As Range

For Each rag In Range("数独盘")

If rag.Value = "" Then

rag.Font.Bold = False

Else

rag.Font.Bold = True

End If

Next

End Sub为建“可选数”表，先用如下程序语句清空“可选数”区域：Range("可选数").ClearContents '清空可选数

以下程序段，作为解数独的初始化工作的一部分完成如下工作：在“数独盘”区域仅保留粗体的已知数作为初盘。在“可选数”区域的与“数独盘”已知数对应的单元格，抄录已知数，其他单元格取“123456789”。程序如下：For Each rag In Range("可选数")

If rag.Offset(-10, 0).Font.Bold Then '“数独盘”中用粗体字表示已知数

rag.Value = rag.Offset(-10, 0).Value '把“侍肆数独盘”中的已知数抄录到对应的“可选数”区域中的相应位置

Else

rag.Value = "123456789" '“数独盘”中的未知数在“可选数”区域中的相应位置老则轿设置成“123456789”

rag.Offset(-10, 0).Value = "" '“数独盘”中的未知数用空格表示

End If

Next

接下来的初始化工作就是建立对应于初盘的可选数表。这部分工作和以后要讲的用“排除法”解数独题有相似之处。这些相似的工作用“处理确定数”子程序来完成。现在在“可选数”区域，寻找长度为1的数作为确定数，把该单元格置为空格，记下该单元格的行号和列号，由“处理确定数”子程序作相应处理。程序如下：For Each rag In Range("可选数")

If Len(rag.Value) = 1 Then

qds = rag.Value '已知数作为“确定数”

rag.Value = "" '对应于“确定数”在“可选数”区域设为空格，表示无别的数可选

i% = rag.Row - Range("可选数").Row + 1 '计算“确定数”在“可选数”区域的行号

j% = rag.Column - Range("可选数").Column + 1 '计算“确定数”在“可选数”区域的列号

Call 处理确定数(i%, j%, qds)

End If

Next

待续

---