在窗体上有一个命令按钮，然后编如下事件过程： FunctionSR（xAsDouble）AsDouble SelectCa

在窗体上有一个命令按钮，然后编如下事件过程：

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