用VB编一个选择交集的程序...急急急

来源：百度知道 编辑：UC知道 时间：2024/05/14 16:04:00
我想弄一个选择两组数据选其中交集的程序,要VB编写的最好,其他的要自己编好可以用也行,程序结果就是用两个框分别放数据选两组里所有的相同数据,比如框一:123 234 567 框二:201 202 203 123 然后算出两个框中相同的数据结果 123.这样的一个程序.
程序实用并且用的方便我会追加分的...
谢谢了

Option Explicit '强制显式声明变量

Private Sub Command1_Click()
Dim A() As String '数组A，存储集合A中的元素
Dim B() As String '数组B，存储集合B中的元素
Dim S As String '字符串
Dim I As Integer '循环变量
Dim J As Integer '空格数
Dim K As Integer '每个数据元素的起始位置

On Error Resume Next '防止因集合A或集合B的元素为空而出错

S = Trim(Text1.Text) '取集合A中数据
If S <> "" Then '集合A、B中应该有数据，因为要做交集比较嘛
J = 0
K = 1
S = S & " " '为了取得最后一个集合元素而在字符串后加一个空格
For I = 1 To Len(S)
If Mid(S, I, 1) = " " Then '集合元素之间以一个空格区分
J = J + 1 '统计空格数
ReDim Preserve A(J) '重新定义数组，保留原数组中的数据
A(J) = Mid(S, K, I