清华大学版VB第二版课件

专业VB课件这个程序的目的是为了实现得到文本框1中的数组b和内置数组a的交集，并以交集元素的个数作为文本框二显示可以执行的条件。代码如下： PrivateSubCommand1_Click() Dima(0To9)AsString'定义一个内置的数组 Dimb(0To3)AsString'文本框中输入的数组 Dimc()AsString'数组a与数组b的交集 DimmAsByte'定义数组a的循环变量 DimnAsByte'定义数组b的循环变