二级VB上机题库31

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

第61套一、基本操作题

1.[10分]

2.[10分]

二、简单应用题

1.PrivateSubCommand1_Click()DimiAsIntegerFori=0To1IfOption1.Item(i)=TrueThen'Call?'Label2.Caption=?EndIfNextEndSubPrivateSubcalc(cAsInteger)DimiAsIntegerresult=0'x=?Ifc=0ThenFori=1Tox'If?0Thenresult=result+iEndIfNextElseFori=1ToxIfiMod2=0Thenresult=result+iEndIfNextEndIf'Label3.Caption=?EndSub[10分]

2.PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()'Timer1.Enabled=?EndSubPrivateSubForm_Load()'Timer1.Interval=?EndSubPrivateSubTimer1_Timer()Picture1.Left=Picture1.Left+200'IfPicture1.Left?Then'Picture1.Left=?EndIfHScroll1.Value=Picture1.LeftEndSub[10分]

三、综合应用题

1.Privatearr(100)AsIntegerPrivatenAsIntegerPrivateSubCommand2_Click()OpenApp.Path"\out5.txt"ForOutputAs#1Print#1,Text1.TextPrint#1,Text2.TextPrint#1,Text3.TextPrint#1,Text4.TextPrint#1,Text5.TextPrint#1,Text6.TextClose#1MsgBox"保存成功！"EndSubPrivateSubForm_Load()OpenApp.Path"\in5.txt"ForInputAs#1n=0DoWhileNotEOF(1)Input#1,xn=n+1arr(n)=xLoopClose#1EndSubPrivateSubCommand1_Click()'========以下考生编写程序开始=======????'======"考生编写程序结束"=======================EndSub[10分]

第62套一、基本操作题

1.[10分]

2.[10分]

二、简单应用题

1.[10分]

2.PrivateSubCommand1_Click()DimiAsIntegerFori=0To1IfOption1.Item(i)=TrueThen'Call?'Label2.Caption=?EndIfNextEndSubPrivateSubcalc(cAsInteger)DimiAsIntegerresult=0'x=?Ifc=0ThenFori=1Tox'If?0Thenresult=result+iEndIfNextElseFori=1ToxIfiMod2=0Thenresult=result+iEndIfNextEndIf'Label3.Caption=?EndSub[10分]

三、综合应用题

1.Dima(10)AsIntegerDimb(10)AsIntegerDimc(10)AsIntegerPrivateSubCommand1_Click()OpenApp.Path"\dataA.txt"ForInputAs#1OpenApp.Path"\dataB.txt"ForInputAs#2Fori=0To9Input#1,a(i)Input#2,b(i)NextClose#1,#2EndSub'PrivateSubfind(x()AsInteger,tAs?)'==================以下为考生编写的程序======================??(1)??'==================考生编写的程序结束========================EndSubPrivateSubCommand2_Click()'==================以下为考生编写的程序======================??(2)??'==================考生编写的程序结束========================OpenApp.Path"\out51.txt"ForOutputAs#1Fori=0To9Print#1,c(i)NextClose#1EndSubPrivateSubCommand3_Click()Callfind(a