精品文檔-下載后可編輯二級VB上機題庫26二級VB上機題庫26

第51套一、基本操作題

1.[10分]

2.[10分]

二、簡單應用題

1.PrivateSubC1_Click()DimA$,B$,k%,n%A$=""？=Asc("a")-Asc("A")Fork%=1ToLen(Text1.Text)B$=Mid(？)IfB$="a"AndB$="z"ThenB$=String(1,Asc(B$)-n%)ElseIfB$="A"AndB$="Z"ThenB$=String(1,Asc(B$)+32)EndIfEndIfA$=？Nextk%Text1.Text=AEndSub[10分]

2.Dima(100)AsInteger,numAsIntegerPrivateSubCommand1_Click()DimkAsIntegerOpenApp.Path"\in4.dat"ForInputAs#1Fork=1To60Input#1,a(k)Text1=Text1+Str(a(k))+Space(2)NextkClose#1EndSubPrivateSubCommand2_Click()num=InputBox("請輸入一個數(shù)")EndSubPrivateSubCommand3_Click()Fori=1To60'Ifnuma(i)Then?Nexti'Forj=60Toi?'a(j+1)=?Nextj'?=numText1=""'以下程序段將插入后的數(shù)組A重新顯示在Text1中'Fork=1To?Text1=Text1+Str(a(k))+Space(2)NextkEndSub[10分]

三、綜合應用題

1.OptionBase1DimsAsStringPrivateSubCommand1_Click()OpenApp.Path"\in5.dat"ForInputAs#1s=Input(LOF(1),#1)Close#1EndSubPrivateSubCommand2_Click()'需考生編寫？？？？？EndSubPrivateSubForm_Unload(CancelAsInteger)OpenApp.Path"\out5.dat"ForOutputAs#1Print#1,Text1.Text,Text2.TextClose#1EndSub[10分]

第52套一、基本操作題

1.[10分]

2.[10分]

二、簡單應用題

1.PrivateSubCmd1_Click()'?=Str(Time())Text1(1).Text="":Text1(2).Text=""Cmd1.Enabled=FalseCmd2.Enabled=TrueEndSubPrivateSubCmd2_Click()Text1(1).Text=Str(Time())t_start=Hour(Text1(0).Text)*3600+Minute(Text1(0).Text)*60+Second(Text1(0).Text)t_end=Hour(Text1(1).Text)*3600+Minute(Text1(1).Text)*60+Second(Text1(1).Text)t=t_end-t_starth=t\3600m=t\60Ifmt/60Thenm=m+1s=0.5Ifm-30Then's=?+(m-3)*0.15EndIfText1(2).Text=Str(s)+"元"'?=True'?=FalseEndSub[10分]

2.[10分]

三、綜合應用題

1.OptionBase1DimsAsStringPrivateSubCommand1_Click()OpenApp.Path"\in5.dat"ForInputAs#1s=Input(LOF(1),#1)Close#1EndSubPrivateSubCommand2_Click()'需考生編寫？？？？？IfLen(t)Max_lenThenMax_len=Len(t)Max_word=tEndIfText1.Text=Max_lenText2.Text=Max_wordEndSubPrivateSubForm_Unload(Cance