有如下的程序：

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后，运行程序显示的结果是( )

A.子程序643主程序684

B.主程序643子程序684

C.主程序684子程序683

D.子程序684主程序643