首页 > 计算机 > 计算机考试 正文

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

时间:2021-07-20 18:23:16 解答: 80 次

[填空题] 运行下列程序:

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,输出的结果是 【8】

正确答案:

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

  • 相关题库

请充值VIP继续使用(未注册用户支付后会自动注册登录)

×

95元 29元

VIP截止日期:2025-01-01 02:28:26

←请使用支付宝扫码支付

95元 29元

VIP截止日期:2025-01-01 02:28:26

←请使用微信扫码支付