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

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

admin2013-01-23  31
问题 运行下列程序：
   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://jikaoti.com/ti/jwO0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)