填空题

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