VB发现的有趣等式

恩。你是数学家吗？

哦。程序历遍出来的？

这样的等式弄个全排列几下就出来了
Const n% = 9
Dim a(1 To n) As Integer
Dim i%, j%, k%, b%, Str$
Private Sub Check()
If Val(a(1) & a(2)) * Val(a(3) & a(4) & a(5)) = Val(a(6) & a(7) & a(8) & a(9)) Then Str = Str & a(1) & a(2) & "*" & a(3) & a(4) & a(5) & "=" & a(6) & a(7) & a(8) & a(9) & vbCrLf
End Sub
Private Sub Arrange()
For i = 1 To n
a(i) = i
Next
Check
Do
For i = n To 2 Step -1
If a(i) > a(i - 1) Then
If i = 2 Then
a(i - 1) = a(i - 1) + 1: GoTo 2
End If
Do
a(i - 1) = a(i - 1) + 1
For j = 1 To i - 2
If a(j) = a(i - 1) Then
GoTo 4
End If
Next
GoTo 2
4
Loop
End If
1
Next
Exit Sub
2
For j = i To n
a(j) = 1
Do
For k = 1 To j - 1
If a(k) = a(j) Then GoTo 3
Next
Exit Do
3
a(j) = a(j) + 1
Loop
Next
Check
Loop
End Sub
Private Sub Form_Click()
Arrange
Text1.Text = Str
End Sub

18*297=5346
27*198=5346
这样的更有意思

27*594=16038
54*297=16038
36*495=17820
45*396=17820

全是 9 的倍数 谁解释下 应该有意思

2*33=66
3*22=66
他们是他的倍数 哈哈

4*1738=6952
4*1963=7852
4*3907=15628
4*7039=28156
4*9127=36508
不是9的倍数
--LZ