[填空题] 在窗体上有一个命令按钮,然后编如下事件过程:Function SR( x As Double)As Double  Select Case Sgn(x)  Case 1    SR=Sqr

[填空题] 在窗体上有一个命令按钮,然后编如下事件过程:Function SR( x As Double)As Double  Select Case Sgn(x)  Case 1    SR=Sqr,第1张

[填空题] 在窗体上有一个命令按钮,然后编如下事件过程:Function SR( x As Double)As Double  Select Case Sgn(x)  Case 1    SR=Sqr

[填空题] 在窗体上有一个命令按钮,然后编如下事件过程:Function SR( x As Double)As Double  Select Case Sgn(x)  Case 1    SR=Sqr(x)    Exit Function  Case 0 SR=0  Case-1   SR=-1  End SelectEnd FunctionPrivate Sub Command1 _ Click( )  Dim Msg,SRN  Dim N AS Double  N=InputBox("请输入要计算平方根的数")  Msg=N&"的平方根"  Select Case SR(N)    Case 0     Msg=Msg &"是0"    Case-1      Msg=Msg&"是一个虚数"    Case ElSe      Msg=Msg &"是"& SR(N) End Select   MsgBox MsgEnd Sub程序运行后,单击命令按钮,在输入对话框内输入-1,输出结果是 【15】

正确答案:

【15】-1的平方根是一个虚数

参考解析:

解析:在Sub过程中,定义了一个Double型变量N,并调用InputBox函数,给 N 赋值,即将从对话框中输入的 -1 赋给N;通过运算符“&”,将N与字符串“的平方根”连接起来并赋给Msg;在条件块语句中将N作为参数,调用SR事件过程,将Function过程的返回值作为测试表达式;在SR函数中,调用Sgn函数测试x的值为正数还是负数,如果是正数,那么就执行条件块语句中的SR=Sqr(x),即将x的平方根作为返回值,如果x值为零,Sp函数返回值为零,那么就将0作为返回值;如果为负数,Sgn函数返回值为- 1,SR=-1,即将-1作为返回值;在Sub程序的条件块语句中,根据SR返回值的不同,执行不同 *** 作,当返回值为0,将Msg字符串加“是0”,赋给Msg,如果是-1,将Msg加“是一个虚数”赋给Msg,当为其他时,即在平方根时,将字符串Msg加“是”,再加上这个数的平方根赋给Msg,并用MsgBox函数输出。

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/zaji/5473826.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2022-12-12
下一篇 2022-12-12

发表评论

登录后才能评论

评论列表(0条)

保存