这道题应该怎么写出来? 二维数组吗?

[panshiwu]

？？-？？=？？=？*？？
就是这么一道题 用1~9 添上这9个？ 不能重复

[panshiwu]

顶

[zyguyue]

一维足够，或者根本可以不用数组
定义9个字符串变量或者一个Index=8的字符串数组
遍历给其赋上1-9的值，按表达式通过 & 连接后转换成数字运算，通过后记录下来即可

[liyan010]

疯狂循环。。。

[zyguyue]

是啊，要执行的次数的9的阶乘。这个是排列算法

[aqrm]

最笨的方法，用穷举法，做9 个循环，一个一个的试，呵呵

[liyan010]

结果很简单，我已经算出来了：93-25=68=4*17
—————————————————————————————————
代码如下：

'一个按扭
Dim mysz(8) As Integer
Private Sub Command1_Click()
Do While Chk = False
DoEvents
GetG
Loop
Print mysz(0) & mysz(1) & "-" & mysz(2) & mysz(3) & "=" & mysz(4) & mysz(5) & "=" & mysz(6) & "*" & mysz(7) & mysz(8)

End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 0 To 8
mysz(i) = i + 1
Next i

End Sub

Public Function GetG()
Dim A As Integer, B As Integer, t As Integer, num As Integer
Dim str As String
num = 0
'For num = 0 To 49
Randomize Timer
A = Int(Rnd() * 9)
Randomize Timer
B = Int(Rnd() * 9)
t = mysz(A): mysz(A) = mysz(B): mysz(B) = t
'Next num
For t = 0 To 8
str = str & mysz(t)
Next t
'Print str
End Function

Public Function Chk() As Boolean
If mysz(0) * 10 + mysz(1) - mysz(2) * 10 - mysz(3) = mysz(4) * 10 + mysz(5) And mysz(4) * 10 + mysz(5) = mysz(6) * (mysz(7) * 10 + mysz(8)) Then
Chk = True
Else
Chk = False
End If
End Function

[flyingscv]

也可以用5个循环 :)

[juror]

穷举。排列组合。

[panshiwu]

谢了,