当前位置: 首页 > 计算机 > 问题详情
问题

在窗体上画一个命令按钮 其名称为Command1 然后编写如下程序: Private Sub Command1_Click() Dim

在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序:

Private Sub Command1_Click()

Dim a(10)As Integer

Dim x As Integer

For i=1 To 10

a(i)=i

Next i

x=1

MsgBoxa(f(x)+x)

End Sub

Function f(y As Integer)

y=y+2

f=y

End Function

程序运行后,单击命令按钮,消息框的输出结果为______。

发布时间:2024-05-07
参考答案

正确答案:6
6 解析:本题考查VBA中参数传递的知识。在VBA的过程调用时,参数有两种传递方式:传址传递和传值传递。如果在过程声明时形参用ByVal声明,说明此参数为传值调用,此时形参的变化不会返回到实参;若用ByRef声明,说明此参数为传址调用,此时形参的变化将会返回到实参;没有说明传递类型,则默认为传址传递。本题中函数f的形参y没有使用ByVal声明,则默认为传址传递。当求a(f(x)+x)值的时候,先要求出f(x)+x的值。由于x的值为1,那么调用函数f以后得到f(x)的返回值为3,同时由于函数f中改变了形参y的值,在传址传递的前提下这一改变会影响到对应的实参x,故此函数调用结束后x的值变为3,也就是最后输出的应该是a(6)的值也就是6。举一反三,如果最后输出的不是a(f(x)+x)而是 a(x+f(x)),则会先取得x的值1,然后再计算f(x)的值为3,那么最后输出的就不是a(6)的值而是a(4)的值了。

相关问题
  • Access数据库对象中 ()是实际存放数据的地方。 A. 表B. 模

    Access数据库对象中,()是实际存放数据的地方。A 表B 模式C 报表D 窗体请帮忙给出正确答案和分析,谢谢!

    答案解析
  • 表的组成内容包括()。 A.查询和报表B.字段和记录C.报表和窗体D.窗

    表的组成内容包括()。A 查询和报表B 字段和记录C 报表和窗体D 窗体和字段请帮忙给出正确答案和分析,谢谢!

    答案解析
  • 若要将窗体从内存中卸载出去 应该使用的方法是______。A. Sho

    若要将窗体从内存中卸载出去,应该使用的方法是______。A. ShowB.UnLoadC.LoadD.Hide请帮忙给出正确答案和分析,谢谢!

    答案解析
  • 如果要改变窗体的标题 则需要设置的属性是A.CaptionB.NameC.

    如果要改变窗体的标题,则需要设置的属性是A.CaptionB.NameC.BackColorD.Borderstyle请帮忙给出正确答案和分析,谢谢!

    答案解析
  • 可决定窗体的左上角是否有控制菜单的属性是()A.ControlBOxB.M

    可决定窗体的左上角是否有控制菜单的属性是 ()A.ControlBOxB.MinButtonC.MaxButtonD.BorderStyle

    答案解析
  • 有如下程序代码()PrivateSubForm_MouseDown(ButtonAsIntegr

    A、鼠标拖曳时在窗体中构造一个圆B、双击鼠标时在窗体中构造一个圆C、单击鼠标时在窗体中构造一个圆D、加载时在窗体中构造一个圆请帮忙给出正确答案和分

    答案解析
  • Access数据库包括表 查询 窗体 报表 【】 宏和模块等基本对象。

    Access数据库包括表、查询、窗体、报表、【 】、宏和模块等基本对象。请帮忙给出正确答案和分析,谢谢!

    答案解析
  • 试题18下列属性汇总 属于窗体的“数据”类属性的是()A.记录

    试题18下列属性汇总,属于窗体的“数据”类属性的是()A.记录源B.自动居中C.获得焦点D.记录选择器

    答案解析
  • 试题13在Access数据库中 表是由()A.字段和记录组成B.查询和

    试题13在Access数据库中,表是由()A.字段和记录组成B.查询和字段组成C.记录和窗体组成D.报表和字段组成

    答案解析
  • 试题9若窗体名称为Form1 则将该窗体标题设置为“Access窗体”的

    试题9若窗体名称为Form1,则将该窗体标题设置为“Access窗体”的语句时__【9】_____。

    答案解析

最新问题

Copyright © 2016-2023 114题库网(114158.com)All Rights Reserved.  免责声明 豫ICP备19007809号-5