请达人帮我用VB编写以下程序,谢谢

两个乒乓球队进行比赛，各出三人。甲队为a,b,c三人，乙队为x,y,z三人。已抽签决定 　　　比赛名单。有人向队员打听比赛的名单。a说他不和x比，c说他不和x,z比，请编程序找出 　　　三队赛手的名单。

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