VB溢出错误，求代码修改。

Question

运行VB小程序，计算大约10次，程序就报错，显示实时错误“6”溢出，要重启程序才可以正常运行，再运行10次左右再报错，很麻烦，麻烦VB高手帮我修改下错误代码。程序显示的错误之处看图片。所有代码如下，Option ExplicitDim StrTmp() As String, StrLen As Integer, TmpIndex As IntegerPublic Function CompareArrEx(ByVal Arr1 As String, ByVal Arr2 As String, ByVal DelimiTer) As String Dim aStr() As String, bStr() As String, TmpStr As String Dim i As Integer, n As Integer aStr = Split(Arr1, DelimiTer) bStr = Split(Arr2, DelimiTer) For i = 0 To UBound(aStr) StrLen = Len(aStr(i)) ReDim StrTmp(TmpIndex) StrCombin (aStr(i)) TmpStr = Join(StrTmp, DelimiTer) For n = 0 To UBound(bStr) If InStr(TmpStr, bStr(n)) <> 0 Then Exit For Next n If n = UBound(bStr) + 1 Then If CompareArrEx = vbNullString Then CompareArrEx = aStr(i) Else CompareArrEx = CompareArrEx & DelimiTer & aStr(i) End If End If Next iEnd FunctionPrivate Sub StrCombin(ByVal Str As String) Dim i As Integer Dim Tmp As String If Len(Str) = 0 Then If UBound(StrTmp) <> 0 Then StrTmp(TmpIndex) = Mid(StrTmp(TmpIndex - 1), 1, StrLen - Len(StrTmp(TmpIndex))) & StrTmp(TmpIndex) End If TmpIndex = TmpIndex + 1 ReDim Preserve StrTmp(TmpIndex) Exit Sub End If For i = 1 To Len(Str) Tmp = Mid(Str, i, 1) StrTmp(TmpIndex) = StrTmp(TmpIndex) & Tmp StrCombin Replace(Str, Tmp, "") Next End SubPrivate Sub Command1_Click()Text3 = CompareArrEx(Text1.Text, Text2.Text, " ")End Sub

Answer 1

TmpIndex是Integer型，范围是-32768到32767，如果出现“溢出”错误，那就表示TmpIndex的值超出这个范围了。如果是运行多次后才出错，那么最大的可能就是在每次运行时没有把TmpIndex清零，这样累积多次后就超出范围了。如果不是这个问题，那么可以把它改为Long型（最大值可以达21亿多）再试试。

追问

我不会改，不懂，麻烦谁会帮我直接改下，或者告诉我，哪里需要替换成别的，代码告诉我谢谢。

追答

需要看到你完整的代码才能给你改。如果想简单地避开溢出错误，可以把第二行的TmpIndex As Integer改为TmpIndex As Long

Answer 2

dim tmpIndex as long 就可以了， 超过integer能表示的最大范围了。

追问

我不会改，不懂，麻烦谁会帮我直接改下，或者告诉我，哪里需要替换成别的，代码告诉我谢谢。

追答

看图，这样改：

Answer 3

tmpindex超出integer的定义范围了。把tmpindex定义为long型吧

追问

我不会改，不懂，麻烦谁会帮我直接改下，或者告诉我，哪里需要替换成别的，代码告诉我谢谢。

Answer 4

Dim StrTmp() As String, StrLen As Integer, TmpIndex As Integer
改成
Dim StrTmp() As String, StrLen As Integer, TmpIndex

Answer 5

把代码贴过来我调试下。