新手学vb 请各位老师指点
这个程序的目的是为了实现得到文本框1中的 数组b 和 内置 数组a 的交集,并以交集元素的个数作为 文本框二 显示可以执行的条件。代码如下:Private Sub Command1_Click()
Dim a(0 To 9) As String '定义一个内置的数组
Dim b(0 To 3) As String '文本框中 输入的数组
Dim c() As String '数组a与数组b的交集
Dim m As Byte '定义 数组a的循环变量
Dim n As Byte '定义 数组b的循环变量
Dim i As Byte '定义 交集c的元素数量
a(0) = "01": a(1) = 10: a(2) = 11: a(3) = 35: a(4) = 47: a(5) = 56:
a(6) = 67: a(7) = 76: a(8) = 83: a(9) = 99 '给数组a赋值
b(0) = Mid(Text1.Text, 1, 2): b(1) = Mid(Text1.Text, 4, 2):
b(2) = Mid(Text1.Text, 7, 3): b(3) = Mid(Text1.Text, 10, 3) '给数组b赋值
For m = 0 To 9
For n = 0 To 3
i = 0
If a(m) = b(n) Then
c(i) = a(m): i = i + 1: Exit For
End If
Next n
Next m '循环得到交集 c
If UBound(c) + 1 >= 2 Then '获得交集c中元素的个数
Text2.Text = 可以执行
End If
End Sub
运行时,当我输入 四个两位 的数据,点击按钮 1 显示提示 下标越界。
请求各位达人帮助,我如何才可以达到自己的目的,最好有完整的代码