设有如下通用过程: Public Sub Fun(a(),By Val x As Integer) Fori=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命令按钮,然后编写如下的事件过程: Private Sub Commandl_Chck() Dimart(5)As Variant Fori=1 To 5 arr(i)=iA.10B.15C.25D.24

题目

设有如下通用过程: Public Sub Fun(a(),By Val x As Integer) Fori=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命令按钮,然后编写如下的事件过程: Private Sub Commandl_Chck() Dimart(5)As Variant Fori=1 To 5 arr(i)=i

A.10

B.15

C.25

D.24


相似考题
更多“设有如下通用过程:Public Sub Fun(a(),By Val x As Integer)Fori=1 To 5x=x+a(i)NextEnd Sub在窗 ”相关问题
  • 第1题:

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

    A.30

    B.25

    C.20

    D.15


    正确答案:A
    解析:本题需先对通用过程分析Fun(a()AsInteger,xAs,Integer)的功能,该通用过程是将数组的a(1)到a(5)的和返回,arr(5)的各个元素a(1)到a(5)的值分别为2、4、6、8、10,所以其和为30。

  • 第2题:

    设有如下通用过程: 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 程序运行后,单击命令按钮,则在文本框中显示的内容是 ______。

    A.10

    B.15

    C.25

    D.24


    正确答案:A
    解析:Fun函数的参数x为传值调用。在函数中,对x值的改变不能够返回给n,因此最后n的值仍然为10,没有改变。故应选择A。

  • 第3题:

    设有如下通用过程: 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( ) Dimsn(5)As Variant For i=1 To 5 arc(i)=i Next n=10 Call Fun(arr( ),n) Textl.Text=n End Sub 程序运行后,单击命令按钮,则在文本框中显示的内容是

    A.10

    B.15

    C.25

    D.24


    正确答案:A
    解析:Fun过程中参数a()的传送方式为传地址,参数x的传送方式为传值。当在Commandl的Click事件过程调用该过程时,变量仅仅复制了一个变量副本传送给Fun过程,而它自己本身并没有发生变化。所以当调用完毕Fun过程后,再将n值赋给Textl的Text属性时,文本框中显示的内容仍为10。

  • 第4题:

    设有如下通用过程: Public Sub Fun(a(), ByVal x As Integer) For i=1 To 5 x = x + a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下的事件过程: Private Sub Commandl 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 程序运行后,单击命令按钮,则在文本框中显示的内容是

    A.10

    B.15

    C.25

    D.24


    正确答案:A
    解析:本题主要考查传值与传地址的区别。Fun过程中参数a()的传送方式为传地址,参数x的传送方式为传值。当在Command1的Click事件过程调用该过程时,变量仅仅复制了一个变量副本传送给Fun过程,而它自己本身并没有发生变化.所以当调用完毕Fun过程后,再将n值赋给Textl的Text属性时,文本框中显示的内容仍为10。正确答案为A。

  • 第5题:

    设有如下通用过程: Public Sub Fun(a()As Integer,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 Integer,n AsInteger For i=1 To 5 arr(i)=i+i Next Fun arr,n Text1.Text=Str(n) End Sub 程序运行后,单击命令按钮,则在文本框中显示的内容是( )。

    A.30

    B.25

    C.20

    D.15


    正确答案:A