设有如下通用过程： 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
设有如下通用过程： 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．30
B．25
C．20
D．15
相关考题：
（ 35 ）有如下程序：：#includeusing namespace std:class Sample{friend long fun （ Sample s ） ;public:Sample （ long a ） {x=a;}Private:long x;};long fun （ Sample s ）{if （ s.x2 ） retum 1;retum s.x*fun （ Sample （ s.x-a ））}int main （）{int sum=0for （ int i =0; i 6; i ++ ） { sum+=fun （ Sample （ i ） ; ） }coutSUM;retum 0;}运行时输出的结果是A ） 120B ） 16C ） 154D ） 34
设有如下通用过程： 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
（31）设有如下通用过程：Public Function Fun(xStr As String)As StringDim tStr As String, strL As IntegertStr=""strL=Len(xStr)i=1i=i+1LoopFun=tStrEnd Function在窗体上画一个名称为 Command1 的命令按钮。然后编写如下的事件过程：Private Sub Command1_Click( )Dim S1 As StringS1="abcdef"Print UCase(Fun(S1))End Sub程序运行后，单击命令按钮，输出结果是（ ）。A）ABCDEFB）abcdefC）AFBECDD）DEFABC
设有如下通用过程：Public Sub Fun（a（） As Integer, x As Integer）For i = 1 To 5x = x + a（i）NextEnd Sub在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程：Private Sub Command1_Click（）Dim arr（5） As Integer, n As IntegerFor i = 1 To 5 arr（i） = i + iNext Fun arr, n Text1.Text = Str（n）End Sub程序运行后，单击命令按钮，则在文本框中显示的内容是（ ）。A．30B．25C．20D．15
有如下程序: include using namespace std; class Sample { frien 有如下程序： #include ＜iostream＞ using namespace std; class Sample { friend long fun(Sample s); public: Sample(long a) {x=a;} private: long x; }; long fun(Sample s) { if(s.x ＜ 2) return 1; return s.x * fun(Sample(s.x-1)); } int main() { int stun = 0; for (int i=0; i＜6; i++) {sum += fun(Sample(i));} cout ＜＜ sum; return 0; }运行时输出的结果是A．120B．16C．154D．34
有如下程序 include using namespace std;int i=1;class Fun {public:static int i;i 有如下程序 #include ＜iostream＞using namespace std;int i=1;class Fun {public:static int i;int value(){ return i-1;}int value()const{ return i+1;}};int Fun:: i=2;int main() {int i=3;Fun fun1;const Fun fun2;______________________return ();}若程序的输出结果是:123A．cout＜＜fun1.value()＜＜Fun:: i＜＜fun2.value();B．cout＜＜Fun::i＜＜fun1.value()＜＜fun2.value();C．cout＜＜fun1. value()＜＜fun2.value()＜＜Fun:: i;D．cout＜＜fun2.value()＜＜Fun:: i＜＜fun 1.value();
设有如下通用过程： 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
有如下程序： #inCludeiostream using namespaCe std； Class Sample{ friend long fun(Sample S)； publiC： Sample(10ng A．{x=a；} private： long X； }； long fun(Sample S){ if(S．x2)return l； return S．X*fun(Sample(s．x-1))； } int main（ ） { int sum=0； for(int i=0；i6；i++) {sum+=fun(Sample(i))；} Coutsum： return 0； } 执行这个程序的输出结果是（ ）。A.120B.16C.154D.34
链表的定位函数loc(I:integer):pointer; {寻找链表中的第I个结点的指针}procedure loc(L:linklist; I:integer):pointer;var p:pointer;j:integer;
8、下列程序中，哪一行语句有错误 。 1 PROGRAM P01 2 INTEGER:: I,S=0 3 DO I=10,1,-2 4 I=I*I 5 S=S+I 6 ENDDO 7 END PROGRAMA．2B．3C．4D．7