下列程序的功能是从键盘上任意输入一个数，判断这个数是正数，负数，还是零，并输出判断结果。程序中加框处有错误，请改正。
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）_____________________