二级VB上机题库24

精品文档-下载后可编辑二级VB上机题库24二级VB上机题库24

第47套一、基本操作题

1.[10分]

2.[10分]

二、简单应用题

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分]

三、综合应用题

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分]

二、简单应用题

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

2.DimsAsIntegerPrivateSubCommand1_Click()s=Val(InputBox("输入里程数（单位：公里）"))EndSubPrivateSubCommand2_Click()Ifs0Then'SelectCase?CaseIs=4'?CaseIs=15'f=10+?'?'f=10+?+(s-15)*1.8EndSelectText1.Text=fElseMsgBox"请单击“输入”按钮输入里程数！"EndIfEndSub[10分]

三、综合应用题

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