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

.,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==k*10+(n\10),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);,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+=x+,mand1,则窗体上显示的第一行是(8),第二行是(9),最后一行是(10)。OptionExplicitDimkAsInteger'mand1_Click()DimNAsInteger,MAsInteger,LcmAsIntegerN=6M=9Lcm=Rec(N,M)PrintLcmEndSubPrivateFunctionRec(AAsInteger,BAsInteger)AsIntegerk=k+1PrintAIfAModB=0ThenRec==Rec(A+A/k,B),mand1,则窗体上显示的第一行是(1),第三行是(2)。mand1_Click()DimsAsString,kAsIntegerDimqAsString,a()AsString,nAsIntegers=ABCDEFGn=1Dok=k+1ReDimPreservea(k)a(k)=Mid(s,n,n)n=n+1LoopWhilen+Len(a(k))<=Len(s)Forn=1ToUBound(a)=\Callsub1(a(n),q)PrintqNextnEndSubPrivateSubsub1(sAsString,qAsString)DimiAsIntegerFori=1ToLen(s)q=Mid(s,i,1)&,mand1,则数组元素a(1,2)的值是(3),a(3,1)的值是(4)。mand1_Click()Dima(3,3)AsInteger,iAsInteger,jAsIntegerFori=1To3Forj=1To3If(i+j)Mod2=(i,j)=i+jElsea(i,j)=(i*3+j)/2EndIfPrinta(i,j);,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-(i,a(i-4))NextiEndSubPrivateFunctionfun(aAsInteger,bAsInteger)AsIntegera=a-1b=b-1fun=(a+b)/,mand1,则数组元素yz(1)的值是(8),数组元素yz(3)的值是(9),窗体上显示的最后一行是(10)。mand1_Click()DimnAsInteger,yz()AsInteger,sAsIntegerDimiAsIntegern=12Calls