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那段不行,前面的都能運行.你能運行下看行不行嗎?
添加回答
舉報
0/150
提交
取消