小弟刚学VB，有个难题请教大家！

Question

在text里输入数字，然后用数字计算校正码：校正码产生的公式：a=(d1+d2+d3....+dn) mod 10
                  di为第i位数
                  例如，输入12，则校正码位a=(1+2)mod10=3我想问下，我用的是MID()函数来获取TEXT里的每个数字，但是不知道用什么方法来进行加法运算！谢谢各位哥哥们了！

Answer 1

用val,或Cint或Clng等函数将取出的数字字符串转换成数值

Answer 2

Private Sub Command1_Click()
    Dim array1() As Integer
    Dim I As Integer
    Dim J As Integer
    Dim Str As String
    Str = Trim(Text1.Text)
    If IsNumeric(Trim(Text1.Text)) Then
        J = Len(Str)
        ReDim Preserve array1(J)
        For J = 1 To Len(Str)
            array1(J) = CInt(Mid(Str, J, 1))
            I = I + array1(J)
        Next
    Debug.Print I
    Else
    MsgBox "請輸入數值!", vbOKOnly, "提示:"
    End If
End Sub
記得給分了