12345678每个数字只能用一次填空……用VB解这题！

0xAA55

12345678每个数字只能用一次填空（）+（）=7（）+（）=9（）-（）=1（）-（）=2

就是这题。我用VB写了个程序，通过穷举法穷举出1,2,3,4,5,6,7,8这8个数字的所有的组合，然后一个个来试题目中的括号，来试出所有的答案。

1. VERSION 5.00
   
2. Begin VB.Form frmMain
   
3.    AutoRedraw      =   -1  'True
   
4.    BorderStyle     =   1  'Fixed Single
   
5.    Caption         =   "计算"
   
6.    ClientHeight    =   4200
   
7.    ClientLeft      =   45
   
8.    ClientTop       =   375
   
9.    ClientWidth     =   5175
   
10.    LinkTopic       =   "Form1"
    
11.    MaxButton       =   0   'False
    
12.    MinButton       =   0   'False
    
13.    ScaleHeight     =   280
    
14.    ScaleMode       =   3  'Pixel
    
15.    ScaleWidth      =   345
    
16.    StartUpPosition =   3  '窗口缺省
    
17.    Begin VB.ListBox lstVals
    
18.       Height          =   4200
    
19.       Left            =   0
    
20.       TabIndex        =   0
    
21.       Top             =   0
    
22.       Width           =   5175
    
23.    End
    
24. End
    
25. Attribute VB_Name = "frmMain"
    
26. Attribute VB_GlobalNameSpace = False
    
27. Attribute VB_Creatable = False
    
28. Attribute VB_PredeclaredId = True
    
29. Attribute VB_Exposed = False
    
30. '这里开始，是代码的正文。
    
31. Option Explicit
    
32. 
    
33. Private HaveResult As Boolean
    
34. 
    
35. '参数：级别，排列结果，可用数字
    
36. Sub 穷举算法(ByVal Level As Long, Nums() As Long, NumAvail() As Long)
    
37. Dim I&, NewNumAvail() As Long, J&
    
38. If Level Then
    
39.     For I = 0 To Level
    
40.         '选出当前数字
    
41.         Nums(Level) = NumAvail(I)
    
42.         
    
43.         '重新选出下一级可用数字
    
44.         ReDim NewNumAvail(Level - 1)
    
45.         For J = 0 To I - 1
    
46.             NewNumAvail(J) = NumAvail(J)
    
47.         Next
    
48.         For J = I + 1 To Level
    
49.             NewNumAvail(J - 1) = NumAvail(J)
    
50.         Next
    
51.         
    
52.         '进行下一级穷举
    
53.         穷举算法 Level - 1, Nums, NewNumAvail
    
54.         Erase NewNumAvail
    
55.     Next
    
56. Else
    
57.     '最后一级数字
    
58.     Nums(Level) = NumAvail(0)
    
59.    
    
60.     '已经穷举出数字了
    
61.     If Nums(0) - Nums(1) = 1 And _
    
62.        Nums(2) - Nums(3) = 2 And _
    
63.        Nums(4) + Nums(5) = 7 And _
    
64.        Nums(6) + Nums(7) = 9 Then '如果八个数字都满足条件
    
65.         
    
66.         '添加到列表框
    
67.         Dim Strn As String
    
68.         For I = 0 To UBound(Nums) - 1
    
69.             Strn = Strn & Nums(I) & ","
    
70.         Next
    
71.         Strn = Strn & Nums(I)
    
72.         lstVals.AddItem Strn
    
73.         HaveResult = True
    
74.         DoEvents
    
75.     End If
    
76. End If
    
77. End Sub
    
78. 
    
79. Private Sub Form_Load()
    
80. Dim Nums(7) As Long, NumAvail(7) As Long
    
81. 
    
82. Show
    
83. 
    
84. Dim I&
    
85. For I = 0 To 7
    
86.     NumAvail(I) = I + 1
    
87. Next
    
88. 穷举算法 7, Nums, NumAvail
    
89. 
    
90. If HaveResult Then MsgBox "已经计算完成。", vbInformation Else MsgBox "已经计算完成，无解。", vbExclamation
    
91. End Sub

复制代码

结果是无解。


SRC: 穷举法.7z (5.16 KB, 下载次数: 8)

2015-5-31 01:12 上传

点击文件名下载附件

BIN: 穷举法.exe (20 KB, 下载次数: 1)

2015-5-31 01:12 上传

点击文件名下载附件

13*0217

可以放到数学专栏去。

watermelon

哈哈哈哈哈哈哈，最后我直接笑爆哈哈哈哈哈哈

大保

一看就是无解的，（）+（）=2，填不了