运行下列程序：
Dim t As Integer
Private Sub Form_Click()
　　t = 2
　　x = Val(InputBox("输入一个整数5"))
　　Print fun1(x); t
End Sub
Private Function fun1(y)
　　If y ＞ 0 Then
　　　　fun1 = 1: t = 10
　　ElseIf y = 0 Then
　　　　fun1 = 0: t = 20
　　Else
　　　　fun1 = -1: t = 30
　　End If
End Function
从键盘为变量x输入数据5，输出的结果是______。