northwolves[狼行天下] 的专栏

无知无惧,无欲无敌。

用户操作

[留言] [发消息] [加为好友]

订阅我的博客

[编辑]northwolves的公告

<a href="http://www2.clustrmaps.com/counter/maps.php?url=http://blog.csdn.net/northwolves" id="clustrMapsLink"><img src="http://www2.clustrmaps.com/counter/index2.php?url=http://blog.csdn.net/northwolves" style="border:1px solid;" alt="Locations of visitors to this page" title="Locations of visitors to this page" id="clustrMapsImg" width=225 height=150 onError="this.onError=null; this.src='http://clustrmaps.com/images/clustrmaps-back-soon.jpg'; document.getElementById('clustrMapsLink').href='http://clustrmaps.com'" /> </a>  <script type="text/javascript"></script> <script src="http://www.getafreelancer.com/widgets/projects/vertical.js"></script> <div id="GAF_projects_vertical_box" style="width: 230px;padding: 0px; font-family:sans-serif; font-size: 12px;"> <div style="padding: 5px; overflow: hidden"> <div style="padding-bottom: 4px"><div style="float:right"><a href="http://www.getafreelancer.com/widgets/"><img src="http://www.getafreelancer.com/img/widgets/duder.png" alt="Make Money Now" height=30 border=0></a></div> <a href="http://www.getafreelancer.com/" target="_blank"><font color="blue" style="text-decoration: none">Freelance jobs</font></a> on <b><a href="http://www.getafreelancer.com/" target="_blank"><font color="blue">Freelancer.com</font></a></b> </div> <div id="GAF_projects_vertical"> </div> </div> <div align="right"> Find more <a href="http://www.getafreelancer.com/sellers/" target="_blank">freelance jobs</a></div> </div> <script src="http://api.getafreelancer.com/Project/Search.json?aff=320338&callback=GAF_update_projects_vertical_callback&order=rand&count=5&iads=true&nonpublic=0&charset=UTF-8"></script>

[编辑]文章分类

[编辑]my app

存档

Nine Digits Expression 收藏

Problem:

Insert + ,-,*,/ signs as necessary in the string 123456789 to form an expression that evaluates to a certain number.

Answer:

Sub test() getall 2009, 1 getall 2009, 2 End Sub Private Sub getall(ByVal theresult As Integer, Optional order As Byte = 1) Dim temp As Long, x(16) As String, op, i As Long, j As Long Dim out As String, all As Long, num As Integer num = 0 op = Array("+", "-", "*", "/", "") If order = 1 Then For i = 0 To 8 x(i * 2) = i + 1 Next ElseIf order = 2 Then For i = 0 To 8 x(i * 2) = 9 - i Next End If all = 5 ^ 8 - 1 For i = 0 To all temp = i For j = 1 To 8 x(j * 2 - 1) = op(temp Mod 5) temp = temp \ 5 Next out = Replace(Join(x, ""), " ", "") If Evaluate(out) = theresult Then num = num + 1 Debug.Print "Solutions " & num & ":" & vbTab & out & "=" & theresult End If Next Debug.Print IIf(num, num, "No") & " solutions were found！" End Sub

It returns:

Solutions 1:    1*2345*6/7+8-9=2009
Solutions 2:    1/2*3*4*5*67+8-9=2009
Solutions 3:    1*2/3*45*67+8-9=2009
3 solutions were found！

Solutions 1:    9*8-7+6*54*3*2*1=2009
Solutions 2:    9+8*7+6*54*3*2*1=2009
Solutions 3:    9*8-7+6*54*3*2/1=2009
Solutions 4:    9+8*7+6*54*3*2/1=2009
4 solutions were found！

发表于 @ 2009年02月18日　01:31:00 | 评论( loading... ) | 编辑| 举报| 收藏