急,在线等!

Question

哪位高手帮忙解决下,下面的代码提示-----next 没有 for
Function ABC(A As String) As String
Dim i, j As Integer
Dim B As String
For i = 0 To Len(A)
 If Mid(A, i, 1) <> "-" Then
 j = j + 1
 Else
 Exit For
 Next i
B = Left(A, j)
End If
End Function

Answer 1

Function ABC(A As String) As String
    Dim i, j As Integer
    Dim B As String
    
    For i = 0 To Len(A)
        If Mid(A, i, 1) <> "-" Then
            j = j + 1
        Else
            Exit For
        End If
    Next i
    B = Left(A, j)
End Function//大概是这样吧

Answer 2

老马说得对.你的语法写错了.
FOR NEXT 
IF ENDIF
是对应的.你的问题就是把NEXT I放错地方了.