二級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)