[填空题] 运行下列程序： Dim t As Integer Private Sub Form_C1ick( ) t=2 x=Val(InputBox
2021-07-20
[填空题] 运行下列程序：
Dim t As Integer
Private Sub Form_C1ick( )
t=2
x=Val(InputBox("输入一个整数5"))
Print funl(x)；t
End Sub
Private Function funl(v)
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，输出的结果是______。
正确答案：1 10
参考解析：t为模块级变量，在子函数中计算的结果10改变了主函数中的t值，fun1函数名返回的值为1。
词条内容仅供参考，如果您需要解决具体问题
（尤其在法律、医学等领域），建议您咨询相关领域专业人士。