二級(jí)VB上機(jī)題庫(kù)23

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

第45套一、基本操作題

1.[10分]

2.[10分]

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

1.PrivateSubCommand1_Click()'Combo1.?Text1.Text=""EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)'IfKeyAscii57OrKeyAscii?ThenMsgBox"請(qǐng)輸入數(shù)字！"'KeyAscii=?EndIfEndSub[10分]

2.PrivateSubCommand1_Click()DimmAsIntegerDimnAsIntegerDimsAsLongDimiAsIntegerm=Val(Text1.Text)n=Val(Text2.Text)s=0'Fori=?Ton't=?'s=s+?NextlblResult.Caption=sEndSubPrivateFunctionf(ByRefxAsInteger)AsLongDimtAsLongt=1Fori=1Tox't=?Next'f=?EndFunction[10分]

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

1.PrivateSubCommand1_Click()'===考生編寫(xiě)程序開(kāi)始===='===考生編寫(xiě)程序結(jié)束===='不要改動(dòng)以下內(nèi)容saveLabel1EndSub[10分]

第46套一、基本操作題

1.[10分]

2.[10分]

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

1.PrivateSubmnuOper_Click(IndexAsInteger)'SelectCase?Case1Form2.ShowForm1.HideCase2'Timer1.Enabled=?Case3EndEndSelectEndSubPrivateSubTimer1_Timer()Picture1.Left=Picture1.Left+100'IfPicture1.Left+Picture1.Width=?Then'Picture1.Left=?EndIfEndSubPrivateSubCommand1_Click()Form1.ShowForm2.HideEndSub[10分]

2.PrivateSubCheck1_Click()IfCheck1.Value=1ThenFrame1.Enabled=TrueElseFrame1.Enabled=FalseEndIfEndSubPrivateSubCheck2_Click()IfCheck2.Value=1ThenFrame2.Enabled=TrueElseFrame2.Enabled=FalseEndIfEndSubPrivateSubCommand1_Click()IfCheck1.Value=1Then'If?=TrueThens="古典音樂(lè)"Elses="流行音樂(lè)"EndIfEndIfIfCheck2.Value=1Then'If?=TrueThens=s"籃球"Elses=s"羽毛球"EndIfEndIf'Label2.Caption=?EndSubPrivateSubForm_Load()Check1.Value=1Check2.Value=1EndSub[10分]

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

1.OptionBase1Dima(4,4)AsIntegerPrivateSubCommand1_Click()'====考生編寫(xiě)程序開(kāi)始====（1）'====考生編寫(xiě)程序結(jié)束===='不得修改以下部分saveLabel3EndSubPrivateSubCommand2_Click()'====考生編寫(xiě)程序開(kāi)始====（2）'====考生編寫(xiě)程序結(jié)束===='不得修改以下部分saveLabel4EndSubPrivateSubForm_Load()OpenApp.Path"\in5.txt"