ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH云课堂-专业的职场技能充电站 Excel转在线管理系统,怎么做看这里 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 EH云课堂直播课程免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
楼主: dongdonggege

[求助] 世界最难的数组怎么赋值

[复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-2-15 12:07 | 显示全部楼层
爱疯 发表于 2019-2-15 10:15
http://club.excelhome.net/thread-1460844-1-1.html

昨天我也是第一次碰到的这情况,所以在问,等等 ...

我是win7系统32位,excel2003

TA的精华主题

TA的得分主题

发表于 2019-2-15 14:27 | 显示全部楼层
dongdonggege 发表于 2019-2-14 22:55
老师,辛苦,许多算式都能运行。让你浪费很多时间,再次说辛苦了。
提几点意见,别不高兴。
1、正确的 ...

很有意思,持续关注本贴:
楼主这个移动火柴要求的AI 级别不低,现时只针对个位数,及移动火柴一项,还有增加、减少的算法...(实际手动求解可能小学生都可以解答,用VBA编程就呵呵了...),特别是两位数起的+-*/四则运算,或者移动、减少、增加2根火柴,甚至3根火柴以上时,复杂程度是几何级数的增长啊(或者是本人水平太菜了)
另外,个人还是觉得,应根据规则,生成所有有解的题库,或加个判断,有解的才出题,游戏才好玩..如果原来 的等式就成立,变动后仍成立,就更牛了,只不知这样的题库有多少?
同时,跟解题的几位老师学习了,帮顶起一下

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-2-15 15:07 | 显示全部楼层
aman1516 发表于 2019-2-15 14:27
很有意思,持续关注本贴:
楼主这个移动火柴要求的AI 级别不低,现时只针对个位数,及移动火柴一项,还 ...

谢谢关注!

TA的精华主题

TA的得分主题

发表于 2019-2-15 18:28 来自手机 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2019-2-15 19:26 | 显示全部楼层
dongdonggege 发表于 2019-2-15 12:05
这版确实提高了不少!
1、好像也能做两位数了。
2、支持ppt的运行。

Option Explicit

'6+4=4
'答案1,0+4=4
'答案2,8-4=4

'依次是原式、原式的备份、原式被改变1次、结果
Dim ExpBk, Exp, Change1, Result
Dim SelfDic, AddDic, DelDic


'入口
Sub huocai()
    Dim i
    Call CreateData
    Exp = InputBox("移动一根火柴,使其成立", "", "3+6=3")
    Result = "原式:" & Exp & vbLf
    For i = 1 To Len(Exp)
        Call Mov(i, SelfDic)
        Call Mov(i, AddDic, True)
    Next i
    MsgBox IIf(Len(Result) > Len(Exp) + 5, Result, "没办法"), , "结果"
End Sub


'创建数据
Private Sub CreateData()

    Exp = ""
    ExpBk = ""
    Change1 = ""

    '1. 自变:改变自身,变为另一个数
    Set SelfDic = CreateObject("scripting.dictionary")
    SelfDic("0") = Array(6, 9)
    SelfDic("2") = Array(3)
    SelfDic("3") = Array(2, 5)
    SelfDic("5") = Array(3)
    SelfDic("6") = Array(0, 9)
    SelfDic("9") = Array(0, 6)
    SelfDic("+") = Array("=")
    SelfDic("=") = Array("+")

    '2-1. 可加:增加一根火柴,变为另一个数
    Set AddDic = CreateObject("scripting.dictionary")
    AddDic("0") = Array(8)
    AddDic("1") = Array(7)
    AddDic("3") = Array(9)
    AddDic("5") = Array(6, 9)
    AddDic("6") = Array(8)
    AddDic("9") = Array(8)
    AddDic("-") = Array("=", "+")

    '2-2. 可减:减少一根火柴,变为另一个数
    Set DelDic = CreateObject("scripting.dictionary")
    DelDic("6") = Array(5)
    DelDic("7") = Array(1)
    DelDic("8") = Array(0, 6, 9)
    DelDic("9") = Array(3)
    DelDic("+") = Array("-")
    DelDic("=") = Array("-")

End Sub


'移动(位置, 字典, 是否两次变化)
'Again的 Flase用于自变,True用于因变
Sub Mov(i, Dic, Optional Again As Boolean = False)
    Dim ch, t, j, k
    ch = Mid(Exp, i, 1)
    If Dic.exists(ch) Then
        t = Dic(ch)
        For j = LBound(t) To UBound(t)
            Change1 = Exp
            Mid(Change1, i, 1) = t(j)
            If Again Then
                ExpBk = Exp
                Exp = Change1
                For k = 1 To Len(Exp)
                    If k <> i Then Call Mov(k, DelDic)
                Next k
                Exp = ExpBk
            End If
            If IsEqual(Change1) Then Result = Result & vbLf & Change1
        Next j
    End If
End Sub


'判断等式两边的和,是否相等
Function IsEqual(str) As Boolean
    Dim A, B, i, j, str2
    If UBound(Split(str, "=")) = 1 Then
        str2 = Replace(str, "-", "+-")
        A = Split(str2, "=")
        For i = 0 To 1
            B = Split(A(i), "+")
            A(i) = 0
            For j = 0 To UBound(B)
                A(i) = Val(A(i)) + Val(B(j))
            Next j
        Next i
        IsEqual = A(0) = A(1)
    End If
End Function

36.rar (101.34 KB, 下载次数: 2)

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-2-15 19:52 | 显示全部楼层
爱疯 发表于 2019-2-15 19:26
Option Explicit

'6+4=4

3+2=9-3能做了,但是上版好像能做等号一边是两位数,这次不能了。

TA的精华主题

TA的得分主题

发表于 2019-2-15 21:48 来自手机 | 显示全部楼层
dongdonggege 发表于 2019-2-15 19:52
3+2=9-3能做了,但是上版好像能做等号一边是两位数,这次不能了。

A(i) = Val(A(i)) + Val(B(j))
改成原来之前写法
A(i) =A(i) + 0+B(j)


手机回的,没法试,可能是这个原因。
但当原式右边是负数时,分隔造成"",导致相加出错。对此,再想别的方式来避免。

TA的精华主题

TA的得分主题

发表于 2019-2-16 11:46 | 显示全部楼层
dongdonggege 发表于 2019-2-15 19:52
3+2=9-3能做了,但是上版好像能做等号一边是两位数,这次不能了。

37.rar (102.97 KB, 下载次数: 5)

评分

参与人数 1财富 +10 收起 理由
满坛皆为吾师 + 10

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-2-16 15:41 | 显示全部楼层

老师的钻研精神可敬!
1、7-11=4,2-3=1,出现重复的答案,前面的版本也出现。
2、14+1=11,正确:4+7=11,出现:没办法。
3、6+9=13,正确:5+8=13,8+5=13,6+9=15,出现:5+8=13,6+9=15,两个答案。

TA的精华主题

TA的得分主题

发表于 2019-2-16 17:13 | 显示全部楼层
本帖最后由 micch 于 2019-2-16 17:15 编辑

14+1=11  怎么可能变成4+7=11  14变4那不是少了两根火柴??7那才多了一根,还有一根去哪了?


个位数是变不成两位数的,两位数也变不成个位数,因为一个数字最少都是两根火柴
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2019-10-16 05:26 , Processed in 0.077297 second(s), 15 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表