首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Command1的命令按钮,其单击事件过程及相关的函数过程如下: Private Sub Command1_Click()Dim i As Integer For i=1 To 500 If p(i)Then s=s+1 Next Pri
窗体上有一个名称为Command1的命令按钮,其单击事件过程及相关的函数过程如下: Private Sub Command1_Click()Dim i As Integer For i=1 To 500 If p(i)Then s=s+1 Next Pri
admin
2016-12-13
24
问题
窗体上有一个名称为Command1的命令按钮,其单击事件过程及相关的函数过程如下:
Private Sub Command1_Click()Dim i As Integer
For i=1 To 500
If p(i)Then s=s+1
Next
Print s
End Sub
Private Function p(x As Integer)As Boolean
If x Mod 7<>0Then
p=True
Else
p=False
End If
End Function
关于上述程序,以下叙述中正
选项
A、程序功能是统计1-500范围内能被7整除的整数个数
B、Command1_Click事件过程中If语句的条件表达式不完整
C、Function过程定义有误,函数过程p的名称与该过程中的变量名p相同
D、函数过程p的返回值为Boolean类型
答案
D
解析
调用Function过程要返回一个值,因此可以像内部函数一样在表达式中使用。如果在Function过程中省略“过程名=表达式”,则该过程返回一个默认值(数值函数过程返回0值;字符串函数过程返回空字符串)。因此,通常要在过程体中给“过程名”赋值。本题中函数p的返回值为Boolean类型,功能是判断参数x是否能被7整除,如果不能整除返回True,否则返回False。Command1_Click事件过程中使用了单行的If语句,不需要Else分支和Endlf语句。程序功能是统计1-500范围内不能被7整除的整数个数。
转载请注明原文地址:https://jikaoti.com/ti/Ory0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
表达式“4+5/6*7/8Mod9”的值是()。
下列不能打开菜单编辑器的操作是()。
下面程序段的作用是从文本框中输入数据,如果该数据满足条件:除以6余2,除以5余3,则输出,否则,将焦点定位在文本框中,并清除文本框的内容。请填空。PrivateSubCommandlClick()num=Val(Textl.Tex
设有以下函数过程:Functionfun(mAsInteger)AsIntegerDimkAsInteger,sumAsIntegersum=0Fork=mTo1Step-2sum
顺序存储方法是把逻辑上相邻的结点存储在物理位置__________的存储单元中。
在面向对象方法中,______描述的是具有相似属性与操作的一组对象。
按照“后进先出”原则组织数据的数据结构是()。
表达式"12345"<>"12345"&"ABC"的值是______。
算法执行过程中,所需要的基本运算次数称为算法的【】。
随机试题
物料管线一般都铺成()坡度。
手术流产10天后,阴道继续流血时多时少。检查:阴道内少量鲜血,宫口松,宫体稍大,无压痛,尿妊娠试验阳性,下列诊断哪项可能性大
M摄影工作室是甲个人投资设立的个人独资企业,营业执照的签发日期是2014年5月10日。该个人独资企业最初由甲自行经营,实现盈利100万元,后因甲生病住院、休养,无力经营企业,便委托乙管理企业。由于乙不善经营管理,企业连年亏损,现欠债150万元。企业很难再维
办公楼高140m,地上30层,地下三层,其中第16层为避难层,消防控制室与安防监控中心共用,设在首层。首层大厅高度为9m,宽30m,进深15m;在二层分别设置计算机网络中心和程控电话交换机房;3~29层为标准层,为大开间办公室,标准层面积为2000m2/层
三种渗沟均应设置()。
关于城市建设维护税税率的说法,正确的是()。
基金业的行业自律管理由中国证券业协会和证券交易所具体负责组织实施。()
甲公司(从事生产、经营的纳税人)成立于2012年5月18日,法定代表人为李某。6月5日,甲公司财务人员张某持有关资料到Q银行开立基本存款账户。8月6日,甲公司从乙公司购进一批价值260万元的货物,采用支票方式付款。9月12日,甲公司向P银行申请贷款,P银
设a1,a2,…,an为任意实数,求证方程a1cosx+a2cos2x+…+ancosnx=0在(0,π)内必有实根.
•Lookatthenotebelow.•Youwillhearamantelephoninghispersonnelofficer.MessageDate:
最新回复
(
0
)