急,在线等!

[laji2000]

哪位高手帮忙解决下,下面的代码提示-----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

[laji2000]

要交作业，大家帮个忙啊

[嗷嗷叫的老马]

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

//

大概是这样吧

[XING979020]

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