Private Sub Command1_Click()
a = "1,2,3,4,5,6,7,8,9"
b = "2,5,6,7"
c = ""
Dim x() As String, y() As String
Dim k As Integer
x = Split(a, ",")
n = UBound(x)
y = Split(b, ",")
m = UBound(y)
For i = 0 To n
k = InStr(1, b, x(i))
If k = 0 Then
If Len(c) = 0 Then
c = c & x(i)
Else
c = c & "," & x(i)
End If
End If
Next i
Text1.Text = c
End Sub
答案:
c = "1,3,4,8,9"