下列程序的功能是从键盘上任意输入一个数,判断这个数是正数,负数,还是零,并输出判断结果。程序中加框处有错误,请改正。
Private sub Command1_Click()
Dim a As Single
Dim py As String
a=

(1)
If a>0 Then py =”正数”
If a="0" Then py=”零”
If a<0 Then py=”负数”

(2)
End Sub
(1)_____________________
(2)_____________________