帮忙编一个VB程序啊！急急急！

来源：百度知道 编辑：UC知道 时间：2024/05/25 11:53:18
帮忙编一个VB程序
假设有A，B两个集合，A集合的元素有1，2，3，4，5，6，7，8，9，10 B集合的元素有6，7，8，9，10，11，12，13 怎么求他们的交集？？
如果A，B集合的元素没有规律，比如A中的元素是1，65，8，2，3，9 B中的元素是1,5,8,9,0,7,65,32 那应该怎么编？

'只需要在窗体上加三个标签(label1,label2,label3),一个文本框(Text1) 和三个命令按
'钮(command1,command2,command3),粘贴下面代码,运行即可.连续向一个集合输入元素时,可用enter键快速输入

Option Explicit
Dim Str, Tt As String
Dim i, k, j, e, f, A(30), B(30), C(30) As Single

Private Sub command1_Click()
If IsNumeric(Text1.Text) Then
If i = 0 Then
A(i) = Val(Text1.Text)
Str = "集合A={" & A(i) & "}"
Label1.Caption = Str
i = i + 1
Else
Str = "集合A={" & A(0)
A(i) = Val(Text1.Text)
For j = 1 To i
Str = Str & "，" & A(j)
Next j
i = i + 1
Label1.Caption = Str & "}"
End If
End If
Label3.Caption = "交集C="
Text1.Text = ""
Text1.SetFocus
Command1.Default = True
End