2. 计算机
  3. 在窗体上有一个命令按钮，然后编如下事件过程： Function SR( x As Double)As Double 　 Select Case Sgn(x) 　　Case 1 　　　　SR=Sqr(x) 　　　　Exit Function 　　Case

在窗体上有一个命令按钮，然后编如下事件过程： Function SR( x As Double)As Double 　 Select Case Sgn(x) 　　Case 1 　　　　SR=Sqr(x) 　　　　Exit Function 　　Case

admin2013-04-11  56
问题 在窗体上有一个命令按钮，然后编如下事件过程：
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 Select
End Function
Private 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 Msg
End Sub
程序运行后，单击命令按钮，在输入对话框内输入－1，输出结果是【  】。
选项
答案-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函数输出。
转载请注明原文地址:https://www.kaotiyun.com/show/s7hp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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