VB 如何求交集

VB 如何求交集

dim jj() as integer,j as integer
dim t as string
j=0
for i=1 to 20
t=Trim(str(a(i)))
if instr(TEXT,t)>0 then
j=j+1
redim Preserve jj(j)
jj(j)=a(i)
end if
next
执行完毕后，jj()即是你所谓的交集

我测试时的代码：
Private Sub Command1_Click()
Dim a(20), i As Integer
Text = "1,2,5,8,4"
For i = 1 To 20
a(i) = i
Next i

Dim jj() As Integer, j As Integer, s As String
Dim t As String
j = 0
For i = 1 To 20
t = Trim(Str(a(i)))
If InStr(Text, t) > 0 Then
j = j + 1
ReDim Preserve jj(j)
jj(j) = a(i)
s = s & t & ","
End If
Next

MsgBox "交集：" & s
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息