首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上有一个命令按钮,然后编如下事件过程: 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
47
问题
在窗体上有一个命令按钮,然后编如下事件过程:
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全国计算机二级
相关试题推荐
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()x=0DoUntilx=-1a=InputDox("请输入a的值")a=V
假定建立了一个工程,该工程包括两个窗体,其名称(Name属性)分别为Form1和Form2,启动窗体为Form1。在Form1上画一个命令按钮Command1,程序运行后,要求当单击该命令按钮时,Form1窗体消失,显示窗体Form2,请将下面的程序补充
数据流图用于抽象描述一个软件的逻辑模型,数据流图由—些特定的图符构成。下列图符名标识的图符不属于数据流图合法图符的是______。
结构化程序设计主要强调的是______。
双击窗体中的对象后,VisualBasic将显示的窗口是
以下叙述中错误的是______。
在设计应用程序时,通过______窗口可以查看到应用程序工程中的所有组成部分。
设a=4,b=3,c-2,d=1,下列表达式的值是______。a>b+1Orc<dAndbModc
“商品”与“顾客”两个实体集之间的联系一般是______。
两个没有公共属性的关系作自然连接等价于它们作______。
随机试题
计算简答题:根据所给材料回答问题。(需计算后回答的问题须列出算式;每个问题计算过程中的小数均保留实际位数,计算结果有小数的,小数保留2位。)某出版社准备出版一本文学新书《冰点》。助理技术编辑小王为该书拟订了整体设计方案:采用小16开本,勒口平装;
男性30岁,因溃疡病大出血,输入库存血1500ml,发现呼吸深快,有烂苹果味,皮肤青紫,血压12.0/10.0kPa,实验检查血清钾7.0mmol/L,钠135mmol/L,动脉血pH7.2,血浆HCO3-17mmol/L。该病人电解质失衡
李某在一次意外事故中坠下山崖,就此下落不明。现已3年过去,李某的合伙人王某申请宣告其死亡,但李某之妻及其父母、子女坚决不同意。人民法院应如何处理?()。
已知向量组α1=(3,2,一5)T,α2=(3,一1,3)T,,α4=(6,-2,6)T,则该向量组的一个极大线性无关组是()。[2013年真题]
公司用于收购其他公司的资金的来源有()。
设,A*是A的伴随矩阵,则A*x=0的通解是___________。
=__________.
FAXTRANSMISSIONTO:DorothyYostFROM:RamonRiveraDATE:October15RE:WorkshopAsyouknow,saleshaveplummetedoverthe
______isknownasthetornadocapitaloftheworld.
Forthispart,youareallowed30minutestowriteashortessay.Youshouldstartyouressaywithabriefdescriptionofthepi
最新回复
(
0
)