二級VB上機(jī)題庫29

精品文檔-下載后可編輯二級VB上機(jī)題庫29二級VB上機(jī)題庫29

第57套一、基本操作題

1.[10分]

2.[10分]

二、簡單應(yīng)用題

1.PrivateSubCommand1_Click()DimnAsIntegerCls'?=InputBox("請輸入一個整數(shù)")n=InputBox("請輸入一個整數(shù)")Print"因子數(shù)=";fun(n)EndSubFunctionfun(mAsInteger)DimsAsIntegers=0Fork=1ToAbs(m)/2'IfmModk=?ThenIfmModk=0Thens=s+1PrintkEndIfNextk'?fun=sEndFunction[10分]

2.PrivateSubCommand1_Click()Dimk%'Fork=List1.ListCount-1To0?IfList1.Selected(k)=TrueThen'List2.AddItem?'List1.RemoveItem?EndIfNextkEndSubPrivateSubCommand2_Click()Dimk%Text1="已經(jīng)選中的城市有："Fork=0ToList2.ListCount-1Step1'Text1=?""List2.List(k)NextkEndSub[10分]

三、綜合應(yīng)用題

1.DimstepyAsInteger'縱向移動增量DimstepxAsInteger'橫向移動增量ConstLEFT_BUTTON=1PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)Dimx0AsInteger,y0AsInteger,aAsSingle,radiusAsIntegerradius=Shape1.Width/2'圓的半徑IfButton=LEFT_BUTTONThenx0=Shape1.Left+radius'圓心的x坐標(biāo)y0=Shape1.Top+radius'圓心的y坐標(biāo)Ifx=x0Thenstepy=Sgn(y-y0)*50'stepx=?Elsea=(y-y0)/(x-x0)'斜率stepx=Sgn(x-x0)*50'?=a*stepxIfAbs(stepy)Abs(stepx)Thenstepy=Sgn(y-y0)*50stepx=stepy/aEndIfEndIf'?=TrueElse'?=FalseEndIfEndSubPrivateSubTimer1_Timer()'Shape1.MoveShape1.Left+stepx,Shape1.Top+?EndSub[10分]

第58套一、基本操作題

1.[10分]

2.[10分]

二、簡單應(yīng)用題

1.PrivateSubCommand1_Click()Dimst$,ch{{tpContent}}nbsp;OpenApp.Path"\in3.txt"ForInputAs#1DoWhileNotEOF(1)Input#1,ch'st=?chLoopClose#1Text1=stEndSubPrivateSubCommand2_Click()Dimst$,word$,c{{tpContent}}nbsp;st=Text1n=Len(st)Fork=1Ton'?=Mid(st,k,1)Ifc""Thenword=wordcElseList1.AddItemword'?=""EndIfNextList1.AddItemwordEndSub[10分]

2.PrivateSubC1_Click()Timer1.Enabled=?EndSubPrivateSubC2_Click()?=FalseEndSubPrivateSubTimer1_Timer()P1.MoveP1.Left+?EndSub[10分]

三、綜合應(yīng)用題

1.PrivateFunctionIsPrime(ByValxAsInteger)AsBooleanDimiAsIntegerFori=2ToSqr(x)IfxModi=0ThenIsPrime=FalseExitFunctionEndIfNextIsPrime=TrueEndFunctionPrivateSubCommand1_Click()'考生編寫程序開始'======================================????'========================================='考生編寫程序結(jié)