二级VB上机题库36

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

第71套一、基本操作题

1.[10分]

2.[10分]

二、简单应用题

1.PrivateSubCommand1_Click()'CallShowName(?)EndSubPrivateSubLabel1_Click()'CallShowName(?)EndSub'PrivateSubShowName(cAs?)IfTypeOfcIsCommandButtonThenLabel2.Caption="单击"Command1.CaptionEndIfIfTypeOfcIsLabelThen'?="单击"Label1.CaptionEndIfEndSub[10分]

2.PrivateSubForm_Load()Picture1(0).Left=0Picture1(0).Top=100Fork=1To7'Picture1(k).Visible=?NextEndSubPrivateSubCommand1_Click()'Timer1.Enabled=?EndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSubPrivateSubTimer1_Timer()StaticiAsIntegerPicture1(i).Visible=Falsei=i+1'Ifi=?Then'i=?EndIfPicture1(i).Visible=TrueEndSub[10分]

三、综合应用题

1.Dima(5,5)AsIntegerDimb(5)AsIntegerDimc(5)AsIntegerPrivateSubCommand1_Click()N=5Fori=1ToN'===============考生编写程序开始======================???'===============考生编写程序结束======================NextiSaveEndSubPrivateSubForm_Load()readEndSubPublicSubread()OpenApp.Path"\Data5.txt"ForInputAs#1DoWhileNotEOF(1)Fori=1To5Forj=1To5Input#1,a(i,j)NextjNextiLoopClose#1EndSubPublicSubSave()OpenApp.Path"\out5.txt"ForOutputAs#1Fori=1To5Print#1,b(i),c(i)NextiClose#1EndSub[10分]

第72套一、基本操作题

1.[10分]

2.[10分]

二、简单应用题

1.PrivateSubCommand1_Click()DimnAsIntegerDimbAsIntegerDima(3)AsIntegers=RTrim(Text1.Text)'n=?(Text1.Text)Fori=1Ton'b=?(Mid(s,i,1))'SelectCase?Case48To57a(0)=a(0)+1Case65To90a(1)=a(1)+1Case97To122a(2)=a(2)+1EndSelectNext'Fori=0To?'?=a(i)NextEndSub[10分]

2.PrivateSubremove(LaAsListBox,LbAsListBox)'Fori=0To?–1'Lb.AddItem?.List(i)Next'?.ClearEndSubPrivateSubCommand1_Click()Callremove(List1,List2)EndSubPrivateSubCommand2_Click()Callremove(List2,List1)EndSub[10分]

三、综合应用题

1.Dima(10)AsIntegerPublicSubSave()OpenApp.Path"\out5.txt"ForOutputAs#1Print#1,Label4.CaptionClose#1EndSubPrivateSubCommand1_Click()OpenApp.Path"\Data5.txt"ForInputAs#1'DoWhileNot?Fori=1To10Input#1,a(i)'s=s?NextiLoopClose#1Label2.Caption=sEndSubPrivateSubCommand2_Click()'============以下考生编写程序开始=================??(1)