题目内容:
在窗体上有一个命令按钮,然后编如下事件过程:
FunctionSR(xAsDouble)AsDouble
SelectCaseSgn(x)
Case1
SR=Sqr(x)
ExitFunction
Case0
SR=0
Case-1
SR=-1
EndSelect
EndFunction
PrivateSubCommand1_Click()
DimMsg,SRN
DimNAsDouble
N=InputBox("请输入要计算平方根的数")
Msg=N&"的平方根"
SelectCaseSR(N)
Case0
Msg=Msg&"是0"
Case-1
Msg=Msg&"是一个虚数"
CaseElse
Msg=Msg&"是"&SR(N)
EndSelect
MsgBoxMsg
EndSub
程序运行后,单击命令按钮,在输入对话框内输入-1,输出结果是【15】。
参考答案:
答案解析: