如何将字符串数组的每个元素转换为整数？ （VB）

Question

对于我目前的任务，我必须使用数组读取8位数的卡号。我在代码的开头声明了我的数组：

Dim LoyaltyCardDigits(8) As Integer

我将其声明为整数的原因是因为我需要在读入后对这些数组元素进行计算。 我从文本框中读取8个字符，然后将这些字符分配给变量。

CardNumber = txtCardNumber.Text

我将这些字符分配给数组元素;但这是我的问题，我被困住了。

Private Sub btnSubmitDetails_Click(sender As Object, e As EventArgs) Handles btnSubmitDetails.Click

    For Counter = 1 To 8
        LoyaltyCardDigits(Counter) = Mid(CardNumber, Counter, 1)
    Next Counter

总而言之，我想要一个将数组元素从字符串转换为整数的解决方案，以便我可以执行计算。我没有必要担心验证，因为我已经编码了它。由于我对VB非常陌生，我希望如果有任何帮助尽可能简化，但我显然会接受任何有用的东西。

Answer 1

你说你已经完成了验证，所以尝试类似：

Private Sub btnSubmitDetails_Click(sender As Object, e As EventArgs) Handles btnSubmitDetails.Click
    If CardNumber.Length = 8 Then
        For i As Integer = 0 To 7
            LoyaltyCardDigits(i) = CInt(CardNumber.Substring(i, 1))
        Next

        ' ... now do something with LoyaltyCardDigits ...

    End If
End Sub