小弟我到目前为止还只是一个菜鸟。

大家看到小弟我这个小菜菜开心了在 bbs.pfan.cn 上面开心蹦两下，大家不要放在心上啊。

你要是能算得出来，我拜你为师。

[color=00ff00]Sub moz()[/color]
s = 1
z$ = ""
For i = 1 To [color=0000ff]26[/color]
    s = s*7 mod 10
    z$ = Chr$(48 + s) + z$
    s = s - s * 3 \ 10
Next
[color=00ff00]Debug.[/color]Print z$
[color=00ff00]End Sub[/color]

倒也是啊，在改之前都没有考虑过，十进制的基数也只有10个。

题目应该改成：
1ABCDEFGHI * 3 = ABCDEFGHI1
求：A、B、C、D、E、F、G、H、I

这样行吗？

小弟我用自己的代码算过了。
没有结果啊。

Sub imjohn()
    Dim Result(9) As Integer        'N
    Dim N(10) As Integer         '  * 3
    Dim M(10) As Integer         '--------
                                    'M
    Dim Guess
    Dim i As Integer
    Dim t As Integer
    
    'How to Guess
    
    Guess = Array(0, 7, 4, 1, 8, 5, 2, 9, 6, 3)
    
    'init
    N(0) = 1
    M(9) = 1

    For i = 5 To 1 Step -1
    
        'Guess Value
        t = Guess(M(i))
        
        'Put Digit
        Result(i - 1) = t
        M(i - 1) = t
        N(i) = t
        
        'Remove digit
        M(i - 1) = M(i - 1) - Fix(t * 3 \ 10)
    
    Next i

    If Fix(Result(0) * 3 / 10) = N(0) Then

        For i = 0 To 4
            Debug.Print Chr(65 + i); "=", Result(i)
        Next i

    Else
    
        Debug.Print "No Result!"
        
    End If
End Sub

真是失败啊~~~~~~~~~~~~~~~~~~~~~~