首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体中有一个命令按钮Commandl,编写事件代码如下: Pfive Sub Commandl_Click() Dim S As Integer S=P(1)+P(2)+P(3)+P(4) debug.Prim S E
在窗体中有一个命令按钮Commandl,编写事件代码如下: Pfive Sub Commandl_Click() Dim S As Integer S=P(1)+P(2)+P(3)+P(4) debug.Prim S E
admin
2019-02-19
55
问题
在窗体中有一个命令按钮Commandl,编写事件代码如下:
Pfive Sub Commandl_Click()
Dim S As Integer
S=P(1)+P(2)+P(3)+P(4)
debug.Prim S
End Sub
Public Function PfN AS Integer)
Dim Sum As Integer
Sum=0
For i=l T0 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)=1+2=3,P(3)=l+2+3=6,P(4)=l+2+3+4=10,所以S=1+3+6+10=20。
转载请注明原文地址:https://kaotiyun.com/show/O90p777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
在窗口中有一个标签Labe10和一个命令按钮Commandl,Commandl的事件代码如下:PrivateSubCommand1一Click()Label0.Left=Labe10.Left+100EndS
FindNext命令用于
一棵二叉树中共有80个叶子结点与70个度为1的结点,则该二叉树中的总结点数为
在已建窗体中有一命令按钮(名为Commandl),该按钮的单击事件对应的VBA代码为:PrivateSubCommandk_Click()subT.Form.RecordSource="select*from雇员"E
假设有一组数据:工资为800元,职称为“讲师”,性别为“男”,在下列逻辑表达式中结果为“假”的是
设有表示学生选课的三张表,学生S(学号,姓名,性别,年龄,身份证号),课程C(课号,课名),选课SC(学号,课号,成绩),则表SC的关键字(键或码)为
在考生文件夹下有一个数据库文件“samp3.mdb”,里面已经设计了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。同时,给出窗体对象“fEmp”上一个按钮的单击事件代码,请按以下功能要求补充设计:(1)设置窗
某二叉树中有15个度为1的结点,16个度为2的结点,则该二叉树中总的结点数为
定义部门关系模式:部门(部门号,部门名,部门成员,部门总经理),使它不满足第一范式的属性是
设有课程关系模式:R(C#,Cn,T,TA)(其中C#为课程号,Cn为课程名,T为教师名,Ta为教师地址),并且假定不同课程号可以有相同的课程名,每门课程只有一位任课教师,但每位教师可以有多门课程。关系R范式最高达到
随机试题
下面属于足骨的是()
桡骨头半脱位常用的处理方法是
急性溶血、慢性溶血急性发作与慢性溶血不同之处是
中心线经被照体的内侧射向外侧的方向称
医疗保险统筹基金最高支付限额一般控制在当地职工年平均工资的()倍左右。
(2011年考试真题)企业合并业务发生时确认的资产、负债初始计量金额与其计税基础不同所形成的应纳税暂时性差异,不确认递延所得税负债。()
2013年3月10日,A公司通过互联网发布广告称其有一批优质木材出售,价格为每立方米3500元.并附有图片和规格。B公司见到后,即向A公司发出电子邮件,称如果价格能降低至每立方米2500元,愿意至少购买100立方米。A公司以电子邮件回复,可以商量,希望
“十五”以来,广东省的产业集群发展迅速,特色产业基地已成为广东省经济持续快速增长的新亮点。据统计,2006年广东省特色产业基地工业总产值达4930亿元,约占全省工业总产值的10%,基地的高新技术产品产值1650亿元,占全省高新技术产品产值的1l%。全省特色
Tostartwith,youshouldselectthe______.
Nowastothematteroflying.Youwanttobeverycarefulaboutlying;otherwiseyouarenearlysuretogetcaught.Oncecaught
最新回复
(
0
)