private sub form_click()
dim a as integer,b as integer,c as integer
'1,2,3分别模拟甲队所对阵的乙队队员x,y,z三人
for a = 1 to 3
for b = 1 to 3
for c = 1 to 3
if a<>1 and c <> 1 and c<> 3 and a <> b and a <> c and b <> c then
print "两队的对阵情况如下:"
print "a" & "对" chr(Asc("x")-1 + a)
print "b" & "对" chr(Asc("x")-1 + b)
print "c" & "对" chr(Asc("x")-1 + c)
end if
next
next
next
end sub