首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体中有一个命令按钮Commandl,编写事件代码如下: Private Sub Commandl_Click() Dim sAs Integer S=P(1)+P(2)+P(3)+P(4) deb
在窗体中有一个命令按钮Commandl,编写事件代码如下: Private Sub Commandl_Click() Dim sAs Integer S=P(1)+P(2)+P(3)+P(4) deb
admin
2021-02-23
26
问题
在窗体中有一个命令按钮Commandl,编写事件代码如下:
Private Sub Commandl_Click()
Dim sAs Integer
S=P(1)+P(2)+P(3)+P(4)
debug.Print S
End Sub
Public Function P(N AS Integer)
Dim Sum As Integer
Sum=0
For i=l TO N
Sum=Sum+i
Next i
P=Sum
End Function
打开窗体运行后,单击命令按钮,输出结果是
选项
A、15
B、20
C、25
D、35
答案
B
解析
从函数P的代码可知,其功能是计算从1到N的和,在命令按钮的单击事件代码中,可知S为P(1),P(2),P(3),P(4)的和,显然P(1)=1,P(2)=l+2=3,P(3)=1+2+3=6,P(4)=1+2+3+4=10,所以S=l+3+6+10=20。
转载请注明原文地址:https://kaotiyun.com/show/xDSp777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。试在此基础上按照以下要求补充设计:设置“fEmp”窗体上名为“bTit1e”的标签文本显示为阴影
考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计了表对象“tEmp"、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。试在此基础上按照以下要求补充设计:设计报表“rEmp”的主体节区内“tSex”文本框件控件依据报
在考生文件夹下,“sampl.accdb”数据库文件中已建立两个表对象(名为“员工表”和“部门表”)和一个报表对象(名为“rEmp”)。试按以下要求顺序,完成表及报表的各种操作:将“员工表”中女职工的前四列信息(编号,姓名,性别.年龄)导出到考生文件夹
在考生文件夹下,“sampl.accdb”数据库文件中已建立两个表对象(名为“职工表”和“部门表”)。试按以下要求,顺序完成表的各种操作:设置表对象“职工表”的性别字段有效性规则为:男或女;同时设置相应有效性文本为“请输入男或女”。
在考生文件夹下,“samp1.accdb”数据库文件中已建立3个关联表对象(名为“线路”“游客”和“团队”)和窗体对象“brow”。试按以下要求,完成表和窗体的各种操作。建立“线路”和“团队”两表之间的关系并实施参照完整。
考生文件夹下存在一个数据库文件“sampl.accdb”,里面已经设计好表对象“tEmployee”。试按以下要求,完成表的编辑:删除表结构中的“照片”字段;并删除表中职工“编号”为“000004”和“000014”的两条记录。
下列叙述中错误的是
结构化程序设计强调
下面过程运行之后,则变量J的值为PrivateSubFun()DimJAsIntegerJ=5DoJ=J+2LoopWhileJ>10EndSub
在宏的表达式中还可以引用到窗体或报表上的控件的值,引用窗体控件的值可以用的表达式格式是()。
随机试题
=_____。
A.同时视B.融合C.立体视觉D.再注视反射E.融合反射由双眼差异引起的深度知觉是
可产生血浆凝固酶的细菌为
患者,男,30岁。左下后牙自发性剧痛2天。3周前,左下后牙行单层垫底,一次完成银汞合金永久充填。充填前无自发痛。口腔检查:左下第二磨牙远中邻面银汞合金充填物完好,叩诊(-),温度刺激敏感,牙周检查正常。最恰当的应急处理措施是
患者,男性,50岁。颅骨骨折术后拟近期出院。护士在出院指导时应告知患者行颅骨修补术的时间宜在术后
下列各项,按规定应计入企业营业外支出的有()。
某客户在2009年9月1日存入一笔50000元一年期整存整取定期存款,假设年利率3%,一年后存款到期时,他从银行取回的全部金额是()元。
班会
某一确定有限自动机(DFA)的状态转换图如下,与该自动机等价的正规表达式是(28),图中(29)是可以合并的状态。
SummaryListentothepassage.Forquestions26—30,completethenotesusingnomorethanthreewordsforeachblank.Superr
最新回复
(
0
)