首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮,其名称为Commandl,然后编写如下程序: Private Sub Commandl_click() Dim a(10) As Integer Dim x As Integer For i=1 To 10 a(i) =I Next
在窗体上画一个命令按钮,其名称为Commandl,然后编写如下程序: Private Sub Commandl_click() Dim a(10) As Integer Dim x As Integer For i=1 To 10 a(i) =I Next
admin
2013-03-30
87
问题
在窗体上画一个命令按钮,其名称为Commandl,然后编写如下程序:
Private Sub Commandl_click()
Dim a(10) As Integer
Dim x As Integer
For i=1 To 10
a(i) =I
Next I
x=1
MsgDox a(f(x) +x)
End Sub
Function f(y As Integer)
y=y+2
End Function
程序运行后,单击命令按钮,消息框的输出结果为______。
选项
答案
6
解析
本题考查VBA中参数传递的知识。在VBA的过程调用时,参数有两种传递方式:传址传递和传值传递。如果在过程声明时形参用ByVal声明,说明此参数为传值调用,此时形参的变化不会返回到实参;若用ByRef声明,说明此参数为传址调用,此时形参的变化将会返回到实参;没有说明传递类型,则默认为传址传递。本题中的函数f的形参y没有使用ByVal声明,则默认为传址传递。当求a(f(x)+x)的值的时候,先要求出f(x)+x的值。由于x的值为1,那么调用函数f以后得到f(x)的返回值为3,同时由于函数f中改变了形参y的值
转载请注明原文地址:https://kaotiyun.com/show/e6rp777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
数据的存储结构是指()。
以下程序找出50以内所有能构成直角三角形的整数组。阅读下列程序,并完成程序。PrivateSubCommand1_Click()Fora=1to50Forb=ato50c=S
信息隐蔽的概念与下述哪一种概念直接相关______。
在数据访问页中修改记录时,若要取消当前字段的修改,可以使用的按钮或键是()。
假设已在Access中建立了包含“书名”、“单价”和“数量”三个字段的“tOfg”表,以该表为数据源创建的窗体中,有一个计算订购总金额的文本框,其控件来源为________。
在Access的数据库中已建立了"tBook"表,若查找“图书编号”是“112266”和“113388”的记录,应在查询设计视图准则行中输入_______。
建立了一个窗体,窗体中有一命令按钮,单击此按钮,将打开一个查询,查询名为“qT”,如果采用VBA代码完成,应使用的语句是【】。
窗体中有两个命令按钮:“显示”,(控件名为cmdDisplay)和“测试”(控件名为CmdTest)。以下事件过程的功能是:单击“测试”按钮时,窗体上弹出一个消息框,如果单击消息框的“确定”按钮,隐藏窗体上的“显示”命令按钮:单击“取消”按钮关闭窗体。请按
假定有如下的Sub过程:subsfun(xAsSingle,yAsSingle)t=xx=t/yy=tModyEndSub在窗体上添加一个命令按钮(名为Command1),然
随机试题
挤压综合征最常引起_______。
A.21cm-23cm-16.5cm-7.5cmB.24cm-27cm-18.5cm-8.5cmC.24cm-27cm-16.5cm-9.0cmD.26cm-26cm-16.5cm-10.0cmE.24cm-27cm-18.5cm-7.0cm均
关于拔牙时用力的说法,错误的是
紫外分光光度法非水滴定法
特殊管理的药品管理和使用不当将
区分急性白血病和再生障碍性贫血的临床表现是( )。【历年考试真题】
一般资料:男,28岁,已婚,公司职员。案例介绍:自大学毕业后,就一直在现在的公司工作,不仅人长得帅气,而且对人又非常热情,因此人际关系好,再加上工作能力强且勤奋,深得上司的好评,很快便被提拔为部门主管。一年前,由于一场意外的事故,腿部受伤,虽然经
六个自然数的平均数是7,其中前四个的平均数是8,第4个数是11,那么后三个数的平均数是()。
设x=rcosθ,y=rsinθ,把极坐标系中的累次积分改写成直角坐标系中两种积分次序的累次积分.
Aswomendemonstrateagrowingappetiteforconsumertechproducts,retailersandmanufacturersarestillonlybeginningtocate
最新回复
(
0
)