[求助] 新手求助 请朋友们帮我看看 这段代码是哪里错了 谢谢
不知道 为什么 一运行 就死掉 我不知道 是哪里错了 请朋友们 帮我看看 谢谢 大家了 (就15分了) txtjg.text"000 001 010 011 100 101 110 111"
chklm(0) caption(00) chklm(1) caption(01)
Dim sTmp As String
Dim aStr() As String
Dim aRet() As String
Dim i, j As String
sTmp = txtjg.Text
aStr = Split(txtjg.Text, " ")
While sTmp <> ""
For i = 0 To 1
If optlmpc.Value = True Then
If chklm(i) = 1 Then
j = chklm(i).Caption
aRet = Filter(aStr, j, False)
End If
End If
Next
Wend
txtjg.Text = Join(aRet, " ")