题目内容
（请给出正确答案）
[主观题]
He ______________ in real estate.
A、made fortunate
B、made a fortune
C、made advantages
D、made benefits
提问人：网友hj149996603
发布时间：2022-01-07
如搜索结果不匹配，请 
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】 。
