设有如下通用过程： Public Sub Fun(a()，ByVal x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text

admin2013-04-11 24

问题设有如下通用过程：
Public Sub Fun(a()，ByVal x As Integer)
   For i=1 To 5
      x=x+a(i)
   Next
End Sub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：
Private Sub Command1_Click()
Dim arr(5)As variant
   For i=1 To 5
      arr(i)=i
   Next
   n=10
   Call Fun(arr()，n)
   Text1.Text=n
End Sub
程序运行后，单击命令按钮，则在文本框中显示的内容是【  】。

选项

答案10

解析 Fun函数的参数x为传值调用。在函数中，对x值的改变不能够返回给n，因此最后n的值仍然为 10，没有改变。

转载请注明原文地址:https://kaotiyun.com/show/Elhp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)

设有如下通用过程： Public Sub Fun(a()，ByVal x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text

二级VB

NCRE全国计算机二级

在窗体画一个命令按钮，然后编写如下事件过程：PrivateSubCommandlClick()Dima(5)AsStringFori=1To5a(i)=Chr(Asc("A")

有如下程序：PrivateSubForm_C1ick()DimCheCk,CounterCheCk=TrueCounter=0Do

注意：下面出现的“考生文件夹”均为C：\wexam\25160002。请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个水平滚动条，其名称为HScroll1，然后通过属性窗

注意：下面出现的“考生文件夹”均为c：\wexam\25160001。在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即’号)，但不能修改其他部分。存盘时不

用______属性可惟一标志控件数组中的某一个控件。

下面不属于软件工程的3个要素的是______。

下面叙述中不正确的是______。

测试的目的是暴露错误，评价程序的可靠性：而【】的目的是发现错误的位置并改正错误。

用于去掉一个字符串的右边的空白部分的函数是______。

为了在按下Esc键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是【】。

深龋引起的可复性牙髓炎，采用间接盖髓术时，常使用的盖髓剂是()

小儿第一次口服脊髓灰质炎疫苗的时间为

关于设备更新分析，以下说法错误的是()。

目前，我国银行业金融机构的监管职责主要由()行使。

中国探月计划迅速发展，下列对中国航天领域描述错误的是：

在企业会计核算的基本前提中，()是企业选择会计处理方法与程序的基础，也是企业会计处理方法与程序保持稳定的条件。

在VisualFoxPro中下列陈述正确的是（）。