哮证发生的最主要诱因为（）

A.情志所伤

B.劳累过度

C.气候变化

D.饮食不当

E.饮水过多

运行下列程序：
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，输出的结果是______。