有如下的程序：
PrivateSubCommand1_Click()
DimxAsInteger,yAsInteger
a=8
b=3
Calltest(6,a,b+1)
Print"主程序";6;a;b
EndSub
Subtest(xAsInteger,ByValyAsInteger,ByValzAsInteger)
Print"子程序";x;y;z
x=2
y=4
z=3
EndSub
当单击Command1后，运行程序显示的结果是( )