首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Text1的文本框,一个名称为Commandl的命令按钮。窗体文件的程序如下: Private Type x Private Sub Commandl_Click() a As Integer:b
窗体上有一个名称为Text1的文本框,一个名称为Commandl的命令按钮。窗体文件的程序如下: Private Type x Private Sub Commandl_Click() a As Integer:b
admin
2020-04-18
20
问题
窗体上有一个名称为Text1的文本框,一个名称为Commandl的命令按钮。窗体文件的程序如下:
Private Type x Private Sub Commandl_Click()
a As Integer:b As Integer Dim y As x
End Type y.a=InputBox("")
Ify.a\2=y.a/2 Then
y.b=y.a*y.a
Else
y.b=Fix(y.a/2)
End If
Text1.Text=y.b
End Sub
对以上程序,下列叙述中错误的是
选项
A、x是用户定义的类型
B、InputBox函数弹出的对话框中没有提示信息
C、若输入的是偶数,y.b的值为该偶数的平方
D、Fix(y.a/2)把y.a/2的小数部分四舍五入,转换为整数返回
答案
D
解析
本题考查的考点是有关自定义类型和Fix函数的。用户可以通过Type语句自定义类型,并可用自定义的类型声明变量。注意Fix函数是向下取整,Round函数是四舍五入。
转载请注明原文地址:https://jikaoti.com/ti/u3x0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列叙述中有错误的是()。
下面函数的功能应该是:删除字符串str中所有与变量Ch相同的字符,并返回删除后的结果。例如:若str="ABCDABCD",oh="B",则函数的返回值为:"ACDACD"Functiondelchar(strAsString,chAs
如图所示,在窗体上有一个文本框控件,名称为TextTime:一个计时器控件,名称为Timer1。要求每1s在文本框中显示一次当前的时间。PrivateSubTimer1TextTime.Text=TimeEndSub
在窗体上画1个命令按钮,名称为Command1,然后编写如下程序:DimFlagAsBooleanPrivateSubCommand1_Click()DimintNumAsIntegerintNum=In
从键盘上输入一个浮点数asmgle,利用字符串函数对该数进行处理后,如果输出的内容不是“非浮点数”,则对程序输出的内容分析正确的是()。asmgle=InputBox("请输入一个浮点数:")str1$=Str$(asingle
在窗体上画一个通用对话框,程序运行中用ShowOpen方法显示“打开”对话框时,希望在该对话框的“文件类型”栏中只显示扩展名为DOC的文件,则在设计阶段应把通用对话框的Filter属性设置为
设有如下变量声明语句:Dima,bAsBolean则下面叙述中正确的是
在下面语句或函数中,不能描述选择结构的是
表达式Sgn(0.25)的值是
在窗体上画一个名称为Commandl的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()AS=”VisualBasic”PrintString(3,aS)EndSub
随机试题
用成形铣刀头铣削矩形花键小径时,为了调整小径尺寸,第一槽铣削完成后应转过180°铣削第二槽。()
19世纪末20世纪初在美国兴起的实用主义教育学的代表人物是()
材料1:列宁指出,“就本来的意义说,辩证法就是研究对象的本质自身中的矛盾。99他还指出,“是实际生活中的实际矛盾,即辩证的矛盾,而不是字面上的、臆造出来的矛盾。”材料2:杜林说,“矛盾的东西是一个范畴。这个范畴只能归属于思想组合,而不能归属于现实”材料3:
被闻一多先生誉为“诗中的诗,顶峰上的顶峰”的作品是()
A.健康携带者B.慢性携带者C.显性感染D.潜伏性感染E.隐性感染感染过程中最常见的表现是
按照企业所得税的有关规定,下列有关研究开发费的表述中正确的是()。
2001年底,我国民营企业的总户数约比2000年底增长了()。2001年底,我国民营企业户数超过20万户的省份有()。
三角形△ABC是一个钝角三角形.(1)三角形△ABC三边之比为2:2:3;(2)三角形△ABC中cos(A+B)>0
Experiencedteachersmake______mistakesthanbeginners.
Kangaroomeans______inthenativelanguageofAborigines.
最新回复
(
0
)