首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个名称为Command1的命令按钮,事件过程如下: Private Sub Command1_Click() m=-3.6 If Sgn(m)Then n=Int(m) Else n=Abs(m) End If
窗体上有1个名称为Command1的命令按钮,事件过程如下: Private Sub Command1_Click() m=-3.6 If Sgn(m)Then n=Int(m) Else n=Abs(m) End If
admin
2015-10-23
42
问题
窗体上有1个名称为Command1的命令按钮,事件过程如下:
Private Sub Command1_Click()
m=-3.6
If Sgn(m)Then
n=Int(m)
Else
n=Abs(m)
End If
Print n
End Sub
运行程序,并单击命令按钮,窗体上显示的内容为( )。
选项
A、-4
B、-3
C、3
D、3.6
答案
A
解析
Sgn函数返回参数的符号,参数为负数时返回-1,为0时,返回0,为正数时返回1。所以Sgn(-3.6)返回-1。Visual Basic中把任何非0值都认为是真,以0表示假,因此if语句中将执行n=Int(m)语句。Int函数返回不大于参数的最大整数,Int(-3.6)要返回小于-3.6的整数即是-4,因此n=-4。
转载请注明原文地址:https://www.kaotiyun.com/show/PDLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上绘制一个文本框,然后编写如下事件过程:PrivateSubForm_Click()x=InputBox("请输入一个整数")Printx+Text1.TextEndSub程序运行时,在文本框中输入45
设在窗体上有两个命令按钮,其中一个命令按钮的名称为cmda,则另一命令按钮的名称可能是()。
如果将PassWordChar属性设置为一个字符,如星号(*),运行时,在文本框中输入的字符仍然显示出来,而不显示星号,原因可能是()。
有如下函数过程:FunctionFun(ByValxAsIngeger,ByValyAsInteger)AsIntegerDoWhile…y0reminder=xModyx=yy=reminderLo
在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程:PrivateSubForm_load()Text1.Text=″″Text1.SetFocusFori=1To9Sum=Sum+iNextiT
在设计程序时,应采纳的原则之一是
窗体上有一个图片控件和一个按钮控件,下列程序执行的结果是()。PfivateSubCommand1_click()Picture1.Picture=LoadPicture("C:\picture.ipg")Picture
在窗体上画一个文本框和一个图片框,然后编写下列两个事件过程:PrivateSubForm_C1ick()Textl.Text="VBProgramming"EndSubPrivateSubText1_change()
与键盘操作有关的事件有KeyPress、KeyUp和KeyDown事件,当用户按下并且释放一个键后,这三个事件发生的顺序是
随机试题
A.在上皮的棘层、基底层或黏膜固有层可见圆形或卵圆形,平均直径10μm左右,均质性嗜酸,PAS染色阳性呈玫瑰红色的小体B.可摄取和处理入侵的抗原,通过淋巴管道迁移至局部淋巴结,发育成并指状树突状细胞C.上皮细胞没有细胞间桥,细胞肿胀呈圆形,核染色深,常
下列哪项不是早期食管癌的临床表现
将—个灯由桌面竖直向上移动。在移动过程中不发生变化的量是:(2005。29)
下列选项中,工程索赔的处理原则中不包括的是()。
股东权是一种综合权利,股东依法享有的权利包括( )。
甲、乙注册会计师了解到D股份公司在2008年5月5日披露的配股说明书中所用的2007年度会计数据与其已审计的2007年度财务报表数据存在重大不一致,应视具体情况要求D股份有限公司修改配股说明书或已审计财务报表。( )甲、乙注册会计师了解到D股份公司在
新课程强调问题意识,在教学中以问题为纽带的教育的内涵是()
袋子里有10个红球,5个白球,现不放回的每次摸出1个小球,问连摸两次得到的都是白球的概率?
根据()标准,金融市场可以分为直接金融市场和间接金融市场。
TheCreatorsofGrammarNostudentofaforeignlanguageneedstobetoldthatgrammariscomplex.Bychangingwordsequence
最新回复
(
0
)