卢恩算法不起作用

Question

我在为学校编写的程序中遇到了问题。我需要使用 Luhn 算法验证信用卡号码，但是我在让算法的逻辑正常工作方面遇到了一些困难。我相信我知道问题出在哪里，但我无法解决它。

我相信问题出在这里：

For i = 0 To cardInput.Text.Length - 2 Step -2
    Dim x = (i * 2)
    If x > 9 Then
        x = x - 9
    End If
    oddTotal += x
Next

'Sum of undoubled digits
For i = 0 To cardLength - 1 Step -2
    evenTotal += i
Next

total = oddTotal + evenTotal

checkSum = total

infoOutput.Items.Add("CheckDigit: " & checkDigit)
infoOutput.Items.Add("CheckSum :" & checkSum)

'Verify that the card is valid by the Mod 10 (Lund algoritm)
If checkSum = checkDigit Or checkSum = 0 Then
    valid = True
Else
    valid = False
End If

如果需要，我的项目的其余部分可以看到here

我的代码似乎不是从最后一个数字开始，而是每隔一个数字回到开头以加倍。 Step -2 运算符在这里不正确吗？我做错了什么？

Answer 1

这里有几个问题。特别是：

如果你想让一个循环倒数，你必须从较高的索引开始，到较低的索引结束。所以：

For i = cardInput.Text.Length - 2 To 0 Step -2

那么，不要直接使用i，而应该使用i-ith 数字：

Dim x = Val(cardInput.Text(i))

这同样适用于您的偶数总和。

如果要检查最后一位是否为零，请使用Mod 运算符：

valid = (checkSum Mod 10 = 0)