首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体中有命令按钮Command1和文本框Text1,事件过程如下: Function result(ByVal x As Integer)As Boolean If x Mod 2 = 0 Then result = True Else
窗体中有命令按钮Command1和文本框Text1,事件过程如下: Function result(ByVal x As Integer)As Boolean If x Mod 2 = 0 Then result = True Else
admin
2015-07-01
45
问题
窗体中有命令按钮Command1和文本框Text1,事件过程如下:
Function result(ByVal x As Integer)As Boolean
If x Mod 2 = 0 Then
result = True
Else
result = False
End If
End Function
Private Sub Command1_Click()
x = Val(InputBox("请输入一个整数"))
If 【 】 Then
Text1 = Str(x)& "是偶数."
Else
Text1 = Str(x)& "是奇数."
End If
End Sub
运行程序,单击命令按钮,输入19,在Text1中会显示"19是奇数"。那么在程序的括号内应填写( )。
选项
A、NOT result(x)
B、result(x)
C、result(x)="奇数"
D、result(x)="偶数"
答案
B
解析
本题程序是判断奇偶性的程序,函数Result用来判断x是否是偶数,如果x是偶数,那么Result的返回值为真,否则返回值为假,单击命令按钮时执行的过程是输入整数x,然后调用Result函数,如果值为真,文本框会显示输入的值是偶数,否则显示输入的值为奇数。调用Result函数且Result函数值为真时的表达式为:Result(x)。
转载请注明原文地址:https://kaotiyun.com/show/w6gp777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
当窗体中的内容太多无法放在一面中显示时,可以用哪个控件来分页?
下列关系模型中,能使经运算后得到的新关系中的属性个数多于原来关系中的属性个数的是
结构化程序设计方法的主要原则可以概括为自顶向下、逐步求精、______和限制使用goto语句。
运行下面的程序段:Fork=5to10Step2k=k*2Nextk则循环次数为:______。
确定一个控件大小的属性是()。
下列关于Access表的叙述中,正确的是()。
设计程序时,应采纳的原则之一是()。
假设已在Access中建立了包含"书名"、"单价"和"数量"三个字段的"tOfg"表。以该表为数据源创建的窗体中,有一个计算订购总金额的文本框,其控件来源为
有一个VBA计算程序的功能如下:该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为:Text1、Text2、Text3和Text4,3个按钮分别为:清除(名为G1)、计算(名为C2)和退出(名为C3)。窗体打开运行后,单击“清除”按钮,则清
顺序存储方法是把逻辑上相邻的结点存储在物理位置【】的存储单元中。
随机试题
金属化合物的一般特点是()。
关于老年性阴道炎的临床表现,下列说法错误的是
自身免疫性溶血性贫血最重要的诊断方法是()。
生产经营单位与从业人员订立协议,免除或者减轻其对从业人员因安全事故伤亡依法应承担的责任的,();对生产经营单位的主要负责人、个人经营的投资人处2万元以上10万元以下的罚款。
某桥梁工地的简支板梁架设,由专业架梁分包队伍架设。该分包队伍用2台50t履带吊,以双机抬的吊装方式架设板梁。在架设某跨板梁时,突然一台履带吊倾斜,板梁砸向另一台履带吊驾驶室,将一名吊车驾驶员当场砸死,另有一人受重伤。事故发生后,项目经理立即组织人员抢救伤员
将配置好的料液倒人异型管件外型设置的模具内,其绝热施工方法的是()。
下列说法与“少小离家老大回,乡音未改鬓毛衰”所蕴含的哲学寓意相同的是()。
()的教育思想是当今教育界普遍认同的一种教育思想,它的核心在于对人性的充分肯定,对人的智慧、潜能的信任,对自由、民主的向往和追求。
Itissaidthatmorethanoneorganization_______inthiswell-knowncriminalcase.
A、Hegoestoexerciseclasses.B、Hegoessailing.C、Hegoestothecinema.D、Hestaysathome.D
最新回复
(
0
)