用vb编了个数独计算器 excel数独计算器

平时很喜欢玩数独游戏,每天只要信报上有数独游戏,那就不看别的了,专心致志玩一路。

昨天突然想自己编一个软件来算吧,于是就有了这篇文章和一个vb的数独计算器。

下载地址:

http://download.csdn.net/source/1381913

谈思想吧,思想最重要:我用了最最笨的方法,就是每个空位都从1~9挨个填,出了问题再折回来重新填。

所以这样的想法一定要用到递归了,就是不断调用自身来达到目的。

东西简单,所以代码也简单:

我用了81个text来填数:text1(0)~text1(80),存到一个 Mtx(81)的数组中。

而且先写了一个填写检查程序:(目的是检查是否可以在x,y这个位置填入此Num。)

Function Tcheck(arrayc() As Integer, x As Integer, y AsInteger,num As Integer)
For i = 0 To 8
If Mtx(i, y)= num Then
Tcheck = False
Exit Function
End If
If Mtx(x, i)= num Then
Tcheck = False
Exit Function
End If
Next i

For i = 0 To 2
For j = 0 To 2
If (arrayc((x3)*3 + i, (y3)*3 + j) = num) Then
Tcheck = False
Exit Function
End If
Next j
Next i
Tcheck = True

End Function

Private Function checkexistNum()
'检查现有的数据是否存在问题
Dim i As Integer
Dim j As Integer
Dim temp As Integer

For i = 0 To 8
For j = 0 To8
If (Mtx(i, j) <> 0) Then
temp = Mtx(i, j)
Mtx(i, j) = 0
If Tcheck(Mtx,i, j, temp) = False Then
checkexistNum = False
errorstr = temp
Text1(i * 9 + j).SetFocus
Exit Function
End If
Mtx(i, j) = temp
End If
Next j
Next i
checkexistNum = True
End Function

下面这个程序就是最重要的递归函数了:

Function CalcArray(arrayn() As Integer)
Dim k As Integer
用vb编了个数独计算器 excel数独计算器
Dim i As Integer
Dim j As Integer

For i = 0 To 8
For j = 0 To8
If arrayn(i * 9 + j) = 0 Then '原来的值为0才能进行赋值试验
Dim flag As Boolean
flag = False

For k = 1 To 9 '准备填数
flag = Tcheck(arrayn(),i, j, k)
If flag = True Then
arrayn(i * 9 + j) = k
If CalcArray(arrayn) = False Then
arrayn(i * 9 + j) = 0
flag = False
Else
CalcArray= True
Exit Function
End If
End If
Next k

If flag = False Then
CalcArray = False
Exit Function
End If

End If
Next j
Next i
CalcArray = True
End Function

ok,最后一步就是主函数了:

Private Sub CalculatorCT_Click()

Dim i, j As Integer

SodoError = 0
t = Timer
transfer '这个就是将text1转到Mtx()中去
If SodoError = 1 Then
ExitSub
End If

If checkexistNum = False Then
MsgBox "现有数据存在问题:" &errorstr
Exit Sub
End If

If CalcArray(Mtx) = False Then
MsgBox"无法解出", , "龙卷风数独"
Else
'将资料填回Text1中
For i = 0 To 8
For j = 0 To 8
Text1(j + (i * 9)) = Mtx(i, j)
Next j
Next i
MsgBox "计算完成", , "龙卷风数独"
End If

End Sub

呵呵,简单吧!

发个我做的软件链接:

http://download.csdn.net/source/1381913

  

爱华网本文地址 » http://www.aihuau.com/a/25101012/142403.html

更多阅读

“谷歌”搜索不能用?解决了! 谷歌图片搜索不能用了

“谷歌”搜索不能用?解决了!——简介 谷歌自从从中国大陆撤离之后,虽说中国政府并未屏蔽谷歌域名,但是由于服务器较远也导致谷歌搜索根本不能用。 先在有办法了“谷歌”搜索不能用?解决了!——工具/原料百度浏览器VPN(花钱的免费的只要能

雅诗兰黛小棕瓶使用方法详解 雅诗兰黛小棕瓶用6年了

雅诗兰黛小棕瓶使用方法详解——简介雅诗兰黛小棕瓶,即特润修护肌透精华露,以完美的抗衰老功能见称,被视为雅诗兰黛的镇店之宝。别看它小小一瓶,要达到最佳的减龄效果,还真得注意这小棕瓶使用方法。雅诗兰黛小棕瓶使用方法详解——方法/

用VB操作Excel的方法 vb6.0操作excel2010

VB是常用的应用软件开发工具之一,由于VB的报表功能有限,而且一但报表格式发生变化,就得相应修改程序,给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。但由于VB与EXCEL由于分别

橡皮筋手链简单编法 怎么用橡皮筋编手链

不难哟主要材料:橡皮筋所需工具:编织架、钩子制作步骤:第1步:  用皮筋做一个X的形状第2步:  重复两次,但不需交叉第3步:  将底部的皮筋勾上来,另一边相同第4步:  再套一根皮筋第5步:  将底部的皮

声明:《用vb编了个数独计算器 excel数独计算器》为网友在世勿为插曲分享!如侵犯到您的合法权益请联系我们删除