前37°探头过正常接头，假如没有缺陷存在，则将依次显示四种波形：螺孔波、轨端顶角反射波、倒打螺孔波、断面颚部反射波。

在窗体上有一个命令按钮Command1，编写下列程序：

Private Sub Command1_Click()

Print pp1(3,7)

End Sub

Public Function pp1(x As Single,n As Integer)As Single

If n=0 Then

pp1=1

Else

If n Mod 2=1 Then

pp1=x*x+n

Else

pp1=x*x-n

End If

End If

End Function

程序运行后，单击该命令按钮，屏幕上显示的是( )。

A．2

B．1

C．0

D．16