栏目分类:
子分类:
返回
名师互学网用户登录
快速导航关闭
当前搜索
当前分类
子分类
实用工具
热门搜索
名师互学网 > IT > 面试经验

[填空题] 运行下列程序: Dim t As Integer Private Sub Form_C1ick( ) t=2 x=Val(InputBox("输入一个整数5"

面试经验 更新时间: 发布时间: IT归档 最新发布 模块sitemap 名妆网 法律咨询 聚返吧 英语巴士网 伯小乐 网商动力

[填空题] 运行下列程序:  Dim t As Integer  Private Sub Form_C1ick(  )  t=2  x=Val(InputBox("输入一个整数5"

[填空题] 运行下列程序:
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。
转载请注明:文章转载自 www.mshxw.com
本文地址:https://www.mshxw.com/it/261942.html
我们一直用心在做
关于我们 文章归档 网站地图 联系我们

版权所有 (c)2021-2022 MSHXW.COM

ICP备案号:晋ICP备2021003244-6号