Question

VBA计算出所有可能算式用完1-9有单个乘四个

VBA计算出所有可能算式用完1-9有单个乘四个

Answer 1

Sub s()
    Const a = "123456789"
    For i = 1 To 9
        b = Replace(a, i, "")
        p b, i, 1, 0
    Next
End Sub
Sub p(a, x, k, y)
    For i = 1 To Len(a)
        xx = Mid(a, i, 1)
        yy = y * 10 + Val(xx)
        b = Replace(a, xx, "")
        Z = x * yy
        If Z < 10 ^ k Then
            If k = 4 Then
                For j = 1 To 4
                    b = Replace(b, Mid(CStr(Z), j, 1), "")
                Next
                If b = "" Then
                    Debug.Print x; "X"; yy; "="; Z
                End If
            Else
                p b, x, k + 1, yy
            End If
        End If
     Next
End Sub