vb6.0内存溢出

Question

请高手看看问如下代码内存溢出：

Public Function GetHByPos(ByRef vCell As GSCell, ByVal vStr As String, ByRef iNum As Integer) As Integer
'Note:Add by braveboy at 20040525
'Description:通过单元格位置获取单元格行号
On Error GoTo Err1
Dim i As Integer
Dim sLabel As String
Dim sData, iPos As Integer
For i = Len(vStr) To 1 Step -1
    If Not IsNumeric(Mid(vStr, i, 1)) Then Exit For
Next
If i < Len(vStr) Then
    sLabel = right(vStr, Len(vStr) - i)
Else
    GetHByPos = -1
    Exit Function
End If

For i = 0 To vCell.Rows - 2
    vCell.DoGetCellData -1, i, sData
    iPos = InStr(1, sData, ".")
    If iPos > 1 Then
        If Trim(left(sData, iPos - 1)) = Trim(sLabel) Then iNum = iNum + 1
    End If
    If Trim(sData) = Trim(sLabel) Then
        GetHByPos = i
        Exit Function
    End If
Next
GetHByPos = -1
Err1:
    PrintErr Err.Description, "GetHByPos"
End Function

如上代码会溢出，请高手看看那里有问题

---

scott

Answer 1

我想提醒楼主的是：这里是C#版块，您是不是发错地方了？