15 DimxAsInteger,yAsIntegerPrivateSubForm_Click()DimAAsInteger,BAsA=5:B=3： CallSub1(A,B)： PrintA,B：Printx,yEndSubPrivateSubSub1(ByValMAsInteger,NAsDimxAsInteger,yAsx=M+N:y=M–N：M=fun1(x,y)： N=fun1(y,x)EndSubPrivateFunctionfun1(AAsInteger,BAsInteger)AsIntegerx=A+B:y=A–B：Printx,y： fun1=x+yEnd執(zhí)行下面的程序，單擊Commandl，則窗體上第一行顯示的是(7) 是 OptionExplicitDimXAsPrivateSubCommandl_Click()DimY CallPrintX，Y: Callprocess((Y)): PrintX，YEndSubPrivateSubprocess(nAsInteger)DimYAsIntegerIfn>0Then EndIfEndcommandl，A7的值為(8)OptionExplicitDimAAsPrivateSubCommand1_Click()DimBAsInteger PrintA,BPrivateFunctionFun(NAsInteger,KAsInteger) asinteger End執(zhí)行下面的程序，單擊Commandl，在窗體上顯示的第一行的內(nèi)容是(13) 容是(14 )，第三行的內(nèi)容是(15)OptionPrivateSubDimnAsInteger，iAsIntegerFori=7To1Step-Callsub2(i，n) Printi,nNextiEndPrivateSubsub2(xAsInteger，yAsInteger)StaticnAsInteger：DimiAsIntegerFori=2To1Step-1n=n+x：x=x-1NextiEndCommand1_(6)_，第二行的內(nèi)容是(7)，最后一行的內(nèi)容 (8)最后一行的內(nèi)容DimNAsPrivateSubDimIAsInteger,JAsIntegerForI=3To1Step-2N=Fun(I,N):PrintNextEndPrivateFunctionFun(AAsInteger,Basinteger)AsStaticXAsInteger: DimSumAsInteger,IAsIntegerForI=1ToB=B+X+I:N=N- Next EndCommand113二行的內(nèi)容是(14)，第三行的內(nèi)容是(15)。OptionPrivateSubDimnAsInteger,iAsIntegern=2Fori=7To1Step-Callsub2(i,n)：Printi,nNextiEndPrivateSubsub2(xAsInteger,yAsInteger)StaticnAsInteger DimiAsIntegerFori=2To1Step-n=n+x：x=x-1Nextiy=y+nEndSubPrivateSubCommand1_Click()DimAAsInteger,KAsA=2：K=Fun((A),A)+EndPrivateFunctionFun(XAsInteger,YAsInteger)AsIntegerStaticKAsIntegerK=K+X+y：X=X+Y：Y=Y+K：Fun=PrintFun;X;YEndFunction執(zhí)行下面程序，單擊命令按鈕Command1后，窗體上顯示的第一行內(nèi)容 ,最后一行內(nèi)容是 PrivateSubDimAAsInteger,BAsInteger,KAsA=2:B=4：K=Fun((A),B)+Fun(A,B)：PrintEndPrivateFunctionFun(NAsInteger,MAs