首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体中添加一个名称为Com1的命令按钮,然后编写如下程序: Private Sub s(ByVal p As Integer) p=p*2 End Sub Private Sub Com1_Click() Dim i
在窗体中添加一个名称为Com1的命令按钮,然后编写如下程序: Private Sub s(ByVal p As Integer) p=p*2 End Sub Private Sub Com1_Click() Dim i
admin
2011-06-07
69
问题
在窗体中添加一个名称为Com1的命令按钮,然后编写如下程序:
Private Sub s(ByVal p As Integer)
p=p*2
End Sub
Private Sub Com1_Click()
Dim i As Integer
i=3
Call s(i)
If i>4 Then i=i^2
End sub
窗体打开运行后,单击命令按钮,则消息框的输出结果为( )。
选项
答案
3
解析
本题考查VBA程序的知识。在VBA的过程调用时,参数有两种传递方式:传址传递和传值传递。如果在过程声明时形参用ByVal声明,说明此参数为传值调用,此时形参的变化不会返回到实参;若用ByRef声明,说明此参数为传址调用,此时形参的变化将会返回到实参:没有说明传递类型,则默认为传址传递。此题中形参p被说明为ByVal传值形式的整型量,当运行Com1_Click()过程时调用s()函数,实参i传送其值给形参p,p发生变化p=p*2=3*2=6。但因为使用的是ByVal传值传递,所以实参i的值不发生变化,if语句中的判断条件为假,所以会直接执行MsgBox i语句后输出3。
转载请注明原文地址:https://kaotiyun.com/show/JLup777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
有如下程序段:inti=1;intj=4;intmain(){inti=8,j=i;cout
假定整数数列中的数不重复,并存放在数组中。下列给定程序中函数fun的功能是:删除数列中值为x的元素,变量n中存放数列中元素的个数。请改正程序中的错误,使它能得出正确的结果。注意:不要改动main函数,不得增行或删行,也不得更改程序的结构
下面关于数据库三级模式结构的叙述中,正确的是()。
下列()是C++语言的有效标识符。
大学中每个年级有多个班,每个班有多名学生,则实体班级和实体学生之间的联系是()。
请使用菜单命令或:直接用VC6打开考生文件夹下的工程proj2,实现一个自定义的字符串类MyString,重载取下标操作符([]),使类的对象能够通过下标取字符串的某位元素。如果下标越界,则返回第一个元素的值。请在程序中//**********f
将E-R图转换到关系模式时,实体与联系都可以表示成()。
堆排序最坏情况下的时间复杂度为
数据库表的字段可以定义默认值,默认值是
下列关于索引的说法中,错误的是()。
随机试题
下列对期现套利描述正确的是()。Ⅰ.期现套利可利用期货价格与现货价格的不合理价差来获利Ⅱ.商品期货期现套利的参与者多是有现货生产经营背景的企业Ⅲ.期现套利只能通过交割来完成Ⅳ.当期货与现货的价差远大于持仓费时,存在期现套利机会
男,20岁,1周前发热,T38℃,伴有恶心、呕吐、腹泻,按肠炎治疗好转。近3天来感胸闷、憋气、头晕、乏力。查体:血压120/60mmHg,心率100次/min,律齐,体温36℃。双肺呼吸音清。心电图示:一度房室传导阻滞,普遍导联T波倒置。有助于该病诊断
下列说法中,符合语言规范具体要求的是()。
在公共政策执行的起始环节中,核心内容是()。
Iwasafraid.Thetruthis,IwasafraidthedayIwalkedintoStanford.AndIwasafraidthedayIwalkedout.【61】Iwas
A、 B、 C、 B
Ruth:WheredoyouintendtospendyourNationalDayholiday?Gloria:______.Couldyougivemesomeadvice?
WhythepassengerjetwasforcedtolandatHalifax,Canada?
Whatdothestudentsdoaftertheintroductionofbasicfilmterminology?
Formillionsofyears,thechangesinEarth’sclimatehavebeendrivenbyforcesofnature.Butforthelastcenturyandahalf,
最新回复
(
0
)