《全排列三阶数独》word版

《《全排列三阶数独》word版》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、本文介绍一个三阶数独产生。通过判断1到9的全排列来判定是不是三阶数独。全排列方法：本文不采用递归法，因为递归法比较费解。而是采用最简单，最符合逻辑的方法，而且运算速度很快。基本逻辑如下例子：例：1—3的全排列：Fora=1to3‘第一个数从1到3遍历Forb=1to3‘第二个数也从1到3遍历Ifb<>athen‘第二个数不能等于第一个数Forc=1to3‘第三个数从1到3遍历Ifc<>aandc<>bthen‘第三个数不能等于第一个和第二个数Printa+”,”+b+”,”+c‘输出排列EndifNextcEndifNextbNexta逻辑非常简单。三阶数独用到9个数字。要求纵

2、，横，斜的和都相同一个标签：caption=三阶数独一个frame放置1个标签，设置好后复制粘贴8个，粘贴时选择创建数组。第一个标签属性如下：创建两个按钮，command1和command2属性如下：Command1.Caption=产生数独Command2.caption=下一个Command2.visible=false放置一个进度条不是默认控件，先添加。部件……选择：把进度条名称改为如下图：至此，界面设计完毕。复制如下代码到代码区。看起来长，实际上很少东西，几个for+if语句而已。便可运行。PrivateSubCommand1_Click()Command2.Visib

3、le=TrueCommand2.Enabled=FalseFora=1To9Forb=1To9Ifb<>aThenForc=1To9Ifc<>aAndc<>bThenFord=1To9Ifd<>aAndd<>bAndd<>cThenFore=1To9Ife<>aAnde<>bAnde<>cAnde<>dThenForf=1To9Iff<>aAndf<>bAndf<>cAndf<>dAndf<>eThenForg=1To9Ifg<>aAndg<>bAndg<>cAndg<>dAndg<>eAndg<>fThenForh=1To9Ifh<>aAndh<>bAndh<>cAndh<>

4、dAndh<>eAndh<>fAndh<>gThenFori=1To9Ifi<>aAndi<>bAndi<>cAndi<>dAndi<>eAndi<>fAndi<>gAndi<>hThenj=a+b+ck=d+e+fl=g+h+im=a+d+gn=b+e+ho=c+f+ip=a+e+iq=c+e+gIfj=kAndj=lAndj=mAndj=nAndj=oAndj=pAndj=qThenLabel1(0).Caption=aLabel1(1).Caption=bLabel1(2).Caption=cLabel1(3).Caption=dLabel1(4).Caption=eLa

5、bel1(5).Caption=fLabel1(6).Caption=gLabel1(7).Caption=hLabel1(8).Caption=iCommand2.Enabled=True'实现暂停DoUntilCommand2.Enabled=FalseDoEventsLoop'实现暂停EndIfpb1.Value=a*100/9Ifpb1.Value=100ThenCommand1.Visible=TrueCommand2.Enabled=TrueCommand2.Visible=FalseEndIfEndIfNextiEndIfNexthEndIfNextgEndIfN

6、extfEndIfNexteEndIfNextdEndIfNextcEndIfNextbNextaEndSubPrivateSubCommand2_Click()Command2.Enabled=FalseEndSub