二级VB上机题库23

精品文档-下载后可编辑二级VB上机题库23二级VB上机题库23

第45套一、基本操作题

1.[10分]

2.[10分]

二、简单应用题

1.PrivateSubCommand1_Click()'Combo1.?Text1.Text=""EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)'IfKeyAscii57OrKeyAscii?ThenMsgBox"请输入数字！"'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分]

三、综合应用题

1.PrivateSubCommand1_Click()'===考生编写程序开始===='===考生编写程序结束===='不要改动以下内容saveLabel1EndSub[10分]

第46套一、基本操作题

1.[10分]

2.[10分]

二、简单应用题

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="古典音乐"Elses="流行音乐"EndIfEndIfIfCheck2.Value=1Then'If?=TrueThens=s"篮球"Elses=s"羽毛球"EndIfEndIf'Label2.Caption=?EndSubPrivateSubForm_Load()Check1.Value=1Check2.Value=1EndSub[10分]

三、综合应用题

1.OptionBase1Dima(4,4)AsIntegerPrivateSubCommand1_Click()'====考生编写程序开始====（1）'====考生编写程序结束===='不得修改以下部分saveLabel3EndSubPrivateSubCommand2_Click()'====考生编写程序开始====（2）'====考生编写程序结束===='不得修改以下部分saveLabel4EndSubPrivateSubForm_Load()OpenApp.Path"\in5.txt"