for x=0 to i-1
 for y=0 to j-1
  if A(x)=B(y) then 
    print "数组A(";x;")与数组B(";y;")相同"
  else
    print "数组A(";x;")与数组B(";y;")不同"
  end if
 next y
next x
print "数组A(";x;")与数组B(";y;")相同"

解决方案 »

  1.   

    最后一句 print "数组A(";x;")与数组B(";y;")相同"
    不要。不好意思忘了删除了。
      

  2.   

    dim a(1 to 10) as integer
    dim b(1 to 10) as integer
    dim aa(1 to 10) as integer
    dim bb(1 to 10) as integer
    dim i as integer
    dim j as integer
    for i=1 to 10
       for j=1 to 10
           if a(i)=b(j) then
                aa(i)=j
                exit for
           end if
       next j
       if j>10 then
           bb(i)=j
       end if
    next i'aa存放相同的bb存放不相同的