首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上有一个命令按钮,然后编如下事件过程: 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
34
问题
在窗体上有一个命令按钮,然后编如下事件过程:
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://jikaoti.com/ti/ZFO0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
随机文件使用Put语句写数据,使用【】语句读数据。
在窗体上画两个文本框和一个命令按钮,然后在代码窗口中编写如下事件过程:PrivateSubCommand1_Click()Text1.Text="VBProgramming"Text2.Text=Text1.T
数据的逻辑结构有线性结构和【】两大类。
在窗体上画一个文本框,然后编写如下事件过程。当该程序运行后,如果在键盘上输入字母e,则文本框中显示的内容为______。PrivateSubText1_KeyPress(KeyAsciiAsInteger)Dimcharas
如果在菜单标题的某个字母前面输入一个字符“【】”,就会使该字母成为热键字母;如果建立菜单时,在标题文本框中输入一个字符“【】”,那么菜单显示时就会形成一行分隔符。
在KeyPress事件过程中,KeyAscii是所按键的【】值。
设有如下通用过程:PublicSubFun(a(),ByValxAsInteger)Fori=1To5x=x+a(i)NextEndSub在窗体上画一个名称为Text1的文
退出VisualBasic6.0的快捷键是
在下列4个VisualBasic表达式中,非法的表达式是______。
在考生文件夹下有一个工程文件sj5.vbp,把inl.txt和in2.txt文件中的整数分别读入a1和a2数组中。请先装人工程文件sj5.vbp,然后完成以下操作:在名称为Forml的窗体上画3个命令按钮,其名称为Commandl、Command2和C
随机试题
将200ml蛋白质水解产物直接灌入胃内,对胃酸分泌有何影响?为什么?
关于结节性甲状腺肿继发甲状腺功能亢进的描述中错误的是
外商投资企业盈余公积的内容不包括( )。
根据会计法律制度的规定,单位负责人的直系亲属不得在本单位担任的会计工作岗位是()。
Mrs.Janesgavemusiclessonsataschool.Shehadagoodvoiceandenjoyedsinging,exceptthatsomeofherhightonessoundedlik
尽管物业服务企业对成本的控制各具特色,但一般而言,有效的成本控制都应遵循的原则包括()
Theprojectscheduleismorethanadocumentthatlaysouttheactivitiesovertimetorepresentthetimedimensionoftheproje
有如下类声明:classWhy{intn;public:doubled;protected:longl;floatf;
Comparisonsweredrawnbetweenthedevelopmentoftelevisioninthe20thcenturyandthediffusionofprintinginthe15thand1
Musiccomesinmanyforms;mostcountrieshaveastyleoftheirown.【C1】theturnofthelastcenturywhenjazz(爵士乐)wasborn,A
最新回复
(
0
)