运行下列程序: 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 Thenfun1 = 1: t=10 Else If y=0 Thenfun1 = 0: t=20 Elsefun1 =
主观题
运行下列程序: 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 Thenfun1 = 1: t=10 Else If y=0 Thenfun1 = 0: t=20 Elsefun1 =