运行下列程序： Dim t As Integer Private Sub Form_Click() t = 2 x=Val(InputBox("输入一个整数5")) Print funl(x); t E

admin2013-01-23 55

问题运行下列程序：
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，输出的结果是【  】。

选项

答案1 10

解析 t为模块级变量，在子函数中计算的结果10改变了主函数中的t值，fun1函数名返回的值为1。

转载请注明原文地址:https://kaotiyun.com/show/iuhp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类