首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
若窗体中已有一个名为Command1的命令按钮、一个名为Labell的标签和一个名为Text1的文 本框,且文本框的内容为空,然后编写如下事件代码: Private Function f(X As Long)As Boolean
若窗体中已有一个名为Command1的命令按钮、一个名为Labell的标签和一个名为Text1的文 本框,且文本框的内容为空,然后编写如下事件代码: Private Function f(X As Long)As Boolean
admin
2013-03-30
58
问题
若窗体中已有一个名为Command1的命令按钮、一个名为Labell的标签和一个名为Text1的文 本框,且文本框的内容为空,然后编写如下事件代码:
Private Function f(X As Long)As Boolean
If x Mod2=0 Then
f=True
Else
f=False
End If
End Function
Private Sub Command1_ Click()
Dim n As Long
n=Val(Me!text1)
p=Ⅱf(f(n),"Even number","Odd number")
Me!Labell.Caption=n &"is"& p
End Sub
窗体打开运行后,在文本框中输入21,单击命令按钮,则标签显示内容为【 】。
选项
答案
21isoddnumber
解析
函数过程也可称为函数,是一系列由Function和End Function语句包含起来的Visual Basic语句。Function过程和Sub过程很类似,但函数过程可以返回一个值。此题定义一个整型变量Long并把n的值赋予它,n为文本框Text1输入字符转换为数值型的值;当在文本框中输入21,则n的值为21,代入Function函数过程,x为21,对x取模,为偶数时返回True,为奇数时返回False;21是奇数,返回false;IIf涵数调用格式:IIf(条件式,表达式1,表达式2),条件式值为Tree,函数返回表达式1的值,条件式植为False,函数返回表达式2的值。此处P返回表达式2的值Odd number;&用来强制两个表达式作字符串连接,则最后标签显示内容为21isoddnumber。
转载请注明原文地址:https://kaotiyun.com/show/4Zup777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
有效性规则主要用于______。
在关系数据模型中,域是指______。
当数据的物理结构(存储结构、存取方式等)改变时,不影响数据库的逻辑结构,从而不至于引起应用程序的变化,这是指数据的【】。
数据流图的类型有【】和事务型。
假定有如下的Sub过程:Subsfun(xAsSingle,yAsSingle)t=xx=t/yy=tModyEndSub在窗体上添加一个命令按钮(名为Command1),然后
软件测试是为了【】而执行程序的过程。
结构化程序设计的一种基本方法是()。
在数据表视图下向表中输入数据,在末输入数值之前,系统自动提供的数值字段的属性是【】。
向已有表中添加新字段或约束的SQL语句是______。
采用面向对象技术开发的应用系统的特点是()。
随机试题
产品战略的选择方法通常有两种:_______和_______。
某男,70岁。患有冠心病10年。今天上午突然心痛剧作,面色青灰,冷汗淋漓,四肢厥冷,呼吸微弱,舌淡苔白润,脉微欲绝。临床诊断最可能的是
关于隐性感染,下列叙述哪项不正确
依照《中华人民共和国执业医师法》,卫生行政部门对医师活动的监督管理制度是
扩大客户量,提高交易量,(),在适当的时候提供恰当的信息,以增加客户或其朋友对销售人员的信任。
金融期货市场的首要功能是规避风险,它正是顺应这种需求才建立和发展起来的。( )
甲股份有限公司(下称“甲公司”)为上市公司,系增值税一般纳税人,销售商品适用的增值税税率为17%;适用所得税税率为25%,所得税采用资产负债表债务法核算,当年发生的可抵扣暂时性差异预计未来期间内能够转回,期初递延所得税资产、负债均无余额;按净利润的10%计
M企业2012年度的财务会计报告于2013年4月10日批准报出,2013年1月10日,因产品质量原因,客户将2012年12月10日购人的一大批大额商品(达到重要性要求)退回。因产品退回,下列说法中正确的是()。
3,一1,5,1,()
Mostpeoplehavetypewritersandcantypewellprefertotype【M1】______theirlettersnowadays.Therewasafeelingageneratio
最新回复
(
0
)