求程序代码

来源：百度知道 编辑：UC知道 时间：2024/04/28 12:06:43
我有一组数A（里面包含有8个不相同的正整数），同时输入另一组数B（也输入8个不相同的正整数数），如何用VB实现求B中有多少个数与A中的数相同？即A为（1，2，3，4，5，6，7，8）,B为（2，7，8，10，12，16，21，23）那么结果为3（因为A与B共有2，7，8这3个数相同，因此结果为3）。

dim i,j,k as integer
k=0'用来统计相同的数的个数
Dim a(0 To 7) As integer
Dim b(0 To 7) As integer
a(0) = 1
a(1) = 2
a(2) = 3
a(3) = 4
a(4) = 5
a(5) = 6
a(6) = 7
a(7) = 8
b(0) = 2
b(1) = 7
b(2) = 8
b(3) = 10
b(4) = 12
b(5) = 16
b(6) = 21
b(7) = 23
For i = 0 To 7
for j=0 to 7
if a(i)=b(i) then
k=k+1
next j
next i