长整型报错???

Question

Dim plength, i As IntegerDim masterpass, pwd As String
Dim jj As Double
 pwd = Text1.Text
 
 plength = Len(pwd)
jj = 89
 
 If plength > 0 Then
 
  pwd = pwd + Left("        ", 8 - plength)
   
  plength = Len(pwd)
   
 For i = 1 To plength
    MsgBox Asc(Mid(pwd, i, 1)) * i * 256
     jj = jj + Asc(Mid(pwd, i, 1)) * i * 256 - i * i
      'MsgBox jj
   Next
   
   masterpass = CStr(j)
    If Len(masterpass) > 8 Then masterpass = CStr(CInt(Left(masterpass, 8)) + CInt(Mid(masterpass, 9, 10)))
 
 End If 
 End If我在textbox输入123时，循环到第三步，Asc(Mid(pwd, i, 1)) * i * 256就报错，溢出??

Answer 1

Dim plength, i As Integer
这样只有i是Integer，plength是Variant
Integer也不是长整型，是16位的
32整型应该用Long