与肾上腺素比较，异丙肾上腺素不具备的作用是（）。

A.松弛支气管平滑肌

B.抑制肥大细胞释放过敏性物质

C.收缩支气管黏膜血管

D.激动β₂受体

E.激动β₂受体

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