填空题

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