下列程序的功能是从键盘上任意输入一个数，判断这个数是正数，负数，还是零，并输出判断结果。程序中横线处有错误，请改正。【根据2011年高考总复习填空题改编】

    Private sub Command1_Click()

        Dim a As Single

        Dim py As String

            a= Val (Text1)  （1）

           If a>0 Then py =”正数”

           If a=0 Then py=”零”

           If a<0 Then py=”负数”

             Label3.Caption=a（2）

     End Sub