首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。窗体文件的程序如下: Private Type x a As Integer b As Integer End Type Private Sub Command1_Cli
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。窗体文件的程序如下: Private Type x a As Integer b As Integer End Type Private Sub Command1_Cli
admin
2015-08-28
48
问题
窗体上有一个名称为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
解析
x是用户定义的一种变量类型,可以使用它来声明变量。InputBox(" ")函数的提示信息为" ",即为空,因此弹出的对话框中没有提示信息。在程序中通过比较输入的数被2整除和被2除的值是否相等来判定它是否为偶数,如果是那么y.b的值就是y.a的值的平方。Fix函数是取整函数,它会删除小数部分,直接取表达式的整数部分,不四舍五入,因此D选项错。
转载请注明原文地址:https://kaotiyun.com/show/TbLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序弹出对话框中按钮的个数为______。MsgBox"认!",vbAbortRetryIgnore+vbMsgBoxHelpButton+vbQuestion,"提示"
在程序设计阶段应该采取______和逐步求精的方法,把一个模块的功能逐步分解,细化为一系列具体的步骤,继而用某种程序设计语言写成程序。
下列子过程语句的说明正确的是()。
可以通过()的方法来输出一个二维数组中的各个元素。
只有将组合框的Style属性值设置为()时,才能触发Db1Click事件。
启动窗体在【】对话框中指定。
在窗体上画一个命令按钮Command1,然后编写如下程序:PrivateSubCommand1_Click()Dimarr()AsIntegerReDimarr(3)Fori=0To
执行下面的程序段后,S的值为【】。s=5Fori=6To9Step0.6s=s+1Nexti
在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程;PrivateSubCommand1_Click()a$="softwareandhardware"b$=Right(a$,8)
有如下事件过程:PrirateSubForm_Click()A$="123":B$="456"x=Val(A$)+Val(B$)Printx\100EndSub程序运行后,单
随机试题
A.cGMP依赖的蛋白激酶B.酪氨酸蛋白激酶C.cAMP依赖的蛋白激酶D.Ca2+磷脂依赖的蛋白激酶蛋白激酶C是
A.胆总管扩张呈囊状、柱状或纺锤状B.局限于肝内胆管的多发囊状扩张(Caroli病)C.胆总管十二指肠壁内段囊状膨出D.胆总管单发憩室样扩张E.多发性胆管囊肿,位于肝内外或肝外胆总管囊性扩张症Ⅱ型是指
用于解救甲氨蝶呤引起的巨幼细胞贫血的是
A.中国药典B.企业标准C.药品注册标准D.行业标准E.炮制规范由国家食品药品监督管理局批准给申请人的特定药品标准是()。
某公司经营规模迅速扩张,但由于人员储备不足,造成很多重要岗位无人填补,这说明该公司的()工作没有做好。
广播电视具有怎样的特点和功能?
根据是否具有统一法典形式,可以把宪法分为()。(2012年真题)
下列语句中错误的是()。
为“运动员”表增加一个字段“得分”的SQL语句是
Itcanbetemptingtomakeahastydecisionwhenakilleropportunitycomesalongorthethoughtofspendinganotherdayonthe
最新回复
(
0
)