世界最难的数组怎么赋值

dongdonggege

火柴棒可以组成0-9的数字或字符，见图。
我把0-9的数字或加减乘除的符号，变成图表，我想把数字字符表变成一个数组，但是不知道如何定义数组或赋值。
图片内容不全后面缺少+-*/的内容，影响不大。
请教各位大师帮忙，谢谢。

dongdonggege

请各位帮忙能给个数组(假定叫mem)赋值，谢谢。

micch

如果是人工判断结果已经有了，直接赋值就可以，你的意思是用代码生成三种情况下的结果吗？

aman1516

dongdonggege 发表于 2019-2-12 20:08
请各位帮忙能给个数组(假定叫mem)赋值，谢谢。

可否换个角度建立一个数组：
1根火柴能代表的数字：1
2根火柴能代表的数字：7
3根火柴能代表的数字：（空）
4根火柴能代表的数字：4，0
5根火柴能代表的数字：2，3，5
6根火柴能代表的数字：6，9
7根火柴能代表的数字：8
再作所需的所有运算组合处理

一把小刀闯天下

'空为不存在，左到右判断，，，

Option Explicit

Private Type match
  left As String
  mid As String
  right As String
End Type

Sub test()
  Dim arr(1 To 7) As match
  arr(1).left = 1
  arr(2).left = 7
  arr(4).left = 4
  arr(4).mid = 0
  arr(5).left = 2
  arr(5).mid = 3
  arr(5).right = 5
  arr(6).left = 6
  arr(6).mid = 9
  arr(7).left = 8
  Debug.Print arr(1).left, "|"
  Debug.Print arr(1).mid, "|"
  Debug.Print arr(3).left, "|"
  Debug.Print arr(5).right, "|"
End Sub

dongdonggege

一把小刀闯天下 发表于 2019-2-12 20:51
'空为不存在，左到右判断，，，

Option Explicit

我可能要调用这个函数，到时不好调用吧

dongdonggege

一把小刀闯天下 发表于 2019-2-12 20:51
'空为不存在，左到右判断，，，

Option Explicit

比如，我有个这样的错误算式：9+5=9，移动1根火柴棒，正确的算式是3+5=8。

dongdonggege

一把小刀闯天下 发表于 2019-2-12 20:51
'空为不存在，左到右判断，，，

Option Explicit

而且，移动、增加、减少1根，有时有2个值呢。

爱疯

创建多行4列
比如各列依次是：源,操作,火柴数,结果。
比如图中的数字字符6来说，记成4行：
6,加,1,8
6,减,1,5
6,移,1,9
6,移,1,0
其它数字和符号同理。如果要增加火柴数，就继续列举，只是挺辛苦的。

dongdonggege

micch 发表于 2019-2-12 20:24
如果是人工判断结果已经有了，直接赋值就可以，你的意思是用代码生成三种情况下的结果吗？

就是的，大师。能写出数组吗？