首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
单击命令按钮时,下列程序的执行结果为 Private Function P(N As Integer) Static sum For I = 1 To N sum = sum + 1 Next I P = sum End
单击命令按钮时,下列程序的执行结果为 Private Function P(N As Integer) Static sum For I = 1 To N sum = sum + 1 Next I P = sum End
admin
2020-10-14
26
问题
单击命令按钮时,下列程序的执行结果为
Private Function P(N As Integer)
Static sum
For I = 1 To N
sum = sum + 1
Next I
P = sum
End Function
Private Sub Command1_Click()
S = P(1) + P(2) + P(3) + P(4)
Debug.Print S
End Sub
选项
A、20
B、30
C、115
D、135
答案
A
解析
本题考察For循环结构。首先看程序中的Function P函数,在该函数中,首先定义了静态变量sum,默认初始值为0,然后设置了一个For循环,将函数参数作为For循环的控制条件,通过语句"sum=sum+i",将循环次数累计相加。在按钮单击事件"Command1_Click()"通过语句"s=p(1)+p(2)+p(3)+p(4)"调用函数并将函数结果用于计算,下面就来分析一下程序运行过程:P(1),带入函数P的参数N=1,For循环运行1次:i=1:sum=0+1=1,所以P(1)=1;P(2),带入函数P的参数N=2,For循环运行2次:i=1:sum=0+1=1,i=2:sum=1+2=3,所以P(2)=3;P(3),带入函数P的参数N=3,For循环运行3次:i=1:sum=0+1=1,i=2:sum=1+2=3,i=3:sum=3+3=6,所以P(3)=6;P(4)带入函数P的参数N=3,For循环运行4次:i=1:sum=0+1=1,i=2:sum=1+2=3,i=3:sum=3+3=6,i=4:sum=6+4=10,所以P(4)=10;那么,s=P(1)+P(2)+P(3)+P(4)= 1+3+6+10=20,所以输出结果为20。
转载请注明原文地址:https://jikaoti.com/ti/xjQ0FFFM
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
下面不属于结构化程序设计原则的是
学生选修课程的关系模式为SC(S#,Sn,Sd,Sa,C#,G)(其属性分别为学号、姓名、所在系、年龄、课程号和成绩):C(C#,Cn,P#)(其属性分别为课程号、课程名、先选课)。关系模式中包含对主属性部分依赖的是
定义学生选修课程的关系模式如下:S(S#,Sn,Sd,Sa)(其属性分别为学号、姓名、所在系、年龄):C(C#,Cn,P#)(其属性分别为课程号、课程名、先选课);SC(S#,C#,G)(其属性分别学号、课号和成绩)。检索选修了课程号为
Access中,如果不想显示数据表中的某些字段,可以使用的命令是()。
若要确保输入的联系电话值只能为8位数字,应将该字段输入掩码设置为()。
在关系运算中,选择运算的含义是()。
在VBA中要打开名为“学生信息录入”的窗体,应使用的语句是()。
若要求在文本框中输入文本时达到密码“水”号的显示效果,则应设置的属性是()。
要在报表的每页底部输出信息,应设置的是()。
随机试题
患者,男性,40岁。行走时左侧小腿和足部出现间歇性疼痛5年余。近1个月夜间呈持续性疼痛,足趾呈紫黑色、干冷。有吸烟史20余年,每天2包。下列治疗措施不适合该患者的是
由于工件圆弧中心与回转工作台不同轴,在用()加工时成形轮廓面不准。
请根据所学相关理论,为咨询师咨询调查设计一份检验单。全国高等教育自学考试
疖、痈的常见致病菌为()
具有清热解毒、排脓、利尿之功效的药物是
A.低分子右旋糖酐B.酚妥拉明C.多巴酚丁胺D.毛花苷丙(西地兰)E.糖皮质激素休克病人经充分扩容后血压相对平稳,此时宜选用何种药物改善微循环
有关糖皮质激素药理作用的叙述,错误的是()。
出现下列()情形之一的,法定代理或者指定代理终止。
对孔府大门联“与国咸休,安富尊荣公府第;同天并老,文章道德圣人家”解释正确的有()。
Interestinpursuinginternationalcareershassoaredinrecentyears,enhancedbypersonnelshortagesthatarecausingcompanie
最新回复
(
0
)