首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上有一个命令按钮,然后编如下事件过程: Function SR( x As Double)As Double Select Case Sgn(x) Case 1 SR=Sqr(x) Exit Function Case
在窗体上有一个命令按钮,然后编如下事件过程: Function SR( x As Double)As Double Select Case Sgn(x) Case 1 SR=Sqr(x) Exit Function Case
admin
2013-04-11
49
问题
在窗体上有一个命令按钮,然后编如下事件过程:
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,输出结果是【 】。
选项
答案
-1的平方根是一个虚数
解析
在Sub过程中,定义了一个Double型变量N,并调用InputBox函数,给 N 赋值,即将从对话框中输入的 -1 赋给N;通过运算符“&”,将N与字符串“的平方根”连接起来并赋给Msg;在条件块语句中将N作为参数,调用SR事件过程,将Function过程的返回值作为测试表达式;在SR函数中,调用Sgn函数测试x的值为正数还是负数,如果是正数,那么就执行条件块语句中的SR=Sqr(x),即将x的平方根作为返回值,如果x值为零,Sp函数返回值为零,那么就将0作为返回值;如果为负数,Sgn函数返回值为- 1,SR=-1,即将-1作为返回值;在Sub程序的条件块语句中,根据SR返回值的不同,执行不同操作,当返回值为0,将Msg字符串加“是0”,赋给Msg,如果是-1,将Msg加“是一个虚数”赋给Msg,当为其他时,即在平方根时,将字符串Msg加“是”,再加上这个数的平方根赋给Msg,并用MsgBox函数输出。
转载请注明原文地址:https://kaotiyun.com/show/s7hp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
关系操作的特点是【】操作。
以下程序的功能是:生成20个200~300之间的随机整数,输出其中能被5整除的数并求出它们的和。请填空。PrivateSubCommand1_Click()Fori=1To20
在关系数据库中,用来表示实体之间联系的是______。
表达式4+5\6*7/8Mod9的值是______。
算法的基本特征是可行性、确定性、【】和拥有足够的情报。
设a="a",b="b",c="c",d="d",执行语句x=IIF((a<b)Or(c>d),"A","B")后,x的值为
软件工程的需求分析阶段的主要任务是明确系统的______。
刚建立一个新的标准EXE工程后,出现在工具箱中的控件是______。
若按功能划分,软件测试的方法通常分为白盒测试方法和______测试方法。
InputBox函数返回值的类型为【】。
随机试题
金黄色葡萄球菌感染常引起()
下列哪一项是导致患者依从性差的主要原因
癫痫持续状态的首选药物是
[背景资料]某新建图书馆工程,采用公开招标的方式,确定某施工单位中标,双方按《建设工程施工合同(示范文本)》(GF—2013—0201)签订了施工总承包合同。合同约定总造价14250万元,预付备料款2800万元,每月底按月支付施工进度款。竣工结算时,结算
物流信息管理包括()。
下列选项中,不符合平等尊重要求的是()
EPQ的记分步骤并不包括()。
其实稍微对电影艺术有些认识的人就不会在票房与影片质量之间画等号。电影票房与影片质量长期不成比例,对一个国家的电影产业来说是一件灾难的事情,首先这会抑制有责任感的电影人的创作激情,其次还会培养观众的审美惰性,从而让他们失去对影片质量的辨别能力,让更多的烂片找
民法是调整平等主体的公民之间、法人之间、公民和法人之间的财产关系和人身关系的法律规范。下列选项属于民法必须遵循的原则是
着物姿の洋子ちゃんはとてもきれいです。
最新回复
(
0
)