已知条件：
num1>=1 且 num1<=25
num2>=1 且 num2<=25
num3>=1 且 num3<=25
num4>=1 且 num4<=25

如果该等式成立：

i = num1 + num2 * 25 + num3 * 25 * 25 + num4 * 25 * 25 * 25

如何求：num1、num2、num3、num4的值？

PS：这个等式把我绕晕了，求解。

你把 I 作为一个 25 进位的值看不就是了。

num4=int(i/(25*25*25))
num3=int((i-num4*25*25*25)/(25*25))
num2=int((i-num4*25*25*25-num3*25*25)/25)
num1=i-num4*25*25*25-num3*25*25-num2*25
num1 或者写成
num1=i mod 25

楼上代码有错误！！！！！！

就是25进制的计算问题

当 i=25时，应当num1=25才正确，这里结果却为num2=1

当i=406900时，num1 num2 num3 num4 应当都等于25才对，这里结果也不正确。

我算了一天，也没算出问题出在哪。

演算程序如下：

Private Sub Form_Load()

'公式：i = num1 + num2 * 25 + num3 * 25 * 25 + num4 * 25 * 25 * 25

Dim i As Long
i = 25
num4 = Int(i / (25 * 25 * 25))
num3 = Int((i - num4 * 25 * 25 * 25) / (25 * 25))
num2 = Int((i - num4 * 25 * 25 * 25 - num3 * 25 * 25) / 25)
num1 = i - num4 * 25 * 25 * 25 - num3 * 25 * 25 - num2 * 25
'num1 或者写成
'num1 = i Mod 25
Debug.Print num1 & " " & num2 & " " & num3 & " " & num4
End Sub

[此贴子已经被作者于2022-9-17 13:58编辑过]

算法有问题

此题作废

重新设计算法。

这题先要从数学上下手。
从题意可知，25进制没有问题，但25进制的数是0-24，所以要用25进制解题则先要对式子进行展开：
由于所有数据是从1到25，所以可以理解为是25进制的各位数加1，
即num1=n1+1,num2=n2+1,num3=n3+1,num4=n4+1
由此可得出num1+num2*25+num3*25*25+num4*25*25*25=(n1+1)+(n2+1)*25+(n3+1)*25*25+(n4+1)*25*25*25
将后面的式子展开n1+n2*25+n3*25*25+n4*25*25*25+1+25+625+15625=n1+n2*25+n3*25*25+n4*25*25*25+16276
n1+n2*25+n3*25*25+n4*25*25*25才是真正的25进制数，所以你的最终i值必须先减去16276，最后再依据你的3楼算法得到n1至n4的值，再对n1到n4分别加1，就是num1到num4的值。
406900-16276=390624
390624 mod 25=24 n1
int(390624/25) mod 25=24 n2
...

代码写出来后，当i的值为 1、25、26、390624、406900时，会发现结果总是会出问题，悲哀！

当i等于以上值时，只有部分结果是正确的。

[此贴子已经被作者于2022-9-17 21:20编辑过]

2 楼算法中能算核心算法。
修正很简单的啊。要么计算前修正
要么计算后修正。

计算后修正：从 num1 判断起，如果 为 0 ，那么从前面一位借1位来，手动写一个借位减法就是了。

那个核心算法是我在 excel 里用公式简单验算了一下而以。

--------------------------------------------
0 + 0 * 25 + 0 * 25 * 25 + 0 * 25 * 25 *25 = 0
1 + 0 * 25 + 0 * 25 * 25 + 0 * 25 * 25 *25 = 1
25 + 0 * 25 + 0 * 25 * 25 + 0 * 25 * 25 *25 = 25
1 + 1 * 25 + 0 * 25 * 25 + 0 * 25 * 25 *25 = 26
24 + 24 * 25 + 24 * 25 * 25 + 24 * 25 * 25 *25 = 390624
25 + 25 * 25 + 25 * 25 * 25 + 25 * 25 * 25 *25 = 406900

Dim num1 As Long, num2 As Long
Dim num3 As Long, num4 As Long
Dim i As Long

i = Val(Text1.Text)
'If i <= 0 Then Exit Sub       '确保输入为正数

num4 = Int(i / (25 * 25 * 25))
num3 = Int((i - num4 * 25 * 25 * 25) / (25 * 25))
num2 = Int((i - num4 * 25 * 25 * 25 - num3 * 25 * 25) / 25)
num1 = i - num4 * 25 * 25 * 25 - num3 * 25 * 25 - num2 * 25
'num1 或者写成
'num1 = i Mod 25

If num1 = 0 Then   '如果=0,判断一下能不能借位
    If num2 > 0 Or num3 > 0 Or num4 > 0 Then
        num1 = 25               '能借位，进行借位处理
        num2 = num2 - 1
    End If
End If
If num2 < 1 Then        '如果=0 或 -1，需要借位
    If num3 > 0 Or num4 > 0 Then    '能借位，进行借位处理
        num2 = 25 + num2
        num3 = num3 - 1
    End If
End If
If num3 < 1 Then        '同上
    If num4 > 0 Then
        num3 = 25 + num3
        num4 = num4 - 1 
    End If
End If

Label1.Caption = num1
Label2.Caption = num2
Label3.Caption = num3
Label4.Caption = num4

Label5.Caption = num1 & " + " & num2 & " * 25 + " & num3 & " * 25 * 25 + " & num4 & " * 25 * 25 *25 = " & i
Debug.Print Label5.Caption

[此贴子已经被作者于2022-9-18 12:17编辑过]

收到的鲜花

• yuma 于 2022-09-18 13:03 送鲜花  10朵   附言：感谢无私提供代码！

去掉 确保为正数代码后，
输入负数时，会导致 num4 出现负数，并且是一定。
如
24 + 24 * 25 + 24 * 25 * 25 + -1 * 25 * 25 *25 = -1
25 + 23 * 25 + 24 * 25 * 25 + -1 * 25 * 25 *25 = -25

当输入 值超过 406900 时，会导致 num4 超过 25 。这个也应该在 输入时检测一下。

[此贴子已经被作者于2022-9-18 12:40编辑过]

计算机里，一般是后修正，参考 BCD码 及对应的 指令 用法。

感谢B哥无私提供的代码。

此代码我是用来输出 WB 编码的所有组合的。

1-25分别对应A-Y的。

从i= 1 to 406900遍历下去，就是所有 WB 编码，准备用来做个字典用的。

所以i的值是不会取负数的。

使用此算法，遇到进位的问题，总是理不清头绪，得不到正确的结果。

后来想到了取余，但是那只是将十进制计算为25进制数。和项目期望的值不符。

走了很多弯路，都准备放弃了。

这代码提供的，我觉得又可以继续我的项目了

在此表示感谢。

[此贴子已经被作者于2022-9-18 13:35编辑过]