小弟刚学VB，有个难题请教大家！
在text里输入数字，然后用数字计算校正码：
校正码产生的公式：a=(d1+d2+d3....+dn) mod 10
di为第i位数
例如，输入12，则校正码位a=(1+2)mod10=3
我想问下，我用的是MID()函数来获取TEXT里的每个数字，但是不知道用什么方法来进行加法运算！
谢谢各位哥哥们了！
[解决办法]
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
記得給分了
