首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体中有一个命令按钮Commandl,编写事件代码如下: Dim S As Integer S=P(1)+P(2)+P(3)+P(4) debug.Print s End Sub Public Function P
在窗体中有一个命令按钮Commandl,编写事件代码如下: Dim S As Integer S=P(1)+P(2)+P(3)+P(4) debug.Print s End Sub Public Function P
admin
2021-06-03
80
问题
在窗体中有一个命令按钮Commandl,编写事件代码如下:
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=l 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”,将循环次数累计相加。在按钮单击事件“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+l=1,i2时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/5iSp777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
若要查询成绩为85~100分(包括85分,不包括100分)的学生的信息,查询准则设置正确的是()。
下列选项中,属于白盒测试方法的是()。
下列选项中,不是面向对象主要特征的是()。
打开报表后,下列事件中首先发生的是()。
有Click事件对应的程序如下:PrivateSubCommandlClick()DimsumASDouble,XASDoublesum=1n=0For1=1To5X=n/I
要将计算控件的控件来源属性设置为计算表达式,表达式的第一个符号必须是()。
设一棵树的度为3,共有27个结点,其中度为3,2,0的结点数分别为4,1,10.该树中度为1的结点数为
由“Fori=1To16Step3”决定的循环结构被执行
度为3的一棵树共有30个结点,其中度为3、1的结点个数分别为3、4。则该树中的叶子结点数为
某二叉树的后序遍历序列与中序遍历序列相同,均为ABCDEF,则按层次输出(同一层从左到右)的序列为
随机试题
这个标志是何含义?
男,54岁。Ⅲ度深覆,上缺失,胶连法可摘局部义齿修复,因腭侧树脂基托折断来诊若患者要求改作铸造支架式义齿,则义齿大连接体的最佳设计为
(2012)将蒸汽动力循环与热能利用进行联合工作组成热电联合循环,系统可以实现()。
水泥混凝土路面的纵缝在构造上分为()。
某张票据出票日期为“1月15日”,符合规定的填写是()。
高工资往往能够带来高生产率,其主要原因在于高工资有助于()。
在其他条件不变的情况下,()的上升对劳动力需求产生的替代效应会导致劳动力需求量下降。[2007年真题]
甲公司应收乙公司账款1500万元逾期,已计提坏账准备100万元。因乙公司发生严重财务困难,无力偿还该款项,经协商约定进行债务重组。债务重组内容是:①乙公司以银行存款偿付甲公司账款200万元;②乙公司以一项长期股权投资抵偿剩余账款。乙公司该项长期股权投资的
在银行开立存款账户的法人以及其他组织之间,必须具有真实的交易关系或债权关系,才能使用商业汇票。()
下列关于WindowsXP屏幕保护程序的叙述,错误的是()
最新回复
(
0
)