dim a(1,1),b,i,j ,k as integer
a(0,0)=0
a(0,1)=1
a(1,0)=2
a(1,1)=3
b=inputbox("输入查询数字")
k=0
for i=0 to 1
for j=0 to 1
if b=a(i,j) then
k=1
msgbox(a(i,j))
end if
next
next
if k=0 then msgbox "没找到！"
加个标志位
dim a(1,1),b,i,j ,jg
a(0,0)=0
a(0,1)=1
a(1,0)=2
a(1,1)=3
b=inputbox("输入查询数字")
for i=0 to 1
for j=0 to 1
if b=a(i,j) then
msgbox(a(i,j))
jg=1
end if
next
next
if jg<>1 then magbox("没找到")
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024