设有如下通用过程： Public Sub Fun(a( )As Integer，x

问题单项选择题

设有如下通用过程： 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 5arr(i)=i+i NextFun arr，n Text1.Text=Str(n)End Sub程序运行后，单击命令按钮，则在文本框中显示的内容是

A．30

B．25

C．20

D．15

答案

参考答案：A

解析：本题需先对通用过程分析Fun(a( )As Integer，x As，Integer)的功能，该通用过程是将数组的a(1)到a(5)的和返回，arr(5)的各个元素a(1)到a(5)的值分别为2、4、6、8、10，所以其和为30。