二級VB上機題庫17

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

第33套一、基本操作題

1.[10分]

2.[10分]

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

1.Dima(100)AsIntegerPrivateSubCommand1_Click()DimkAsIntegerOpenApp.Path"\in3.dat"ForInputAs#1Fork=1To100Input#1,a(k)NextkClose#1EndSubPrivateSubCommand2_Click()'需考生編寫[10分]

2.[10分]

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

1.DimwhichAsIntegerPrivateSubcopy_Click()Ifwhich=1ThenText3.Text=Text1.TextElseIfwhich=2ThenText3.Text=Text2.TextEndIfEndSubPrivateSubcut_Click()Ifwhich=1ThenText3.Text=Text1.TextText1.Text=""ElseIfwhich=2ThenText3.Text=Text2.TextText2.Text=""EndIfEndSubPrivateSubedit_Click()'Ifwhich=?ThenIfText1.Text=""Thencut.Enabled=Falsecopy.Enabled=FalseElsecut.Enabled=Truecopy.Enabled=TrueEndIf'ElseIfwhich=?ThenIfText2.Text=""Thencut.Enabled=Falsecopy.Enabled=FalseElsecut.Enabled=Truecopy.Enabled=TrueEndIfEndIfIfText3.Text=""Thenpaste.Enabled=FalseElsepaste.Enabled=TrueEndIfEndSubPrivateSubpaste_Click()Ifwhich=1Then'Text1.Text=?ElseIfwhich=2Then'Text2.Text=?EndIfEndSubPrivateSubText1_GotFocus()'本過程的作用是：當(dāng)焦點在Text1中時，which=1which=1EndSubPrivateSubText2_GotFocus()'本過程的作用是：當(dāng)焦點在Text2中時，which=2which=2EndSub[10分]

第34套一、基本操作題

1.[10分]

2.[10分]

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

1.[10分]

2.[10分]

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

1.Dima(15)AsStringPrivateSubC1_Click()DimkAsIntegerOpen"in5.txt"ForInputAs#1Form1.ClsFork=1To15Input#1,a(k)Printa(k)Nextk'Close?EndSubPrivateSubC2_Click()DimkAsInteger,nAsInteger,cAsString'n=Len(?)c=""Ifn0ThenFork=1To15'IfLeft(a(k),?)=Text1.TextThen'c=c+""+?EndIfNextkIfc=""ThenText2.