不会。求解答。小白

dim a as integer,b as integer,c as integer
const x=1,y=2,z=3
'变量a,b,c表示新郎，常量x,y,z表示新娘，新郎的值等于新娘，就表示这两个人结婚
for a=1 to 3
for b=1 to 3
for c=1 to 3
if a<>x and c<>x and c<>z and a<>b and a<>c and b<>c then
?"a与";choose(a,"x","y","z");"结婚"
?"b与";choose(b,"x","y","z");"结婚"
?"c与";choose(c,"x","y","z");"结婚"
exit sub
endif
next c,b,a

VB里面直接写？