首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
若窗体中已有一个名为Command1的命令按钮、一个名为Label 1的标签和一个名为Text 1的文本框,且文本框的内容为空,然后编写如下事件代码: Private Function f(x As Long) As Boolean If x Mod 2=
若窗体中已有一个名为Command1的命令按钮、一个名为Label 1的标签和一个名为Text 1的文本框,且文本框的内容为空,然后编写如下事件代码: Private Function f(x As Long) As Boolean If x Mod 2=
admin
2010-06-10
27
问题
若窗体中已有一个名为Command1的命令按钮、一个名为Label 1的标签和一个名为Text 1的文本框,且文本框的内容为空,然后编写如下事件代码:
Private Function f(x As Long) As Boolean
If x Mod 2=0 Then
f=True
Else
f=False
End If
End Function
Private Sub Command1_Click( )
Dim n As Long
n=Val(Me!text1)
p=IIf(f(n) ,“Even
选项
答案
21isoddnumber
解析
函数过程也可以称为函数,是一系列由Function和End Function语句包含起来的Visual Basic语句。Function过程和Sub过程类似,但函数过程可以返回一个值。此题定义一个整型变量Long,并把n的值赋予它,n为文本框Text 1输入字符转换为数值型的值;若在文本框中输入21,则n的值为21,代入Function函数过程,x为21,对x取模,为偶数时返回True,为奇数时返回False;21是奇数,因此返回False。IIf函数调用格式:IIf(条件式,表达式1,表达式2) ,条
转载请注明原文地址:https://jikaoti.com/ti/6Zw0FFFM
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
有如下程序段:inti=1;intj=4;intmain(){intj=i,i=8;cout
请使用VC6或使用【答题】菜单打开考生文件夹proj2下的工程proj2,此工程包含有一个源程序文件proj2.cpp。其中定义了Basel类、Base2类和Derived类。Basel是一个抽象类,其类体中声明了纯虚函数Show。Base2类的
必须用一对大括号括起来的程序段是()。
关系的实体完整性要求关系中不能为空的属性是()。
下面程序的输出结果是()。#include#include”string.h”voidmain(){chara[]="HelloTest",b[]="Test";strcpy(a,b);
若整型变量a、b、C、d中的值依次为:1、4、3、2。则条件表达式a
若磁盘上已存在某个文本文件,其全路径文件名为d:\ncre\test.txt,下列语句中不能打开该文件的是
关于在调用模板函数时模板实参的使用,下列表述中正确的是()。
支持子程序调用的数据结构是()。
在关系运算中,选择运算的含义是()。
随机试题
用双角铣刀铣削圆柱面螺旋齿槽时,偏移量s和升高量H可沿用铣削圆柱面直齿槽公式计算,但须以D/cosβ代替公式中的D。
评比量表的问题包括()
下列是同种异型抗原的是
A.某年平均人口数B.某年15~49岁妇女数C.某年活产总数D.某年结婚登记人数E.某年孕妇数计算总生育率的分母是
《中华人民共和国野生动物保护法》规定:国务院野生动物行政主管部门和省、自治区、直辖市政府,应当在国家和地方重点保护野生动物的主要生息繁衍的地区和水域,划定(),加强对国家和地方重点保护野生动物及其生存环境的保护管理。
根据合伙企业法律制度的规定,下列各项中,构成有限合伙人当然退伙情形的是()。(2017年)
旅行社的业务招徕方式主要有广告招徕、网络招徕、上门招徕、门市接待。()
“朝为田舍郎,暮登天子堂。将相本无种,男儿当自强,少小须勤学,文章可立身。满朝朱紫贵,尽是读书人。”该诗反映的现象与()的推行直接相关。
Somewealthierpeoplehavenotgrownupcaringfortheirsiblings,cousins,niecesandnephews,andhavenoideahowtobatheor
A、Theycanbegoodiftheyhappeninsummer.B、TheyoccuronlyinSouthChinasea.C、TheycanusuallybeseenaroundthePacific
最新回复
(
0
)