首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体中有一个命令按钮Command1,编写事件代码如下: Private Sub Command1Click() Dim s As Integer s = P(1)+P(2)+P(3)+P(4) debug.Print s End Sub Public
在窗体中有一个命令按钮Command1,编写事件代码如下: Private Sub Command1Click() Dim s As Integer s = P(1)+P(2)+P(3)+P(4) debug.Print s End Sub Public
admin
2019-02-19
102
问题
在窗体中有一个命令按钮Command1,编写事件代码如下:
Private Sub Command1Click()
Dim s As 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 = 1 To N
Sum = Sum + i
Next i
P = Sum
End Function
打开窗体运行后,单击命令按钮,输出结果是( )。
选项
A、15
B、20
C、25
D、35
答案
B
解析
首先看程序中的Function P函数,在该函数中,首先定义了整型变量Sum,并为变量Sum赋初值0,然后设置了一个For循环,将函数参数作为For循环的控制条件,通过语句"Sum=Sum+i",将循环次数累计相加。在按钮单击事件"Command1Click()"通过语句"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。所以本题答案为B。
转载请注明原文地址:https://www.kaotiyun.com/show/390p777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
窗体是.Access数据库中的一种对象,以下()不是窗体具备的功能。
程序段:str1=”98765”str2=”65”s=IntStr(str1,str2)s的返回值是
下列Case语句中错误的是
下列关于货币数据类型的叙述中,错误的是
软件(程序)调试的任务是
Access中表和数据库之间的关系是()。
下列关系模型中术语解析不正确的是()。
数据库管理系统中负责数据完整性、安全性定义的语言是()。
下列选项中不符合良好程序设计风格的是()。
某二叉树中有15个度为1的结点,16个度为2的结点,则该二叉树中总的结点数为
随机试题
妊娠6个月以前胎心音听诊最清楚的部位
国务院直属机构设立由下列哪项决定?
当采用浮运拖带法进行沉箱的海上浮运时,应进行沉箱()的验算。
《文化和旅游部关于实施旅游服务质量提升计划的指导意见》指出,实施导游和领队专业素养研培计划,不断提升导游和领队(),增强主动传承和弘扬社会主义核心价值观的意识。
下面是某求助者的WAIS-RC的测验结果该测验的量表分低于全国常模水平的测验不包括()
教师在课外活动中处于辅助地位,说明课外活动具有()。
“仁义”也罢,“中庸”也罢,作为价值取向,很是高尚,值得普世推广。并不能因为某些倡导者的虚伪,就判定相关学说是伪善的、只为专制统治服务等等。不过高尚是有条件的,那就是与实用和效益保持距离,非工具化和价值中立。一旦被拖入现实的泥淖,为实用目的服务,作为策略和
根据操作数所在的位置,指出其寻址方式。操作数在寄存器中:(14);操作数地址在寄存器中:(15);操作数在指令中:(16);操作数地址在指令中:(17)。
下列能判断是否到达文件尾的函数是()。
A、Newrestrictionwillbeplacedontheuseofanimals.B、Thescientistswillbeforbiddentokillanimals.C、Thegovernmentwil
最新回复
(
0
)