在窗体上有一个命令按钮，然后编如下事件过程：Function SR( x As Do

问题：

在窗体上有一个命令按钮，然后编如下事件过程：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】 。