已知条件：
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：这个等式把我绕晕了，求解。

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

就是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编辑过]

算法有问题

此题作废

重新设计算法。

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

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

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

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

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

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

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

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

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

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

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

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

在此表示感谢。

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

将int去掉，将 “/”号 换成 “\”号，代码更简洁。

我用的是这个，你这个代码比较难理解。

Function GetStr(Num)
Select Case Num
Case 1: GetStr = "A"
Case 2: GetStr = "B"
Case 3: GetStr = "C"
Case 4: GetStr = "D"
Case 5: GetStr = "E"
Case 6: GetStr = "F"
Case 7: GetStr = "G"
Case 8: GetStr = "H"
Case 9: GetStr = "I"
Case 10: GetStr = "J"
Case 11: GetStr = "K"
Case 12: GetStr = "L"
Case 13: GetStr = "M"
Case 14: GetStr = "N"
Case 15: GetStr = "O"
Case 16: GetStr = "P"
Case 17: GetStr = "Q"
Case 18: GetStr = "R"
Case 19: GetStr = "S"
Case 20: GetStr = "T"
Case 21: GetStr = "U"
Case 22: GetStr = "V"
Case 23: GetStr = "W"
Case 24: GetStr = "X"
Case 25: GetStr = "Y"
End Select
End Function

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

她这种还要减去16276，猛一看莫名奇妙。B的算法OK，更符合题目要求。

chr(65) - chr(89) 就是 A -Y

代码中 1-25 是 A-Y

那么

Debug.Print chr(num1+64) & chr(num2+64) & chr(num3+64) & chr(num4+64)

是不是比wmf2014还要简单。

这里也要考虑一下值为0和1的情况。


---------------------------------------
现在看来，方法有好几种
可以出好几种代码
最终结果都是一样的。

[此贴子已经被作者于2022-9-19 00:57编辑过]