全排列三阶数独讲义x.docxVIP

本文介绍一个三阶数独产生。通过判断1到9的全排列来判定是不是三阶数独。全排列方法：本文不采用递归法，因为递归法比较费解。而是采用最简单，最符合逻辑的方法，而且运算速度很快。基本逻辑如下例子：例：13的全排列：For a=1 to 3第一个数从1到3遍历For b=1 to 3第二个数也从1到3遍历If ba then第二个数不能等于第一个数For c=1 to 3第三个数从1到3遍历If ca and cb then第三个数不能等于第一个和第二个数Print a+”,”+b+”,”+c输出排列End ifNext cEnd ifNext bNext a逻辑非常简单。三阶数独用到9个数字。要求纵，横，斜的和都相同一个标签：caption=三阶数独一个frame 放置1个标签，设置好后复制粘贴8个，粘贴时选择创建数组。第一个标签属性如下：创建两个按钮，command1和command2属性如下：Command1. Caption=产生数独Command2.caption=下一个Command2.visible=false放置一个进度条不是默认控件，先添加。部件选择：把进度条名称改为如下图：至此，界面设计完毕。复制如下代码到代码区。看起来长，实际上很少东西，几个for+if语句而已。便可运行。Private Sub Command1_Click()Command2.Visible = TrueCommand2.Enabled = FalseFor a = 1 To 9 For b = 1 To 9 If b a Then For c = 1 To 9 If c a And c b Then For d = 1 To 9 If d a And d b And d c Then For e = 1 To 9 If e a And e b And e c And e d Then For f = 1 To 9 If f a And f b And f c And f d And f e Then For g = 1 To 9 If g a And g b And g c And g d And g e And g f Then For h = 1 To 9 If h a And h b And h c And h d And h e And h f And h g Then For i = 1 To 9 If i a And i b And i c And i d And i e And i f And i g And i h Then j = a + b + c k = d + e + f l = g + h + i m = a + d + g n = b + e + h o = c + f + i p = a + e + i q = c + e + g If j = k And j = l And j = m And j = n And j = o And j = p And j = q Then Label1(0).Caption = a Label1(1).Caption = b Label1(2).Caption = c Label1(3).Caption = d Label1(4).Caption = e Label1(5).Caption = f Label1(6).Caption = g Label1(7).Caption = h Label1(8).Caption = i Command2.Enabled = True 实现暂停 Do Until Command2.Enabled = False DoEvents Loop 实现暂停 End If pb1.Value = a * 100 / 9 If pb1.Value = 100 Then Command1.Visible = True Command2.Enabled = True Command2.Visible = False End If End If Next i End If Next h End If Next g End If Next f End If Next e End If Next d End If