单击命令按钮时，下列程序的执行结果为（ ）。 　　Private Sub Command1_Click() 　　　　Dim x As Integer，y As Integer 　　　　x=50：y=78 　　　　Call PPP(x，y) 　　　　Print x；y 　　End Sub 　　Public Sub PPP(ByVal n As Integer，ByValm As Integer) 　　　　n=n\10 　　　　m=m\10 　　End Sub

A． Function CT(ByVal a As Integer)　　　　If a Mod 2=0 Then　　　　　Return 0　　　　ElSe　　　　　Return 1　　　　End if　　End Function
B． Function CT(ByVal a As Integer)　　　If a Mod 2=0 Then　　　　CT=0　　　Else　　　　CT=1　　　End if　　End Function
C． Function CT(ByVal a As Integer)　　　If a Mod 2=0 Then　　　　　CT=1　　　Else　　　　　CT=0　　　End if　　End Function
D． Function CT(ByVal a As Integer)　　　If a Mod 2=0 Then　　　　　Return 1　　　Else　　　　　Return 0　　　End if　　End Function

A．Dim pi As Integer
B．Dim pi(7)As Integer
C．Dim pi As Single
D．Dim pi As Long