为什么一直提醒我str3 = Mid$(str2, j, 3)没定义？？ ？

Question

Private Sub Command2_Click()
Dim i, j, k As Long, str_all, str1, str2, str3 As String
str_all = Text1.Text
LTrim$ (str_all)
i = 2
While Mid$(str_all, i, 1) <> "n"
i = i + 1
str1 = Left$(str_all, i - 1)
k = Len(str1)
Wend
str2 = str1
For j = 0 To k
str3 = Mid$(str2, j, 3)
Select Case str3
Case Is = "g00"
Text2.Text = str3
Case Is = "g01"
Text3.Text = str3
End Select

Next j

End Sub
OPTION EXPLICIT没问题了,就是for-next中的MID依然还是无效的函数或参数,就是FOR -NEXT那段不行,前面的都能运行.你能运行下看行不行吗?

Answer 1

不用$试下吧.可能与版本有关,它可能没有这个函数.这个我也说不清.还有,在代码最前加一句:Option Explicit这一句一定要加在所有代码的前面.换言之,要写在通用声明里.改下这句:For j = 0 To k&nbsp;为:For j = 1 To k

Answer 2

把Dim i, j, k As Long去了事实有时候用FOR定义反而不好．