下面子过程语句说明合法的是( )。 A: Sub f1(ByValx() As Intege B: Subf1(x%())As Integer C: Functionf1%(f1%) D: Functionf1%(x As Intege

运行以下程序，单击命令按钮Command1，窗体上显示（）。PrivateSubpt(ByValx%,ByRefy%)x=x+2y=y+3EndSubPrivateSubCommand1_Click()Dimx%,y%x=1:y=2Callpt(x,y)Form1.Printx;yEndSub