Question

vb比较两个数组，输出不同的数据？

以下是输出相同的，我要的是输出不同的值。Function f(A As String, B As String) As IntegerDim s() As String, I%, J%Dim y() As StringDim ss As StringText3.Text = ""s = Split(A, " ")y = Split(B, " ")For I = 0 To UBound(s)For J = 0 To UBound(y)If Val(s(I)) = Val(y(J)) Thenss = ss & " " & s(I)GoTo hEnd IfNext Jh: Next IText3.Text = ssEnd Function

Answer 1

Function f(A As String, B As String) As Integer
Dim s() As String, I%, J%
Dim y() As String
Dim ss As String
Text3.Text = ""
s = Split(A, " ")
y = Split(B, " ")
For I = 0 To UBound(s)
For J = 0 To UBound(y)
If Val(s(I)) = Val(y(J)) Then Exit For
Next J
If J > UBound(y) Then ss = ss & " " & s(I)
Next I
Text3.Text = ss
End Function