溢出问题

Question

代码如下：Dim strCode As String
Dim iCount As Integer
Dim lCount As Long
strCode = 123321
lCount = CInt(strCode)'MsgBox iCount
MsgBox lCount
End Sub
就是要实现将一个全是数字的字符串转换成一个整数。运行结果：溢出？
请大侠指教？令问：
vb中如何对一个字符串进行单个字符的操作！？

Answer 1

1、请注意integer的数值范围
2、CInt()是转换结果为integer,所以会溢出了
3、虽然lCount是long, 不如这样写 lCount=val(strCode)

Answer 2

vsLong = Len(CStr(vsRegTemp))
ReDim TempA(1 To vsLong)这样做可以把vsRegTemp字符串变成一个数组，现在就可以对TempA中每个字符做处理,也就是对一个字符串进行单个字符的操作

Answer 3

怎么用阿！？
得到的Tempa数组里面的内容是什么？

Answer 4

integer  2字节  范围：-32768～32768
long     8字节  范围：-2147483648～2147483648
所以，你的代码会溢出

Answer 5

long     4字节  范围：-2147483648～2147483648

Answer 6

dim str as Stringstr = '123321'dim i as long
dim chr as string
dim ascii as longfor i = 1 to len(str) 
  chr = mid(str,i,1) '得到一个字符
  '处理单个字符  
next i