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

Question

Private Sub Command2_Click()Dim i, j, k As Long, str_all, str1, str2, str3 As Stringstr_all = Text1.TextLTrim$ (str_all)i = 2While Mid$(str_all, i, 1) <> "n"i = i + 1str1 = Left$(str_all, i - 1)k = Len(str1)Wendstr2 = str1For j = 0 To kstr3 = Mid$(str2, j, 3)Select Case str3Case Is = "g00"Text2.Text = str3Case Is = "g01"Text3.Text = str3End SelectNext jEnd SubOPTION EXPLICIT没问题了,就是for-next中的MID依然还是无效的函数或参数,就是FOR -NEXT那段不行,前面的都能运行.你能运行下看行不行吗?

Answer 1

不用$试下吧.
可能与版本有关,它可能没有这个函数.这个我也说不清.

还有,在代码最前加一句:
Option Explicit
这一句一定要加在所有代码的前面.换言之,要写在通用声明里.

改下这句:
For j = 0 To k 
为:For j = 1 To k

Answer 2

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