设有如下通用过程： 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

相似考题

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_Click() Dim arr(5)As Integer, n As Integer For i=1 To 5 art(i)=i+i Next Fun arr, n Text1. Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的内容是______。A．30B．25C．20D．15

2.设有如下通用过程：Public Sub Fun（a（） As Integer, x As Integer）For i = 1 To 5x = x + a（i）NextEnd Sub在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程：Private Sub Command1_Click（）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．30B．25C．20D．15

3.在窗体上有一个命令按钮Commandl，通用过程fun和命令按钮的事件过程如下： Private Function fun(By m As Integer) If m Mod 2=0 Then fun=2 Else Fun=1 Else If End Funcion Private Sub Commandl_Click() Dim i Integer,s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，则窗体上输出A.6 B.7 C.8 D.9

4.设有如下通用过程： Public Sub Fun(a()As Integer,x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命令按钮。然后编写如下的事件过程： Private Sub Commandl_Click() 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． 30B．25C．20D．15

更多“设有如下通用过程: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

相关内容