大學(xué)vb考試題庫.doc

1,Visual BasicCA BC D2a=123 & MID(123456,3,2)aCA12334 B123 C12334 D1573BA BC D4Form1VisualBasicCAForm1.Name=VisualBasicBForm1.Title=VisualBasicCForm1.Caption=VisualBasicDForm1.Text=VisualBasic5Visual BasicDA.frmB.vbpC.basD6AA B C D7CAx+y=30 By=*r*r Cy=x+30 D3y=x8Visual Basic 6.0CA B C D9(C)AVisual Basic BVisual BasicCVisual BasicWidthHeightDVisual Basic10PrintForm_Load(C)ABackcolor BForeColorCAutoRedraw DBackStyle11(A)AEnabled BVisibleCBackColor DCaption12(B)ABPrivateCVBDForm113Cls(C)APicture BCD14x=3,y=5, (C)A(-3+5x) And (y0) B(x0)C(xy) Or (y0) Dx=y And y1015(D)ATabIndex0BTabStopTrueCTabStopFalseDEnabledFalse16Enter(D)AChange BKeyDown CClick DKeyPress17(A)ATabStopFalseBLostFocusCEnabledFalseTabDTabIndexTab18EnabledFalse(A)ABCD19(C)AMouseDown BMouseUpCLoad DClick20(B)AAutosize BStretchCAutoRedraw DAppearance21(D)ATabIndex0BTabStopTrueCTabStopFalseDEnabledFalse22(B)AText BNameCForeColor DCaption23(A)AUnload Form1Form1BLoadCEnabledFalseDHeightWidth24(A) ALoad BClickCUnload DGotFocus25(B)A BC D26Visual Basic(A)A BC D27(D)AWidthHeight BWidthHeightCTopLeft DTop Left28(A)ACaption BNameCBackColor DBorderStyle29(C)ABVisual BasicCVisual BasicD30(B)ADblClickBCMouseMoveD31Visual Basic(C)A BC D32(A)ANameBNameCNameDName33(C)A BC D34Visual Basic(A)A BC D35(C)AFontItalic BFontNameCFontBold DFontSize36(A)ASub MainB CHideD37(A)ASetFocus BVisibleCRefresh DGetFocus38INT100*RNDAA099 B1100C0100 D19939(B)AStyleGraphicsBStylePictureCCaption DGraphics40(A)AEnabled BVisibleCBackColor DCaption41Form1,VB_Test(B)AForm1=VB_Test BForm1.Caption=VB_TestCForm1.Text=VB_Test DF=VB_Test42(A)AB.BASCD43(A)AGotFocus BLostFocusCKeyPress DSetFocus44(B)A.bas B.res C.frm D.ocx45EXE(C)A B C D46(B)ADblClickBCMouseMoveD47Change(D)A BC D48(C)ASub MainBShowCHideUnloadD49Print Abs(-62)+Int(-62)(A)A0 B1 C-1 D-72 50TRUE(B)A0 B-1 CTRUE DFALSE51String(n, str)(B)ABnCnDn52Print Format(Hello World,)(C)Ahello WORLD Bhello worldCHELLO WORLD DHELLO world53(B)AStatic BConst CPrivate DVariant54(B)AOption Base 0 BOption ExplicitCOption Base 1 DOption Compare55Visual Basic(D)AA#A B4A C?xy DconstA56a=10b=5c=1Print a b c(B)ATrue BFalse C1 D57x$=String(6, 124abc)x(B)A124abc B111111 C124 Dabc58a=6 x=IIf(a5,-1,0)x DA5 B6 C0 D-159c$=Glad& Mid$(Nice to meet you,5,3)c$(C)ANice to meet you BGlad Nice to meet youCGlad to DGlad60(D)AABC$ B ABC C ABC DABC61If x=1 Then y=1CAx=1 y=1 Bx=1 y=1 Cx=1 y=1 Dx=1 y=1 62Dim X As Integer,Sgn(X) -1X(D)A B0 C0 D063(B)A B C D64str1str2(D)ALeft BMid CString DInstr65S=LeftS,1+RightS,1+MidS,3,2BA BC D66 Visual Basic(A) AFilename BA(A+B) C254D DPrint67(A)AX_yz B123abc CInteger DX-Y68CAxyz123 Bprintaa Cboolean DBernald69:Dim TestDate As Date,TestDate(A)ATextDate=#1/1/2002#BTestDate=#1/1/2002#CTextDate=date(1/1/2002)DTestDate=Format(m/d/yy,1/1/2002)70a=2,b=3,c=4,d=5ab AND c=b And b10B(ab)Or(b0)C(a0)or(ba)And(b0) 82a=InputBox(Today,Tomorrow,Yesterday,Day before yesterday,5), (A)ATodayBTomorrowCYesterdayDDay before Yesterday83VB33BABCD84If40DAIf sex=And age40 And InStr(duty,)0 Then n=n+1BIf sex=And age40 And (duty=Or duty=) Then n=n+1CIf sex=And age40 And Right(duty,2)= Then n=n+1DIf sex=And age40 And duty=And duty= Then n=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)ABCD90D AMax=IIf(xy,x,y)BIf xy Then Max=x Else Max=yCMax=xIf y=x Then Max=yDIf yx Then Max=y Max=x91 Dim x If x Then Print x Else Print x+1 AA1B0C-1D92vbCABCD93If x=1 Then y=1,CAx=1y=1Bx=1y=1Cx=1y=1Dx=1 y=194a=123 & MID(123456,3,2)aCA12334B123C12334D15795ADim xx=Int(Rnd)+5Select Case xCase 5Case 4PrintCase 3PrintCase ElsePrintEnd SelectABCD96x,y,z31AAx=1y=1z=1 Bx=1,y=1,z=1Cx=y=z=1Dxyz=197CAIf AB Then Print ABBIf AB Then Printf ABCIf AB Then Print ABDIf AB Print AB98x$=InputBox(0),10(D)AX10BInputBoxC0DX1099B J1=4: J2=9 If J1J2 Then Print J2 Else Print J1A4B9C13D49100InputBox(B)ABCD101Dim a(0 to 51 to 5) As IntegerC A25B36C30D102Dim a(2 to 3, -2 to 2,3 to 5)a(C)A120B75C30D13103 Option Base 1D A15B16C13D104 Dim a(15) As IntegerBA15B16C13D 105Dim a(51 to 5) As IntegerC A25B36C30D106VB0AAOption BaseBOption ExplicitCExplicitDLow Base107(B)ADim a3, 4 as IntegerBDim a(3, 4) as IntegerCDim a(n, n) as IntegerDDim a34) as Integer108AABCD109AABCD110Dim a(0 to 3, -2 to 2,0 to 5)a(A)A120B75C60D13111Sub Sub S (x As Single, y As Single) t = x x = t / y y = t Mod y EndSub Private Sub Command1_Click()Dim a As Single Dim b As Single a = 5: b = 4 S a, b Print a, b End Sub DA5 4B1 1C1.25 4D1.25 1112BADimBPublicCPrivateDStatic 113 Private x As Integer Private SubCommand1_Click() Static y As Integer Dim z As Integer N=10: z=N+z: y=y+z: x=x+zLabel1.Caption = x Label2.Caption = y Label3.Caption = z End Sub AA10 10 10B30 30 30C30 30 10D10 30 30114(D)AStaticStaticBSubSubCSubSubD115Command1Text1 Private Sub Command1_Click()Dim x As Integer, y As Integer, z As Integerx = 5y = 7z = 0Text1.Text = Call p1(x, y, z)Text1.Text = Str(z)End Sub Private Sub p1(ByVal a As Integer, ByVal b As Integer, c As Integer)c = a + bEnd SubAA12B0CStr(z)D116aBARedim a As IntegerBStatic a As IntegerCPublic a As IntegerDDim a As Integer117CSub s1(b() As Integer)For i = 1 To 4b(i) = 2 * iNext iEnd SubPrivate Sub Command1_Click()Dim a(1 To 4) As Integer For i = 1 To 4a(i) = i + 5Next is1 a()For i = 1 To 4Print a(i)Next iEnd SubA12 14 16 18B6 7 8 9C2 4 6 8D1 2 3 4118D Function f(m As Integer) As Integer b = 1 Static c As Integerb = b + 1 c = c + 1 f = m * b * c End Function Private Sub Command1_Click() Dim a As Integer a= 2 Sum = 0 For i = 1 To 3 Sum = Sum + f(a) Next i Print Sum End SubA12B28C32