[填空題] 在窗體上有一個(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é)果是 【15】 。

【15】-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ù)輸出。