例：
dim r(4),v(5)
v(1)=3:v(2)=5:v(3)=6:v(4)=9:v(5)=10
cls
for a=1 to 5:for b=1 to 5:for c=1 to 5:for d= 1 to 5
r(1)=v(a):r(2)=v(b):r(3)=v(c):r(4)=v(d)
[color=red]if (r(1) and r(2) and r(3) and r(4))=0 and ((r(1) and r(2) and r(3))<>0) + ((r(1) and r(2) and r(4))<>0)+ ((r(1) and r(3) and r(4))<>0)+ ((r(2) and r(3) and r(4))<>0)=-1 and (r(1) and 8)<>0 and (r(4) and 8)=0 and (r(1) and r(4))<>0 and (r(2) and 8)=0 and ((r(1) and r(2))<>0) and ((r(2) and r(3))<>0) and (r(1) and r(3))=0 and (r(2) and r(3) and (4))=0 then[/color]
    for i=1 to 4
      print mid$(" 甲乙丙丁",i*2,2);"懂得";
      print rtrim$(mid$("    中文英语法文日语",((r(i) and 1)*4)+1 ,4));
      print rtrim$(mid$("    中文英语法文日语",((r(i) and 2)*4)+1 ,4));
      print rtrim$(mid$("    中文英语法文日语",((r(i) and 4)*3)+1 ,4));
      print rtrim$(mid$("    中文英语法文日语",((r(i) and 8)*2)+1 ,4))
    next
      print
      print "或者"
      print
end if
next d,c,b,a
中的哪个if要改：
if (r(1) and r(2) and r(3) and r(4))=0 and ((r(1) and r(2) and _
r(3))<>0) + ((r(1) and r(2) and r(4))<>0)+ ((r(1) and r(3) and _
r(4))<>0)+ ((r(2) and r(3) and r(4))<>0)=-1 and (r(1) and 8)<>0 and _
(r(4) and 8)=0 and (r(1) and r(4))<>0 and (r(2) and 8)=0 and _
((r(1) and r(2))<>0) and ((r(2) and r(3))<>0) and (r(1) and r(3))=0 _
and (r(2) and r(3) and (4))=0 then
请直接用bc/link编译