vb选择题

1,VisualBasicCABCD2a=123&MID(123456,3,2)aAA12334B123C12334D1573BABCD4Form1VisualBasicCAForm1.Name=VisualBasicBForm1.Title=VisualBasicCForm1.Caption=VisualBasicDForm1.Text=VisualBasic5VisualBasicDA.frmB.vbpC.basD6AABCD7CAx+y=30By=*r*rCy=x+30D3y=x8VisualBasic6.0CABCD9(C)AVisualBasicBVisualBasicCVisualBasicWidthHeightDVisualBasic11(A)AEnabledBVisibleCBackColorDCaption12(B)ABPrivateCVBDForm113Cls(C)APictureBCD14x=3,y=5,(C)A(-3+5x)And(y0)B(x0)Eqv(y0)C(xy)Or(y0)Dx=yAndy1016Enter(D)AChangeBKeyDownCClickDKeyPress18EnabledFalse(A)ABCD19(C)AMouseDownBMouseUpCLoadDClick20(B)AAutosizeBStretchCAutoRedrawDAppearance22(B)ATextBNameCForeColorDCaption23(A)AUnloadForm1Form1BLoadCEnabledFalseDHeightWidth24(A)ALoadBClickCUnloadDGotFocus25(B)ABCD26VisualBasic(A)ABCD27(D)AWidthHeightBWidthHeightCTopLeftDTopLeft28(A)ACaptionBNameCBackColorDBorderStyle29(C)ABVisualBasicCVisualBasicD30(B)ADblClickBCMouseMoveD31VisualBasic(C)ABCD32(A)ANameBNameCNameDName33(C)ABCD34VisualBasic(A)ABCD35(C)AFontItalicBFontNameCFontBoldDFontSize36(A)ASubMainBCHideD37(A)ASetFocusBVisibleCRefreshDGetFocus38INT100*RNDAA[099]B[1100]C[0100]D[199]40(A)AEnabledBVisibleCBackColorDCaption41Form1,VB_Test(B)AForm1=VB_TestBForm1.Caption=VB_TestCForm1.Text=VB_TestDForm1.name=VB_Test42(A)AB.BASCD43(A)AGotFocusBLostFocusCKeyPressDSetFocus45EXE(C)ABCD46(B)ADblClickBCMouseMoveD47Change(D)ABCD48(C)ASubMainBShowCHideUnloadD49PrintAbs(-6^2)+Int(-6^2)(A)A0B1C-1D-7250TRUE(B)A0B-1CTRUEDFALSE51String(n,str)(B)ABnCnDn52PrintFormat(HelloWorld,)(C)AhelloWORLDBhelloworldCHELLOWORLDDHELLOworld53(B)AStaticBConstCPrivateDVariant54(B)AOptionBase0BOptionExplicitCOptionBase1DOptionCompare55VisualBasic(D)AA#AB4AC?xyDconstA56a=10b=5c=1Printabc(B)ATrueBFalseC1D57x$=String(6,124abc)x(B)A124abcB111111C124Dabc58a=6x=IIf(a5,-1,0)xDA5B6CD-159c$=Glad&Mid$(Nicetomeetyou,5,3)c$(C)ANicetomeetyouBGladNicetomeetyouCGladtoDGlad60(B)AABC$BABCC'ABC'DABC61Ifx=1Theny=1CAx=1y=1Bx=1y=1Cx=1y=1Dx=1y=162DimXAsInteger,Sgn(X)-1X(D)AB0C0D63(B)ABC65S=LeftS,1+RightS,1+MidS,3,2BABCD66VisualBasic(A)AFilenameBA(A+B)C254DDPrint67(A)AX_yzB123abcCIntegerDX-Y68CAxyz123BprintaaCbooleanDBernald69:DimTestDateAsDate,TestDate(A)ATextDate=#1/1/2002#BTestDate=#1/1/2002CTextDate=date(1/1/2002DTestDate=Format(m/d/yy,1/1/200270a=2,b=3,c=4,d=5abANDc=d(B)ATrueBFalseC-1D716*8Mod9(B)A4B3C6D72bool_x()DAbool_x=FalseBbool_x=.False.Cbool_x=#False#Dbool_x=False73a=VisualBasicb=Basic(B)Ab=Left(a,8,12)Bb=Mid(a,8,5)Cb=Rigth(a,5,5)Db=Left(a,8,5)75(B)AConstvar1=123BDimvar2='ABC'CDimx_y_z%DStaticvar3AsInteger76(C)ALtrimBRtrimCTrimDMid77(D)AIntegerBFalseCpublicDthanksgiving78(A)A0BC1D7916/4-2^5*8/4Mod5\2(B)A14B4C20D80If40DAIfsex=Andage40And(duty=Orduty=)Thenn=n+1BIfsex=Andage40AndInStr(duty,)0Thenn=n+1CIfsex=Andage40AndRight(duty,2)=Thenn=n+1DIfsex=Andage40Andduty=Andduty=Thenn=n+181a=3,b=5(B)Aa=bAndb10B(ab)Or(b0)C(a0)or(b0)D(-3+5a)And(b0)83VB33BABCD84If40DAIfsex=Andage40AndInStr(duty,)0Thenn=n+1BIfsex=Andage40And(duty=Orduty=)Thenn=n+1CIfsex=Andage40AndRight(duty,2)=Thenn=n+1DIfsex=Andage40Andduty=Andduty=Thenn=n+185w=IIf(410,Red,Green)wCANullBRedCGreenD-186a=123+MID(123456,3,2)aDA12334B123C12334D15787x=InputBox(AAAABBBB),(C)AAAAABCBBBBD88CAx+y=30By=*r*rCy=x+30D3y=x89VB(D)ABCD90DAMax=IIf(xy,x,y)BIfxyThenMax=xElseMax=yCMax=xIfy=xThenMax=yDIfyxThenMax=yMax=x91DimxIfxThenPrintxElsePrintx+1AABC-1D92vbCABCD93Ifx=1Theny=1,CAx=1y=1Bx=1y=1Cx=1y=1Dx=1y=194a=123&MID(123456,3,2)aAA12334B123C12334D15795ADimxx=Int(Rnd)+5SelectCasexCase5Case4PrintCase3PrintCaseElsePrintEndSelectABCD96x,y,z31AAx=1y=1z=1Bx=1,y=1,z=1Cx=y=z=1Dxyz=197CAIfABThenPrintABBIfABThenPrintfACIfABThenPrintABDIfABPrintAB99BJ1=4:J2=9IfJ1J2ThenPrintJ2ElsePrintJ1A4BC13D49100InputBox(B)ABCD101Dima(0to51to5)AsIntegerCA25B36C30D102Dima(2to3,-2to2,3to5)a(C)A120B75C30D13103OptionBase1DA15B16C13D104Dima(15)AsIntegerBA15B16C13D105Dima(51to5)AsIntegerCA25B36C30D106VB0AAOptionBaseBOptionExplicitCExplicitDLowBase107(B)ADima[3,4]asIntegerBDima(3,4)asIntegerCDima(n,n)asIntegerDDima[3][4)asInteger108AABCD109AABCD110Dima(0to3,-2to2,0to5)a(A)A120B75C60D13111SubSubS(xAsSingle,yAsSingle)t=xx=t/yy=tModyEndSubPrivateSubCommand1_Click()DimaAsSingleDimbAsSinglea=5:b=4Sa,bPrinta,bEndSubDA54B11C1.254D1.251112BADimBPublicCPrivateDStatic113PrivatexAsIntegerPrivateSubCommand1_Click()StaticyAsIntegerDimzAsIntegerN=10:z=N+z:y=y+z:x=x+zLabel1.Caption=xLabel2.Caption=yLabel3.Caption=zEndSubAA101010B303030C303010D103030114(D)AStaticStaticBSubSubCSubSubD115Command1Text1PrivateSubCommand1_Click()DimxAsInteger,yAsInteger,zAsIntegerx=5y=7z=0Text1.Text=Callp1(x,y,z)Text1.Text=Str(z)EndSubPrivateSubp1(ByValaAsInteger,ByValbAsInteger,cAsInteger)c=a+bEndSubAA12BCStr(z)D116aBARedimaAsIntegerBStaticaAsIntegerCPublicaAsIntegerDDimaAsInteger117CSubs1(b()AsInteger)Fori=1To4b(i)=2*iNextiEndSubPrivateSubCommand1_Click()Dima(1To4)AsIntegerFori=1To4a(i)=i+5Nextis1a()Fori=1To4Printa(i)NextiEndSubA12141618B6789C2468D1234118DFunctionf(mAsInteger)AsIntegerb=1StaticcAsIntegerb=b+1c=c+1f=m*b*cEndFunctionPrivateSubComman