有如下程序代码,输出结果是( )。Dima()a=Array(1,2,3,4,5)fori=Lbound(a)toUbound(a)printa(i);nexti A.12345B.01234C.54321D.43210
有如下程序代码,输出结果是( )。Dima()a=Array(1,2,3,4,5)fori=Lbound(a)toUbound(a)printa(i);nexti
A.12345
B.01234
C.54321
D.43210
相关考题：
在窗体上添加一个命令按钮，然后编写如下事件过程： Phvate Sub Commanl_Click() Dima(10)As Integer Dimp(3)As InteSer k=5 Fori=1 To 10 a(i)=i Nexti Fori=1 To 3 p(i)=a(i*i) Nexti Fori=1 To 3 k=k+p(i)*2 Nexti Printk End Sub 该程A．35B．33C．31D．29
下列程序运行时输出的结果是( )。 Option Base 1 Private Sub Form_Click() Dimx(10)As Integer,y(5) As Integer ForI=1 to 10 x(i)=10-I+1 NextI ForI=1 to 5 y(i)cx(2*-1)+x(2*I) NextI ForI=1 to 5 Printy(i)； NextIA．3 7 11 45 19B．17 13 9 5 1C．1 3 5 7 9D．不确定的值
有如下函数过程： Function lj(x As Integer)As Long Dims As Long Dimi As Integer s=0 Fori=1 To x s=s+i Nexti lj=s End Funcfion 在窗体上添加一个命令按钮，名为Commandl，编写事件过程调用该函数，输出结果为 ( )。 Private Sub Commandl_lick()A．25B．35C．45D．55
如下程序：Dima()AsStringPrivateSubCommand1_Click()DimtempAsStringDimiAsIntegertemp=Replace(Text1,,,,,)a=Split(temp,,)Fori=0ToUBound( )Printa(i);NextiEndSub程序运行后，在text1中输入字符串23,,45,6，则单击command1按钮后，显示的结果为( )A.23，，45，6B.23456C.23，45，6D.23，，45，6
下面程序的输出结果为( )PrivateSubCommand1_Click()Dima%(1To5),b%(2To10),i%,t1#,t2#Fori=1To5a(i)=iNextit1=tim(a())Printt1=;t1EndSubFunctiontim(a()AsInteger)Dimt#,i%t=1Fori=LBound( )ToUBound( )t=t*a(i)Nextitim=tEndFunctionA.t1=10B.t1=12C.t1=120D.120
有如下程序，单击command1后窗体显示结果是( )OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4,5)Fori=LBound( )ToUBound( )a(i)=i*a(i)NextiPrinti;UBound( )EndSubA.65B.625C.不确定D.程序出错
3有如下程序，输出结果为( )。 Private Sub Form_Activate() Dima a=Array(1,2,3,4,5) Fori=LBound(a)To UBound(A) a(i)=i*a(i) Nexti Printi，LBound(a)，UBound(a)，a(i) End SubA．4 0 4 25B．5 0 4 25C．不确定D．程序出错
设有如下程序： Private Sub search(a()As Variant，ByVal key As Variant，index%) Dim I％ For I = Lbound(a)To Ubound(A)If key=a(I)Then index=I Exit Sub End If Next I index=-1 End Sub Private Sub Form_Load() Show Dim b()As Variant Dim n As Integer b=Array(21，64，92，15，72，38，45，72) Call search(b， 45， n) Print n End Sub 程序运行后，输出的结果是A．2B．6C．10D．12
在窗体上画一个命令按钮(其Name属性为Commandl)，然后编写如下代码：Private Sub Commandl_Click()Dima(5)Fori=0 To 4A(i)=i+1t=i+1If t=3 ThenPrint a(i)A(t-1)=a(i-2)ElseA(t)=a(i)End IfIfi=3 Thena(i+1)=a(t-4)A(4)=1Printa
设有如下程序： Dim a()As Integer Private Sub Command1_Click() n=-5:m=6 ReDim a(n To m) For i=LBound(a，1)To UBound(a，1) a(i)=i Next i Print a(LBound(a，1))；a(UBound(a，1)) End Sub 程序运行后，单击命令按钮，则输出结果是 ______。A．0 0B．-5 0C．-5 6D．0 6
执行了下面的程序后，组合框中数据项的值是( )。 PrivateSubForm_Click() Fori=1 To 6 Comb01.Addltem i Nexti Fori=1 To 3 Combol．Removeltem i Nexti End SubA．1 5 6B．1 3 5C．4 5 6D．2 4 6
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim a(5)As String Fori=1 To 5 a(i)=Chr(Asc("A")+(11)) Nexti For Each b In a Print b Next End Sub 程序运行后，单击命令按钮，输出结果是( )。A．ABCDEB．1 2 3 4 5C．abcdeD．出错信息
执行以下Commandl的Click事件过程，在窗体上显示( )。 Option Base 0 Private Sub Commandl_Click() Dima a=Array("a"，"b"，"c"，"d"，"e"，"f"，"g") Printa(1);a(3);a(5) End SubA．abcB．bdfC．aceD．出错
在窗体上添加一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click（ ） Dima（ ） a=Array（1，3，5，7）s=0Fori=1 t0 3S=S*10+a（i）NextiPrint SEndSub程序运行后，输出结果为（ ）。A.135B.357C.531D.753
已知字符串Str$()的定义语句为DimStr$(1te30)，下列循环语句能实现将A到Z的大写字母赋予字符数组Str$()的是______。A．Fori=lTo26Sir$(i)=Chr$(i+65)NeViB．Fori=1T025Str$(i)=Chr$(i+64)NextiC．Fori=0To25Str$(i)=Chr$(i+64)NextiD．Fori=OTo25Str$(i)=Chr$(i+65)Nexti
下列程序运行时输出的结果是( )。 Private Sub Form_Click() Dima a=Array("天天向上"，"清华大学"，"天上人间"，"程序设计") forI=Lbound(a，1) to Ubound(a，1) ifleft(a(i)，1)="天"then print a(i)； nextI End SubA．天天向上B．天天向上天上人间C．出错信息D．天天向上清华大学天上人间程序设计
下面程序运行后，输出结果是( )。 Private Sub mysub(b()As Integer,OptionalByValnAsInteger=2) ForI=1 to 4 b(I)=n*I NextI End Sub Private Sub Commandl_Click() Dima(1 to 4)As Integer，I As Integer Callmysub(a()，5) Mysuba() ForI=1 to 4 PrinA．5101520B．2468C．出错D．0000
下列程序运行时输出的结果是( )。 Option Base 1 Private Sub Form_Click() Dimx(10) ForI=1 to 10 x(i)=10-I+1 Next I ForI=10 to 1 step-2 Printx(i)； NextI End SubA．1 3579B．975 3 1C．1234567 89 10D．1098765432 1
下列程序的输出结果是( )。 Dima a=Array(1，2,3,4,5,6,7,8) i=0 ForK=100 To 90 Step-2 s=a(i)^2 If a(i)＞3 Then Exit For i=i+1 Nextk Printk；a(i)；sA．88 6 36B．88 1 2C．90 2 4D．94 4 16
单选题有如下程序：#includevoid change(int * array,int len){ for(;len=0;len--)array[len]-=1;}main(){ int i, array[5]={2,2}; change(array,4); for(i=0;i5;i++)printf("%d,",array[i]); printf("");}程序运行后的输出结果是（ ）。A1,1,-1,-1,-1,B1,0,-1,1,-1,C1,1,1,1,1,D1,-1,1,-1,1,
单选题有如下程序：#include int sum(int *array,int len){ if(len == 0) return array[0]; else return array[0]+sum(array+1,len-1);}main(){ int array[5] = {1,2,3,4,5}; int res = sum(array,4); printf(%d,res);}程序运行后的输出结果是（ ）。A15B10C8D1
单选题有如下程序： #include voidchange(int*array,intlen) { for(;len=0;len--) array[len]+=2; } main() { inti,array[5]={1,2}; change(array,4); for(i=0;i4;i++) printf("%d,",array[i]); printf(""); } 程序运行后的输出结果是（ ）。A2,3,4,5,B3,4,5,6,C3,4,2,2,D1,2,0,0,
单选题有如下程序：#include main(){ int i,*ptr; int array[3]={8,2,4}; for(ptr=array,i=0;i printf("%d,",*ptr++); printf("");}程序运行后的输出结果是（ ）。A8,2,B8,8,C2,4,D4,8,