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;")相同"
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;")相同"
解决方案 »
- 大侠帮忙!关于VB调用EXCEL的问题!以前还好好的,不知怎么不行了!
- vb 如何把list.box所有文件的文件名和路径地输进listview控件中
- 想问sql中的标点符号问题
- 利用vb如何获取不同系统的ie cache文件夹,在线等!!
- 带位图图标的菜单,图标能保存在ImageList中吗?
- 关于数据的读取问题
- 招聘 vb程序员2人
- 『求助』VB能否实现获取网页里的数据
- suhu(zym) 还在吗?请回答我的问题。
- VB到底能不能直接编译出二进制的EXE文件?VB中的“本地代码”是怎么一回事?
- 请问VB中有哪些方法可实现从客户端上传文件到WEB服务器?
- 请教,怎样编一个VB程序去接收其它软件的参数列表?
不要。不好意思忘了删除了。
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存放不相同的