(11) 在窗體上有一個命令按鈕，然后編如下事件過程：

　　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】 。

　　正確答案: 1.(-1的平方根是一個虛數)