如上图所示，text1用户输入需要处理的数据
text2 由用户输入 需要去除的数据
text3 接收 处理数据的结果
下面举个例子 比如 text 输入 1
点击 开杀 后 text 3 显示的是 所有不包含1的数据
所显示的结果如下
00 03 04 05 06 08 23 24 26 27 28 30 32 33 34 35 36 37 43 44 45 46 47 49 50 53 54 55 58 59 60 62 63 64 65 68 70 72 74 76 77 78 79 80 82 83 84 85 86 87 88 89 90 91 92 93 94 95 98 99
答案：Private Sub Command1_Click()
st = Split(Trim(Text1.Text), " ")
For i = 0 To UBound(st)
If InStr(Val(st(i)), "1") = 0 Then s = st(i) & " " & s
Next
Text2.Text = s
End SubPrivate Sub Form_Load()
For i = 10 To 50
s = CStr(i) & " " & s
Next
Text1.Text = s
End Sub假设开杀是 Command1，代码如下：
Private Sub Command1_Click()
Dim xArr() As String
Dim xStr As String
Dim i As Integer
xArr = Split(Text1.Text, " ")
For i = 0 To UBound(xArr)
If InStr(xArr(i), Text2.Text) = 0 Then xStr = xStr & " " & xArr(i)
Next i
Text3.Text = Right(xStr, Len(xStr) - 1)
End Sub
