首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Text1的文本框,一个名称为(Commandl的命令按钮。窗体文件的程序如下: Private Type x a As Integer b As Integer End Type Private
窗体上有一个名称为Text1的文本框,一个名称为(Commandl的命令按钮。窗体文件的程序如下: Private Type x a As Integer b As Integer End Type Private
admin
2019-08-21
34
问题
窗体上有一个名称为Text1的文本框,一个名称为(Commandl的命令按钮。窗体文件的程序如下:
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/4dUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下关于多重窗体程序的叙述中,错误的是
假定有如下语句:answer$=MsgBox("String1","String2","String3",2)执行该语句后,将显示一个信息框,单击其中的“确定”按钮,则answer$的值为
如果在VisualBasic集成环境中没有打开属性窗口,下列可以打开属性窗口的操作是
窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下:PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)DimcAsStringc
设有关键码序列(66,13,51,76,81,26,57,69,23),要按关键码值递增的次序排序,若采用快速排序法,并以第一个元素为划分的基准,那么第一趟划分后的结果为()。
用树型结构表示实体之间联系的模型是()。
假设用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组的说法错误的是()。
(1)在名称为Form1、标题为“鼠标光标形状示例”的窗体上画1个名称为Text1的文本框。请通过属性窗口设置适当属性,使得程序运行时,鼠标在文本框中时,鼠标光标为箭头(Arrow)形状,如图3.56所示;在窗体中其他位置处,鼠标光标为十字(Cross)形
假定通过复制、粘贴操作建立了一个命令按钮数组Command1,以下说法中错误的是
数据结构主要研究的是数据的逻辑结构、数据的运算和()。
随机试题
患者,男,70岁。有吸烟史40年,行腹部手术,术后最重要的护理措施是
关于动脉导管未闭的超声诊断错误的是
男,8个月,因半年来再发尿路感染6~7次入院诊治,分析其原因可能是
男性患者,45岁,因低热、乏力6个月就诊。外周血检查:Hb90g/L,WBC25×109/L,分类示中性中幼粒细胞20%,中性晚幼粒细胞15%,中性杆状核细胞30%,中性分叶核粒细胞30%,嗜碱性分叶核粒细胞2%,淋巴细胞10%,单核细胞3%,PLT85×
与基性岩浆岩相比,酸性岩浆岩的()。[2010年真题]
在温度改变的情况下,静定结构内部将( )。
下列企业向个人赠送礼品的情形中,不征收个人所得税的有()。
A市的甲公司为国有企业,乙公司为集体企业,这两个企业因资产归属问题发生产权纠纷。甲公司经主管国有资产监督管理机构同意,提出了一套处理产权纠纷的意见,并与乙公司协商解决,乙公司不同意甲公司的处理意见。根据国有资产产权纠纷处理的有关规定,甲公司可以提请A市的(
下列关于死刑的说法中,错误的是()。
若=x+y且满足z(x,0)=x,z(0,y)=y2,求z(x,y).
最新回复
(
0
)