首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。窗体文件的程序如下: Private Type x a As Integer:b As Integer End Type Private Sub C
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。窗体文件的程序如下: Private Type x a As Integer:b As Integer End Type Private Sub C
admin
2017-04-25
84
问题
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。窗体文件的程序如下:
Private Type x
a As Integer:b As Integer
End Type
Private Sub Command1_Click()
Dim y As x
y.a=InputBox("")
If y.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://kaotiyun.com/show/5GGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
计时器事件之间的间隔通过【】属性设置。
执行以下程序段,并输入1.23,则程序的输出结果应是【】。N=Str(InputBox("请输入一个实数:"))p=InStr(N,",")PrintMid(N,p)
为了显示一个窗体,所使用的方法为【】;为了隐藏一个窗体,所使用的方法为【】。
窗体上有Commandl、Command2两个命令按钮。现编写以下程序:OptionBase0Dima()AsInteger,mAsIntegerPrivateSubCommandl_Click()m=InputBox(”请输入一个正
在VisualBasic的立即窗口内输入以下语句X=65<CR>PrintChr$(X)<CR>在窗口中显示的结果是
设某循环队列的容量为50,头指针front=5(指向队头元素的前一位置),尾指针rear=29(指向队尾元素),则该循环队列中共有【】个元素。
窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Label1)。要求程序运行后,如果在文本框中输入字符,则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是______。
随机试题
真空烤瓷炉对其温度参数和时间参数进行精密的控制。在使用中要求操作人员按严格的程序进行操作在烤瓷过程中不能使烤瓷件与炉膛内壁接触,如果接触,可能造成的最严重的后果是
关于现金流量的下列说法中,正确的是()。[2009年真题]
某工程项目的施工招标文件中表明该工程采用综合单价计价方式,工期为15个月。承包单位投标所报工期为13个月。合同总价确定为8000万元。合同约定:实际完成工程量超过估计工程量25%以上时允许调整单价:拖延工期每天赔偿金为合同总价的1‰,最高拖延工期赔偿限额
根据《URC522》规定,未经银行事先同意,货物不能直接发给银行,也不能做成以银行为收货人的记名提单。否则,由发货人自行承担货物的风险和责任。()
根据《银团贷款业务指引》的规定,参与银团贷款的银行均为银团贷款成员。银团贷款成员应按照()的原则自主确定各自授信行为。
警察是随着国家的产生而产生的,但并不能随着国家的消亡而消亡。()
一新成立的公司由F,G,H,K和L5个雇员组成。每一个雇员恰好占据下面3个职位中的一个职位:董事长、经理和技术员。只有董事长不被监督,其他的雇员中每一个人都恰好被另一名雇员所监督,监督人可以是董事长或经理。每一个被监督的人与监督他的人所处的职位不同。下面
关于不同法律之间的关系,下列表述正确的有()(2017年非法学综合课多选第51题)
Aneweconomicspaperhassomeold-fashionedadviceforpeoplenavigatingthestressesoflife:Findaspousewhoisalsoyourb
下列关于OSPF协议的描述中,错误的是()。
最新回复
(
0
)