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