运行下列程序： Dim t As Integer Private Sub Form_Click()
运行下列程序： 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，输出的结果是【 】。
请帮忙给出正确答案和分析，谢谢！
参考解答
4jj***263
2023-07-21 21:46:08
正确答案：1 10
t为模块级变量，在子函数中计算的结果10改变了主函数中的t值，fun1函数名返回的值为1。
相似问题
窗体上有4个文本框控件数组text1()和一个命令按钮 程序运行前如左图所示 程序运行后如右图所示。
窗体上有4个文本框控件数组text1()和一个命令按钮，程序运行前如左图所示，程序运行后如右图所示。给定的程序不完整，将程序补充完整。 Dim x(3)As
以下程序的功能是 产生10个0～1000的随机整数 放入数组Arr中 然后输出其中的最大值。请完善下
以下程序的功能是，产生10个0～1000的随机整数，放入数组Arr中，然后输出其中的最大值。请完善下列程序。 Option Base 1 Private Sub Form_Click()
Visual Basic识别对象靠的是对象的【 】属性。请帮忙给出正确答案和分析 谢谢！
Visual Basic识别对象靠的是对象的【 】属性。请帮忙给出正确答案和分析，谢谢！
为了使一个标签透明且没有边框 必须将它的【 】属性设置为0 并将BackStyle属性设置为0。请帮
为了使一个标签透明且没有边框，必须将它的【 】属性设置为0，并将BackStyle属性设置为0。请帮忙给出正确答案和分析，谢谢！
为了建立窗体的Click事件过程 即Form_Click 应先在代码窗口的【 】栏中选择Form 然
为了建立窗体的Click事件过程，即Form_Click，应先在代码窗口的【 】栏中选择Form，然后在【 】栏中选择Click。请帮忙给出正确答案和分析，谢谢！
