首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体中有命令按钮Command1和文本框Text1,事件过程如下: Function result(ByVal x As Integer)As Boolean If x Mod 2=0 Then result=True El
窗体中有命令按钮Command1和文本框Text1,事件过程如下: Function result(ByVal x As Integer)As Boolean If x Mod 2=0 Then result=True El
admin
2020-10-14
61
问题
窗体中有命令按钮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
Textl=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/JKcp777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
定义学生、教师和课程的关系模式STr(SNO,SN,SA,TN,CN,G),其中的六个属性分别为学生的学号、姓名、年龄、教师的姓名、课程名以及学生的成绩,则该关系为()。
通常软件测试实施的步骤是()。
为了减少汉字输入,将字段“民族”的全部可能输入事先存入一个表中,在窗体设计时,可以将输入“民族”对应的控件设置为()。
在Access数据库中已经建立了“教师”表,若查找“教师编号”是“T00009”或“T00012”的记录,应在查询设计视图的“条件”行中输入()。
建立表示学生选修课程活动的实体联系模型,其中的两个实体分别是()。
考生文件夹下有一个数据库文件“samp2.accdb”,其中存在已经设计好的两个表对象“tEmployee”和“tGroup”。请按以下要求完成设计。(1)创建一个查询,查找并显示没有运动爱好的职工的“编号”、“姓名”、“性别”、“年龄”和“职务”5个字
在设计窗体时,要输入的数据总是取自一个表或查询中记录,可以使用的控件是()。
下列选项中,属于白盒测试方法的是()。
执行下列程序段后,变量s的值是()。DimsAslong,xAsIntegers=0:x=1DoWbile(x<10)s=d一xx=x+2Loop
下列循环结构中,循环体被执行的次数是()。DimiAsInteger,tAsIntegerFori=9to0t=t+1Next1
随机试题
A.系统误差B.操作误差C.偶然误差D.过失误差E.试剂误差检验过程中随机因素引起的误差
商标在中国政府主办的或者承认的国际展览会上展出的商品上首次使用的该商标的注册申请人享有优先权的时间要求是:()。
关于承诺的撤回,下列表述中,正确的是()。
施工总承包管理表现在质量控制方面的特点不包括()。
期货交易所联网交易的,应当()。[2012年11月真题]
我国5年期国债期货合约标的为()。
WTO/TBT协议规定,当各成员在制定技术法规和合格评定程序时,遇到下列()情况必须向其他成员通报。
鸳鸯:凤凰:雄雌
单击命令按钮时,下列程序的执行结果是PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegera=3∶b=4∶c=5PrintSecProc(c,b,
Thethousandsofpeopleforcedtoabandontheirhomesinrecentweekstofloodwatersarevictimsnotjustofnaturebutofhuman
最新回复
(
0
)