举例
a=西瓜1 菠萝5  蜜桃3
b=菠萝 桔子 西瓜 番茄 苹果 柚子
首先判断a中的水果是否都在b中，b中没有蜜桃，最终返回的结果是“西瓜1 菠萝5  蜜桃3”蜜桃标记为红色加粗字体 其余不变。
帮忙写一段详细的代码，非常感谢。

感谢版主的代码，可能我的意思没有表达清楚
[local]1[/local]
在Text1里面输入“西瓜1 菠萝5 蜜桃3”
按下Command1，Text2得到的结果是“西瓜1 菠萝5 蜜桃3”
Text1里面输入的数据后面都带有空格，但是数量是不确定的，有可能是“西瓜1 菠萝5 蜜桃3”，也有可能是“西瓜2 桔子1 蜜桃4 番茄3”，得出的结果是“西瓜2 桔子1 蜜桃4 番茄3”
也就是说在你的代码里面A的数据和个数都是不确定的，B是确定的。

[此贴子已经被作者于2017-10-15 00:03编辑过]

除了文本框 还有什么控件输出后是可以编辑的呢？

标签不是也只能显示一种颜色么，请问你是怎么把标签1和标签2无缝组合到一起去的呢
另外我按照你的思路把文本框里的数据提取到数组里面了，但是效果和你原本的代码不一样，只要和数组B里面的一个字相同，就到标签1里面去了，帮忙再看一下，谢谢

Private Sub Command1_Click()
Dim B, I As Integer, J As Integer, C() As String, D() As String
Label1.Caption = ""
Label2.Caption = ""
Text1.Text = Replace(Text1.Text, " ", ",")
D() = Split(Text1.Text, ",")
'Print D(3)
B = Array("菠萝", "桔子", "西瓜", "番茄", "苹果", "柚子")
ReDim C(0 To UBound(D))    'C的下标应该与A的下标相同
For I = 0 To UBound(D)
    For J = 0 To UBound(B)
        If InStr(1, D(I), B(J), 1) > 0 Then
        C(I) = "存在"
        End If
    Next J
Next I
For I = 0 To UBound(D)
If C(I) = "存在" Then
RichTextBox1.Text = Label1.Caption & D(I) & Space(1)
ElseIf C(I) = "" Then
Label2.Caption = Label2.Caption & D(I) & Space(1)
End If
Next I
Text1.Text = Replace(Text1.Text, ",", " ")
End Sub

前段时间比较忙，没有仔细调试就匆忙结贴了。今天发现还是老问题，只要后面那个字和数组里面后面的字相同，就被判断为存在了。如“有子8 橘子 系瓜”

[此贴子已经被作者于2017-10-26 23:42编辑过]

与D的下标相同
For I = 0 To UBound(D)
    For J = 0 To UBound(B)
        If InStr(1, D(I), B(J), 0) > 0 Then '比较方式改成二进制就好了
        C(I) = "存在"
        End If
    Next J
Next I