二級(jí)VB上機(jī)題庫27

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

第53套一、基本操作題

1.[10分]

2.[10分]

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

1.PrivateSubForm_load()HScroll1.Min=Shape2.Left'HScroll1.Max=Shape2.Width+Shape2.Left-Shape1.?VScroll1.Min=Shape2.Top'VScroll1.Max=Shape2.Height+?-Shape1.HeightHScroll1.Value=1000VScroll1.Value=1000EndSubPrivateSubHScroll1_Change()'?=HScroll1.ValueEndSubPrivateSubVScroll1_Change()'Shape1.Top=?EndSub[10分]

2.PrivateSubForm_Load()a=1t=0EndSubPrivateSubTimer1_Timer()Image1.Top=Image1.Top-a*50IfImage1.Top+Image1.Height=Image2.Top+Image2.Height-200Then'?=False'd=?-Image1.TopLabel1=dLabel2=t*Timer1.Interval/1000EndIfa=a+0.1't=?EndSub[10分]

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

1.Dima(30)AsInteger,b(30)AsInteger,c(60)AsIntegerPrivateSubCommand1_Click()DimkAsIntegerOpenApp.Path"\in5.dat"ForInputAs#1Fork=1To30Input#1,a(k)Text1=Text1+Str(a(k))+Space(2)NextkFork=1To30Input#1,b(k)Text2=Text2+Str(b(k))+Space(2)NextkClose#1EndSubPrivateSubCommand2_Click()'考生編寫程序開始'======================================?????'========================================='考生編寫程序結(jié)束'以下程序?qū)⒑喜⒑蟮臄?shù)組C顯示在Text3中Fork=1To60Text3=Text3+Str(c(k))+Space(2)NextkEndSubPrivateSubForm_Unload(CancelAsInteger)OpenApp.Path"\out5.dat"ForOutputAs#1Print#1,Text3.TextClose#1EndSub[10分]

第54套一、基本操作題

1.[10分]

2.'提供給考生的程序PrivateSubsub1()a=Text1Ifa18ThenText2=0.5Elsea=a-18a=Int(a/6)+1Text2=0.5+a*0.15EndIfEndSub[10分]

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

1.PrivateSubForm_Click()'Fori=1To?Forj=1To6-iPrint"";Nextj'Forj=1To?Print"*";NextjPrintNextiFori=1To4'Forj=1To?Print"";Nextj'Forj=1To?Print"*";NextjPrintNextiEndSub[10分]

2.DimdAsIntegerPrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()'?=FalseEndSubPrivateSubForm_Load()d=1EndSubPrivateSubTimer1_Timer()IfOption1Then'Shape2.Top=?+d*50'IfShape2.Top=Shape1.?OrShape2.Top+Shape2.Width=Shape1.Top+Shape1.HeightThend=-dEndIfElseIfOption2Then'Shape2.Left=?+d*50IfShape2.Left=Shape1.LeftOrShape2.Left+Shape2.Width=Shape1.Left+Shape1.WidthThend=-dEndIfEndIfEndSub[10分]

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

1.Dima(10)AsInteger,nAsIntegerPrivateSubCommand1_Click()OpenApp.Path"\in5.txt"ForInput