首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上有一个命令按钮“Commandl”和一个文本框“Textl”,按钮“commandl”的Click事件过程如下: Function result(ByVal x As Integer)As Boolean If x Mod 2=
在窗体上有一个命令按钮“Commandl”和一个文本框“Textl”,按钮“commandl”的Click事件过程如下: Function result(ByVal x As Integer)As Boolean If x Mod 2=
admin
2020-10-14
82
问题
在窗体上有一个命令按钮“Commandl”和一个文本框“Textl”,按钮“commandl”的Click事件过程如下:
Function result(ByVal x As Integer)As Boolean
If x Mod 2=0 Then
result=True
Else
result=False
End If
End Function
Prirate Sub Commandl_Click()
x=Val(InputBox(”请输入一个整数”))
If【 】Then
Textl=Str(x)&”是偶数.”
Else
Textl=Str(x)&”是奇数.”
EndIf
End Sub
程序运行后单击命令按钮,在对话框中输入110,则“Textl”中显示“110是偶数”。在程序【 】处应填写的是( )
选项
A、result(x)="偶数"
B、result(x)
C、result(x)="奇数"
D、Not result(x)
答案
B
解析
程序结果需要根据输入的数,显示是奇数还是偶数,如果输入的是偶数,则返回是偶数,否则返回是奇数;在commandl_Click过程中,通过If语句进行判断,在result函数中,判断从主调过程中传过来的是奇数还是偶数,如果能被2整除,则返回True,否则返回False,所有在Commandl_cliek过程的IF语句中应该是对result函数进行调用,返回值正好作为If的条件,故【 】处填充直接调用result函数即可。故本题选择B选项。
转载请注明原文地址:https://kaotiyun.com/show/8icp777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
Access中通配符“一”的含义是()。
在关系模型中,每一个二维表称为一个()。
在数据库系统中,用户所见的数据模式为()。
有如下事件程序,运行该程序后输出结果是()。PrivateSubCommand33_Click()DimxAsInteger,yAsIntegerx=1:y=0DoUntily
一个栈的初始状态为空。现将元素1,2,3,A,B,C依次入栈,然后再依次出栈,则元素出栈的顺序是()。
对于循环队列,下列叙述中正确的是()。
在人事档案数据表中有“参加工作时间”字段(日期/时间类型),要使用SQL语句查找参加工作在30年以上的员工信息,下列条件表达式中,错误的是()。
下列程序段运行结束后,变量c的值是()。a=24b=328selectcaseb\10case0c=a*10+bcase1t09c=a*
在软件开发中,需求分析阶段产生的主要文档是
随机试题
受理申请医师注册的卫生行政部门除执业医师法第15条规定的情形外,应当自收到申请之日起多少日内准予注册,并发给由国务院卫生行政部门统一印制的医师执业证书
龋病的药物治疗中使用药物不包括
初产妇,26岁,孕33周,四步触诊结果为于子宫底部触到坚而硬的胎头,在耻骨联合上方触到较软面宽不规则的胎臀,胎背位于母体腹部右前方,胎心音于脐上右侧听到,该孕妇胎方位为()
送修灭火器时,一次送修数量不得超过计算单元配置灭火器总数量的()
()的交易对象主要是标准化期货合约。
甲公司拟自建一条生产线,与该生产线建造相关的情况如下:(1)2014年1月1日,甲公司发行公司债券专门筹集生产线建设资金,该公司债券为3年期,系分期付息、到期还本的债券,面值总额为3000万元,票面年利率为5%,发行价格为307.0万元;另在发行过程中支
货币政策是政府调控宏观经济的基本手段之一,当通货膨胀较为严重时,应该采取的货币政策是()
已知线性方程组(Ⅰ)a,b为何值时,方程组有解?(Ⅱ)方程组有解时,求出方程组的导出组的一个基础解系;(Ⅲ)方程组有解时,求出方程组的全部解.
下列关于对象"更新前"事件的叙述中,正确的是( )。
Complainingaboutfaultygoodsorbadservicearenevereasy.【M1】______Mostpeopledislikemakingafuss.Butifsome
最新回复
(
0
)