设有如下通用过程：

Public Sub Fun（a（） As Integer, x As Integer）

F．or i = 1 To 5

x = x + a（i）

Next

E．nd Sub

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程：

Private Sub Command1_Click（）

D．im arr（5） As Integer, n As Integer

For i = 1 To 5

 arr（i） = i + i

Next

 Fun arr, n

 Text1.Text = Str（n）

E．nd Sub

程序运行后，单击命令按钮，则在文本框中显示的内容是（ ）。

A．30

B．25

C．20

D．15

[单选题]设有如下通用过程： 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) Text

[单选题]设有如下通用过程： 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 Text

[单选题]设有如下通用过程：Public Function Fun（xStr As String）D．im tStr As String, srtL As IntegertStr+" "strL=Len（xStr）i=1D．o While i <=strL/2tStr=tStr &Mid（xStr,i ,1）& Mid （xStr ,strL-i+1,1）i=i+1LoopF．un=tStrE．nd Function在窗体上画一个名称为 Textl 的文本框和一个名称为 Comm

[单选题]（ 27 ）设有如下通用过程：Public Function Fun(xStr As String) As StringD．im tStr As String, strL As IntegertStr = ""strL = Len(xStr)i = 1D．o While i <= strL / 2tStr = tStr & Mid(xStr, i, 1) & Mid(xStr, strL - i + 1, 1)i = i + 1LoopF．un = tStrE．nd F

[单选题]（31）设有如下通用过程：Public Function Fun(xStr As String)As StringD．im tStr As String, strL As IntegertStr=""strL=Len(xStr)i=1i=i+1LoopF．un=tStrE．nd Function在窗体上画一个名称为 Command1 的命令按钮。然后编写如下的事件过程：Private Sub Command1_Click( )D．im S1 As StringS1="abcdef"Pri

[单选题]设有如下通用过程： 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

[单选题]设有如下通用过程：Pubfic Function Fun(xStr As String)As StringD．im tStr As String，strL As Integertstr=“”strL=Len(xStr)i=1D．o While i<=strL／2tStr=tStr＆Mid(xStr，i，1)＆Mid(xStr，strL-i+1，1)i=i+1LoopF．un=tStrE．ndFunction在窗体上画一个名称为Commandl的命令按钮。然后编写如下的事件过程：Privat

[单选题]设有如下通用过程：Public Function Fun (xStr As String) As String Dim tStr As String，strL As Integer tStr=-" " strL=Len(xStr) i=strL/2 Do Whilei＜=strL tStr=tStr &id(xStr,i+1，1) i=i+1 Loop Fun=tStr & tStrEnd Function 在窗体上画—个名称为Text1的文本框和—个名称为Command1的

[单选题]设有如下通用过程： Public FunctionFun(x Str As String)As String DimtStr As String，strL As Integer tStr="" strL=Len(xStr) i=1 DoWhilei＜=strL/2 tStr=tStr&Mid(xStr,i，1)&Mid(xStr,strL-i+1，1)" i=i+1 Loop Fun=tStr End Function 在窗体A．ABCDEFB．abcdefC．AFBECD

[单选题]设有如下通用过程： 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.Te