新手学vb VB 中 如何判断两个集合交集的元素个数
Dim a(0 To 6) As Byte: Dim b(0 To 4) As Byte: Dim c(0 To 3) As BytePrivate Sub Command1_Click()
a(0) = 9: a(1) = 1: a(2) = 4: a(3) = 5: a(4) = 7: a(5) = 10: a(6) = 13
arrayb(i) = Text1.Text '给数组a赋值,文本框1中 输入的数据,定义为数组b
If c(m) = a(n) Then
n = 6 - 3 '如果数组a=数组c,那么数组a中只有3个元素
If c(m) = b(i) Then
i = 4 - 1 '如果数组c=数组b,那么数组b中只有3个元素
If a(n) = b(i) Then
Text2.Text = "可以执行" '如果数组a=数组b,那么文本框二 显示 “可以执行”
End If
End If
End If
End Sub
我的本意是想在 文本框1中,随机输入一组数字,比如1,3,5,7,9,然后想知道这个数组b和程序内置数组a 的交集中元素个数是否为3,如果等于,文本框二 就 显示 可以执行。
我不知道,vb中如何判断交集元素的个数,我是初学者,请各位大侠指点。