首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面程序代码: Private Sub Command1_Click() Dim x As Integer,S As Integer x=1 For k=1To3 x=x+1:proc x:s===s+x Next k Print s End Sub P
有下面程序代码: Private Sub Command1_Click() Dim x As Integer,S As Integer x=1 For k=1To3 x=x+1:proc x:s===s+x Next k Print s End Sub P
admin
2016-09-19
21
问题
有下面程序代码:
Private Sub Command1_Click()
Dim x As Integer,S As Integer
x=1
For k=1To3
x=x+1:proc x:s===s+x
Next k
Print s
End Sub
Private Sub proc(ByVal a As Integer)
Static x As Integer
x=x+1:a=a+x
End Sub
程序运行后,单击命令按钮Command1,输出结果是
选项
A、6
B、9
C、15
D、19
答案
B
解析
本题中首先要区分在命令按钮的单击事件中定义的x是局部变量,仅能在过程内部起作用:在子过程proc中定义的静态变量x也是局部变量,也只能在本过程中起作用。在VB的过程调用时,参数有两种传递方式:传址传递和传值传递。如果在过程声明时形参用ByVal声明,说明此参数为传值调用:若用ByRef声明,说明此参数为传址调用;没有说明传递类型,则默认为传址传递。即形参的结果会传递给实参。本题中proc过程的参数a用的是值传递,因此形参的改变不会影响到实参,所以在命令按钮的单击事件中循环累加的是2+3+4=9。
转载请注明原文地址:https://kaotiyun.com/show/nOLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设在菜单编辑器中定义了一个菜单项,名为menu1。为了在运行时隐藏该菜单项,应使用的语句是
下列程序段的执行结果为m=2n=3Do m=m+n n=n+1LoopWhilem<10Printm;n
以下用户自定义函数FunctionFunc(aAsInteger,bAsInteger)AsIntegerStaticmAsInteger.iAsInteger m=0:i=2 i=i+m+i
以下语句用于打开一个顺序文件Open“C:\MyFile.txt”ForOutPut,但是该语句的一个重要错误是没有
面程序的功能是找出能够被13、23、43除余数分别为1、2、3的最小的两位正整数。请填空。PrivateSubForm_Click() DimiAsInteger,jAsInteger j=0 j=43
Function过程有别于Sub过程的最主要的特点是()。
当用户()时,会引发焦点所在控件的KeyPress事件。
在窗体上绘制一个名称为Label1的标签,然后编写如下事件过程:PrivateSubForm_Click() Dimarr(10,10)AsInteger DimiAsInteger,jAsInteger
随机试题
水平固定管道组对时应特别注意问隙尺寸,一般应()。
下列关于专利权被宣告无效的溯及力表述错误的是()
关于顺向型房室折返性心动过速的描述,不正确的是
A.柴胡疏肝散合胃苓汤加减B.一贯煎合膈下逐瘀汤加减C.中满分消丸合茵陈蒿汤加减D.调营饮加减E.附子理中汤合五苓散加减治疗肝硬化脾肾阳虚证,应首选
某企业2010年发生亏损100万元,按规定可以用2011年度税前利润弥补,该企业2011年实现利润70万元,弥补了上年部分亏损,2011年末企业对实现利润的会计处理是()。
仲裁裁决作出后,当事人就同一纠纷不能再申请仲裁或向人民法院起诉。()
甲以个人名义向乙独资设立的腾飞有限公司借款8万元,借期2年,不久,甲与丙登记结婚,将借款8万元用于购买新房和家电,婚后1年,甲与丙协议离婚,未对债务的偿还作出约定。下列哪一项是正确的?()
2004年某省种植业结构继续调整,粮食作物的种植面积占农作物种植总面积比例由上年的60.2%调整为58.4%,全年粮食作物种植面积147.11万公顷,比去年减少9.0万公顷,粮食总产量713.16万吨,其中春、夏、秋粮的产量所占比例如下图所示。与去年相比,
下列选项中,属于构建社会主义和谐社会的主要任务的是:()。
Whilethetechnologicaladvancementsthathavebroughtustailor-madeonlineshoppingattheclickofabuttonisworthcelebrat
最新回复
(
0
)