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

教师考试 导游证考试 房产评估类 人资类别 IT计算机证 社会工作 法律类别 职业资格类 外贸类 特种作业考试 交通交规 通信类考试 软考考试 项目管理 计算机等级考试