Dim a(0 To 6) As Byte: Dim b(0 To 4) As Byte: Dim c(0 To 3) As Byte
Private 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中如何判断交集元素的个数，我是初学者，请各位大侠指点。