二级vb历届笔试试卷2004年春

VisualBasic在VB中，下列关于控件的属性或方法中，搭配错误的有 3)Text1.Print 6)Picture1.PrintA. B. C. D. C. 语句，可以将列表框List1中的当前选定的列表项的值替换成”ABC”。 A.-3,-4,- B.-4,-4,- C.-3,-4,- D.-4,-3,-设整形变量a、b的当前取值分别为200与20，以下赋值与句中不能正确执行的是 B.Text1=a*a/bC.Text1= D.Text1=A&b&对正实数X的第四位小数四舍五入的VB表达式 语句DimX(3.6+2)AsInteger6 1) A.1) B.2) C.3) D.1)窗体上放置有名为Drive1与Dir1的驱动器列表框与文件夹列表框，需要在选定驱动器列表 Dir1.PathDrive1.PathDrive1_Change()Dir1.PathDrive1.PathDir1_ChangeDir1.PathDrive1.DriveDrive1_Change()Dir1.PathDrive1.DriveDir1_Change X=Width/2:Y=Height/2Picture1.Line(X,Y)-(X,Y-2000)Picture1.Line(X,Y+2000)-(X,Y)Picture1.Line–(X–2000,Y)执行Command1_Click实践过程后，显示在窗体上的第一行内容是 PrivateSubCommand1_Click()S=“TUPMOC”:K=Len(s)ForI=1ToMid(S,I,K-2*(I–1))=Mid(S,I+1,K–2*I)&PrintSNextIEnd OptionDimxAsInteger,yAsIntegerPrivateSubForm_Click()DimaAsInteger,bAsIntegera=5:b=3Callsub1(a,b)Printa,bPrintx,yEndPrivateSubsub1(ByValmAsInteger,nAsDimxAsInteger,yAsIntegerx=m+n;y=m-nm=n=fun1(y,x)EndSubPrivateFunctionfun1(aAsInteger,bAsInteger)AsIntegerx=a+b:y=a–bPrintx,yfun1=End执 PrivateSubCommand1_Click()dunno3EndPublicFunctiondunno(MAsDimvalueAsIntegerifM=0Thenvalue=3value=Enddunno=valuePrintM,End执行下面程序，单击命令按钮Command1后，窗体上显示的第一行内容是 ,最后一行内容是 PrivateSubDimAAsInteger,BAsInteger,KAsIntegerA=2:B=4K=Fun((A),PrintKEndSubPrivateFunctionFun(NAsInteger,MAsInteger)AsIntegerStaticKAsIntegerN=N+MK=K+NM=M+KFun=N+MPrintFun;N;MEndFunction执行下面程序，单击命令按钮Command1后，A(1,3)值是 PrivateSubDimIAsInteger,JAsInteger,KAsIntegerDimA(1To3,1To3)AsInteger,NAsIntegerN=ForI=1ToForJ=1To3K=K+1A(I,J)=K+NextJNextICallSub1(A,N)EndSubPrivateSubSub1(A()AsInteger,NAsDimIAsInteger,JAsInteger,TAsInteger,KAsIntegerK=N+1ForI=Int(N/2)To1Step–1ForJ=N–IToIStep–T=A(KA(K–J,I)=A(I,J)=A(J,K-A(J,K–I)=A(K–I,N+1–J)A(K–I,N+1–J)=TNextJNextIEndPrivateSubDimiAsInteger,nAsInteger,n1AsInteger,n2AsIntegerFori=1000To9999n2=iModIfsum(n1)=sum(n2)List1.AddItemCStr(i)EndIfNextiText1=nEndPrivateFunctionsum(sAsInteger)AsIntegerDimpAsInteger,qAsIntegerP=sum=p+qEndFunction23，其第nm720。下面是求出符合上述要求的n和m的程序。PrivateSubDimNum()AsInteger,QasInteger,AAsIntegerDimIasInteger,NAsInteger,MAsIntegerConstKAsInteger=720ReDimNum(1)A=2:Q=3A=A*QI=I+1Num(I)=LoopUntilNum(I)>=720CallSum1(Num,N,M,Label1+Str(N)&~&Str(M&720”EndSubPrivateSubSum1(Num()AsInteger,NAsInteger,MAsInteger,ByValkAsDimUbAsInteger,SAsInteger,IAsInteger,IdxAsForI=1ToN=DoUntilS>=S=S+Num(Idx)Idx=Idx+1Ifs=kM=Idx–ExitForEndIfNextIEndr1r2a~zr1r2meetmeatsunsetm，排位1，r1m13r1中对应字符为t，故将m换成t。其余类推。原文中如包含大写字母，则应先全部转换为小写字母。Constr1AsString*27=“qzawsxedcrfvtgbyhnujmikolp”Constr2AsString*27=“poiuytrewqasdfghjklmnbvcxz”PrivateSubCommand1_Click()DimIAsIntrger,,codeAsString,sAsString*1DimnAsIntrger,,decodeAsStringcode=Fori=1ToLen(codes=Mid(code,i,1)Ifs<>””thenIfiMod2<>0Decode=decode&Mid(r1,n,1)EndIfIfiMod2<>0Decode=decode&Mid(r2,27,1)EndIfEndIfNextiText2=decodeEndSubN，找出所有分母为NN1/31/4（1）PrivateSubCommand1_Click()DimIAsInteger,JAsIntegerDimNAsInteger,FlagAsNVal(InputBoxN,,11))ForI=1ToN–1CallSub1