江苏计算机二级vb填空题.doc

填空题1执行下面程序,mand1,则窗体上显示的第一行是(1),最后一行是(2)。mand1_Click()DimnAsLong,kAsInteger,a()AsIntegern=123456789Dok=k+1ReDimPreservea(k)a(k)=nMod100n=n\100LoopUntiln=0Fork=1ToUBound(a)Printfun(a(k))NextkEndSubPrivateFunctionfun(nAsInteger)AsIntegerDimkAsIntegerk=nMod10fun=k*10+(n\10)EndFunction执行下面程序,mand1,则数组元素a(2,1)的值是(3),a(1,2)的值是(4)。mand1_Click()Dima(3,3)AsInteger,iAsInteger,kAsIntegerDimnAsIntegern=9Fork=1To3Fori=1To3a(i,k)=nn=n-1NextiNextkFori=1To3Fork=1To3Printa(i,k);NextkPrintNextiEndSub执行下面程序,mand1,则窗体上显示的第一行是(5),第二行是(6),第三行是(7)。mand1_Click()DimiAsInteger,aAsInteger,bAsIntegera=1b=2i=aDoWhilefun(i,b)<=7i=i+ab=b+1PrintiLoopEndSubPrivateFunctionfun(ByValxAsInteger,yAsInteger)AsIntegerx=x+1y=y+1fun=x+yPrintfunEndFunction执行下面程序,mand1,则窗体上显示的第一行是(8),第二行是(9),最后一行是(10)。OptionExplicitDimkAsInteger'mand1_Click()DimNAsInteger,MAsInteger,LcmAsIntegerN=6M=9Lcm=Rec(N,M)PrintLcmEndSubPrivateFunctionRec(AAsInteger,BAsInteger)AsIntegerk=k+1PrintAIfAModB=0ThenRec=AElseRec=Rec(A+A/k,B)EndIfEndFunction2执行下面程序,mand1,则窗体上显示的第一行是(1),第三行是(2)。mand1_Click()DimsAsString,kAsIntegerDimqAsString,a()AsString,nAsIntegers="ABCDEFG"n=1Dok=k+1ReDimPreservea(k)a(k)=Mid(s,n,n)n=n+1LoopWhilen+Len(a(k))<=Len(s)Forn=1ToUBound(a)q=""Callsub1(a(n),q)PrintqNextnEndSubPrivateSubsub1(sAsString,qAsString)DimiAsIntegerFori=1ToLen(s)q=Mid(s,i,1)&qNextiEndSub执行下面程序,mand1,则数组元素a(1,2)的值是(3),a(3,1)的值是(4)。mand1_Click()Dima(3,3)AsInteger,iAsInteger,jAsIntegerFori=1To3Forj=1To3If(i+j)Mod2=0Thena(i,j)=i+jElsea(i,j)=(i*3+j)/2EndIfPrinta(i,j);NextjPrintNextiEndSub执行下面程序,mand1,则数组元素a(5)的值是(5),窗体上显示的第二行是(6),第三行是(7)。mand1_Click()DimiAsInteger,a(5)AsInteger,jAsIntegerFori=1To5a(i)=2*i-1Printa(i);NextiPrintFori=a(5)Toa(3)Step-1Printfun(i,a(i-4))NextiEndSubPrivateFunctionfun(aAsInteger,bAsInteger)AsIntegera=a-1b=b-1fun=(a+b)/2EndFunction执行下面程序,mand1,则数组元素yz(1)的值是(8),数组元素yz(3)的值是(9),窗体上显示的最后一行是(10)。mand1_Click()DimnAsInteger,yz()AsInteger,sAsIntegerDimiAsIntegern=12Callsub1(n,yz)Fori=1ToUBound(yz)s=s+yz(i)Printyz(i)NextiPrintsEndSub