[填空題] 在窗體上有一個(gè)命令按鈕，然后編如下事件過(guò)程：　　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("請(qǐng)輸入要計(jì)算平方根的數(shù)")　　　Msg=N&"的平方根"　　　Select Case SR(N)　　　　　　Case 0　　　　　　　　Msg=Msg &"是0"　　　　　　Case-1　　　　　　　　Msg=Msg&"是一個(gè)虛數(shù)"　　　　　　Case ElSe　　　　　　　　Msg=Msg &"是"& SR(N)　　　End Select　　　MsgBox Msg　　End Sub　　程序運(yùn)行后，單擊命令按鈕，在輸入對(duì)話框內(nèi)輸入－1，輸出結(jié)果是【 】。

-1的平方根是一個(gè)虛數(shù)

在Sub過(guò)程中，定義了一個(gè)Double型變量N，并調(diào)用InputBox函數(shù)，給 N 賦值，即將從對(duì)話框中輸入的 -1 賦給N；通過(guò)運(yùn)算符“&”，將N與字符串“的平方根”連接起來(lái)并賦給Msg；在條件塊語(yǔ)句中將N作為參數(shù)，調(diào)用SR事件過(guò)程，將Function過(guò)程的返回值作為測(cè)試表達(dá)式；在SR函數(shù)中，調(diào)用Sgn函數(shù)測(cè)試x的值為正數(shù)還是負(fù)數(shù)，如果是正數(shù)，那么就執(zhí)行條件塊語(yǔ)句中的SR=Sqr(x)，即將x的平方根作為返回值，如果x值為零，Sp函數(shù)返回值為零，那么就將0作為返回值；如果為負(fù)數(shù)，Sgn函數(shù)返回值為- 1，SR=-1，即將-1作為返回值；在Sub程序的條件塊語(yǔ)句中，根據(jù)SR返回值的不同，執(zhí)行不同操作，當(dāng)返回值為0，將Msg字符串加“是0”，賦給Msg，如果是-1，將Msg加“是一個(gè)虛數(shù)”賦給Msg，當(dāng)為其他時(shí)，即在平方根時(shí)，將字符串Msg加“是”，再加上這個(gè)數(shù)的平方根賦給Msg，并用MsgBox函數(shù)輸出。