首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体中添加一个名为Command1的命令按钮,然后编写如下程序: Private Sub s(By Val p As Integer) p=p*2 End Sub Prirate Sub Command1_Click( ) Dim i As Intege
在窗体中添加一个名为Command1的命令按钮,然后编写如下程序: Private Sub s(By Val p As Integer) p=p*2 End Sub Prirate Sub Command1_Click( ) Dim i As Intege
admin
2010-06-10
77
问题
在窗体中添加一个名为Command1的命令按钮,然后编写如下程序:
Private Sub s(By Val p As Integer)
p=p*2
End Sub
Prirate Sub Command1_Click( )
Dim i As Integer
i=3
Call s(i)
If i>4 Then i=i^2
MsgBox I
End Sub
窗体打开运行后,单击命令按钮,则消息框的输出结果为______。
选项
答案
3
解析
由于VBA中,传值调用(Byval选项)为“单向”作用形式即过程调用只是相应位置实参的值“单向”传送给形参处理,而被调用过程内部对形参的任何操作引起的形参值的变化均不会反馈、影响实参的值。此题中:形参p被说明为ByRef唯值形式的整型量,当运行Command1_Click( )过程,并调用s( )函数,实参i传送其值给形参p,p发生变化P=p*2=3*2=6。但因为使用的是DyVal“单向”传值形式,实参i的值不会发生变化,仍然为3。i>4条件不成立,不会执行“i=i^2”语句,所以最后i的值为3。
转载请注明原文地址:https://kaotiyun.com/show/isup777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
当使用ifstream流类定义一个流对象并打开一个磁盘文件时,文件的默认打开方式为()。
使用VC6打开考生文件夹下的源程序文件mod12.cpp。请完成函数fun(intx),该函数功能是将x的值转换成二进制数输出到屏幕,并且在函数中调用写函数WriteFile()将结果输出到modi2.txt文件中。例如:x=13,13的二进制
在下面的4个关键字中用来说明虚函数的是()。
有三个关系R、S和T如下:由关系R和S通过运算得到关系T,则所使用的运算为( )。
在软件开发中,需求分析阶段产生的主要文档是( )。
使用VC++6.0打开考生文件夹下的源程序文件1.cpp,该程序运行时有错,请改正其中的错误,使程序正常运行,即使程序在屏幕输出以下类似内容:0012FF681OOl2FF3C50012FF6C20012FF444
医院里有不同的科室,每名医生分属不同科室,则实体科室与实体医生间的联系是()。
构成计算机软件的是
算法的有穷性是指( )。
用VC6打开考生文件夹下的源程序文件modi3.cpp,这个程序完成输出到屏幕一些特定的信息,但工程有错误或者不完整,请完成以下功能:(1)初始化mNurn2的值为i,请在注释//********1********后添加适当的语句。
随机试题
投资者对房地产内部,使用功能的变动(例如,在公寓内设置自助洗衣房提供洗衣服务等),体现了投资者对房地产投资()的重视。
“备案号”栏应填()“保费”栏()
张小姐有了一定积蓄,想买一些外汇产品,但她对外汇产品不甚了解,于是向理财规划师进行咨询。外汇汇率具有双向表示的特点:它既可以用本币表示外币价格,又可以用外币表示本币价格。目前,除了英国,欧盟,美国,澳大利亚,新西兰等之外,世界上绝大多数国家,包括中国在
期货交易所向会员收取的保证金属于()所有。
关于建筑安装业应纳营业税代理审查的说法,正确的有()。
学生没有智力障碍,但在阅读、写作或数学方面仍然存在困难。针对此类学习有困难的学生,可采用的正确教学策略有()。
依据《行政处罚法》规定,限制人身自由的行政处罚应由()。
对清朝平定“三藩叛乱”的评价有误的一项是()。
FactorsInfluencingMarriageThecommonviewinsocialscienceofloverelationshipsisnotthatoppositesattracteachother
Singapore(新加坡)isthenameofanislandonthesouthofMalaya.Itisalsothenameofthecityonthesouthsideofthisisland.
最新回复
(
0
)