首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Commandl的命令按钮,其单击事件过程及相关的函数过程如下: Private Sub Command 1 click()Dim i As Integer For i=1 To 500 Ifp(i)Then s=s+1 Next Pri
窗体上有一个名称为Commandl的命令按钮,其单击事件过程及相关的函数过程如下: Private Sub Command 1 click()Dim i As Integer For i=1 To 500 Ifp(i)Then s=s+1 Next Pri
admin
2015-12-09
70
问题
窗体上有一个名称为Commandl的命令按钮,其单击事件过程及相关的函数过程如下:
Private Sub Command 1 click()Dim i As Integer
For i=1 To 500
Ifp(i)Then s=s+1
Next
Print s
End Sub
Private Function p(x As Integer)As Boolean
Ifx Mod 7<>0 Then
P=True
Else
P=False
End If
End Function
关于上述程序,以下叙述中正
选项
A、程序功能是统计1-500范围内能被7整除的整数个数
B、Commandl Click事件过程中If语句的条件表达式不完整
C、Function过程定义有误,函数过程P的名称与该过程中的变量名P相同
D、函数过程P的返回值为Boolean类型
答案
D
解析
调用Function过程要返回一个值,因此可以像内部函数一样在表达式中使用。如果在Fanction过程中省略“过程名=表达式”,则该过程返回一个默认值(数值函数过程返回0值;字符串函数过程返回空字符串)。因此,通常要在过程体中给“过程名”赋值。本题中函数P的返回值为Boolean类型,功能是判断参数x是否能被7整除,如果不能整除返回True,否则返回False。Commandl一Click事件过程中使用了单行的If语句,不需要Else分支和Endlf语句。程序功能是统计1-500范围内不能被7整除的整数个数。
转载请注明原文地址:https://kaotiyun.com/show/qyLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序的执行结果为______。
有下列语句,其执行的结果为______。
有3个关系R、S和T如下:由关系R和S通过运算得到关系T,则所使用的运算为
在代码窗口对窗体的BorderStyle、MaxBuaon属性进行了设置,但运行后没有效果的原因是这些属性______。
VB的3种结构化程序设计的3种基本结构是()。
假定有以下两个过程:PrivateSubPPP(aAsSingle,bAsSingle)a=a+bPrinta,bb=a+bPrinta,bEndSubPrivateSubForm_
引用列表框(Listl)最后一个数据项应使用的表达式是()。
设在菜单编辑器中定义了一个菜单项,名为menu1。为了在运行时隐藏该菜单项,应使用的语句是
使用白盒测试法时,确定测试数据应该根据()和指定的覆盖标准。
组合框有3种不同的类型,这3种类型是下拉式列表框、简单组合框和下拉式组合框,分别通过把Style属性设置为______来实现。
随机试题
组合件是由数个元件组成的独立部件,按其用途不同有定位元件、________元件、________元件、________元件、________元件等。
具有攻毒蚀疮功效的药物是()
张某,咳喘短气,动则尤甚,咳声低弱,痰吐稀薄,自汗恶风,易感冒,舌淡红,苔薄白,脉细弱。本病例宜选方是
下列关于低胆固醇膳食配餐原则应除外哪项()。
反映组织最高管理者的质量宗旨、经营理念和价值观的是()。
网络企业是核心企业利用自己的技术和品牌优势,负责生产产品中的关键部件,其他相关业务分别通过()形式给予其他具有相对优势的单位。
Hereismyideaabouthowafriendislike.Firstly,【M1】______afriendissomeoneyoucanshareyoursecrets.Ifyou【M2】______
A.Ⅰ型疱疹病毒B.Ⅱ型疱疹病毒C.水痘一带状疱疹病毒D.柯萨奇病毒A16E.柯萨奇病毒A4引起带状疱疹的病毒是()。
Hedidn’tcatchthelatebus,______hehadtowalkhome.
HuiyuanServiceApartmentLocatedintheAsianGamesVillage,witha10,000㎡centralgardenandachildren’splayground.Eig
最新回复
(
0
)