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

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

第47套一、基本操作題

1.[10分]

2.[10分]

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

1.DimsAsInteger,hAsLongPrivateSubForm_Load()'Timer1.Enabled=?s=-40EndSubPrivateSubTimer1_Timer()Shape1.MoveShape1.Left,Shape1.Top+s'IfShape1.Top=?Thens=-sEndIf'IfShape1.Top+?=Line2.Y1Thens=-sEndIfEndSub[10分]

2.Dima(100)AsIntegerPrivateSubCommand1_Click()DimkAsIntegerOpenApp.Path"\in4.dat"ForInputAs#1Fork=1To100Input#1,a(k)NextkClose#1EndSubPrivateSubCommand2_Click()'考生編寫？？？PrivateSubForm_Unload(CancelAsInteger)OpenApp.Path"\out4.dat"ForOutputAs#1Print#1,Combo1.Text;Text1.TextClose#1EndSubFunctioneven()DimsAsSingle,nAsIntegers=0Fork=1To100Ifa(k)/2=Fix(a(k)/2)Thens=s+a(k)n=n+1EndIfNexts=s/neven=CInt(s)EndFunctionFunctionodd()DimsAsSingle,nAsIntegers=0Fork=1To100Ifa(k)/2Fix(a(k)/2)Thens=s+a(k)n=n+1EndIfNexts=s/nodd=CInt(s)EndFunctionFunctionall()DimsAsSingle,nAsIntegers=0Fork=1To100s=s+a(k)Nexts=s/100all=CInt(s)EndFunction[10分]

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

1.OptionBase1PrivateSubForm_Click()ConstN=5ConstM=5'Dim?Dimi,j,t'OpenApp.Path"\""datain.txt"?As#1Fori=1ToNForj=1ToM'?NextjNextiClose#1PrintPrint"初始矩陣為："PrintFori=1ToNForj=1ToMPrintTab(5*j);Mat(i,j);NextjPrintNextiFori=1ToNForj=1ToMt=Mat(i,2)Mat(i,2)=Mat(i,4)'?NextjNextiPrintPrint"交換第二列和第四列后的矩陣為："PrintFori=1ToNForj=1ToMPrintTab(5*j);Mat(i,j);NextjPrintNextiEndSub[10分]

第48套一、基本操作題

1.[10分]

2.[10分]

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

1.PrivateSubC1_Click(IndexAsInteger)SelectCaseIndexCase？Timer1.Enabled=FalseCase0Timer1.Enabled=？EndSelectEndSubPrivateSubTimer1_Timer()Text1.Text=？EndSub[10分]

2.DimsAsIntegerPrivateSubCommand1_Click()s=Val(InputBox("輸入里程數(shù)（單位：公里）"))EndSubPrivateSubCommand2_Click()Ifs0Then'SelectCase?CaseIs=4'?CaseIs=15'f=10+?'?'f=10+?+(s-15)*1.8EndSelectText1.Text=fElseMsgBox"請單擊“輸入”按鈕輸入里程數(shù)！"EndIfEndSub[10分]

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

1.OptionBase1DimsAsStringPrivateSubCommand1_Click()OpenApp.Path"\in5.dat"ForInputAs#1s=Input(LOF(1),#1)Close#1EndSubPrivateSubCommand2_Click()'考生編寫？？？？？？EndSubPrivateSubForm_U