单项选择题

执行下面程序,单击命令按钮Command1后,窗体上显示的内容是()。
Private Sub Command1_Click()
Dim x As Integer,y As Integer
x=-5
If Sgn(x)Then
y=Sgn(x^2)
Else
y=Sgn(x)
End If
Print y
End Sub

A.-5
B.25
C.1
D.-1