[考試復(fù)習(xí)題庫精編合集]二級VB上機題庫7

1、考試復(fù)習(xí)題庫精編合集二級VB上機題庫7考試復(fù)習(xí)題庫精編合集二級VB上機題庫71、【簡答題】PrivateSubCommand1_Click()DimS1AsString,S2AsStringDimI1AsIntegerS1=?I1=1DoDoWhileMid(S1,I1,1)?AndI1AndI1=Len(S1)S2=S2&Mid(S1,I1,1)I1=I1+1LoopList1.AddItemS2S2=I1=I1+1LoopWhileI1=Len(S1)EndSub2、【簡答題】10分解析：PrivateSubC1_Click()P1.Picture=LoadPicture(pic2.jpg

2、)P2.Picture=LoadPicture(pic1.bmp)EndSub3、【簡答題】PrivateSubC1_Click()Openout5.txtForOutputAs#1Print#1,Text1.TextClose#1EndSub10分解析：PrivateSubForm_Load()Openin5.txtForInputAs#1Text1.Text=DoWhileNotEOF(1)LineInput#1,a$Text1.Text=Text1.Text+a$+Chr(13)+Chr(10)LoopClose#1EndSub4、【簡答題】10分解析：按要求解答即可5、【簡答題】10分

3、解析：按要求解答即可6、【簡答題】提供給考生的程序PrivateFunctionisprime(aAsInteger)AsBooleanDimflagAsBooleanflag=Trueb%=2DoWhileb%=Int(a/2)AndflagIfInt(a/b%)=a/b%Thenflag=FalseElseb%=b%+1EndIfLoopisprime=flagEndFunction10分解析：要求考生編寫的程序PrivateSubC1_Click()Openin5.txtForInputAs#1Input#1,a%Close#1Text1.Text=a%EndSubPrivateSubC

4、2_Click()a%=Text1.TextDoa%=a%+1LoopUntilisprime(a%)Text2.Text=a%EndSubPrivateSubC3_Click()Openout5.txtForOutputAs#1Print#1,Text2.TextClose#1EndSub7、【簡答題】提供給考生的程序PrivateSubForm_Unload(CancelAsInteger)OpenApp.Path&out4.txtForOutputAs#1Print#1,Ch1.Value,Ch2.Value,Text1.TextClose#1EndSub10分解析：需要考生編寫的程序P

5、rivateSubC1_Click()Text1.Text=我選的課是IfCh1.ValueThenText1.Text=Text1.Text+Ch1.CaptionEndIfIfCh2.Value=1ThenText1.Text=Text1.Text+Ch2.CaptionEndIfEndSub8、【簡答題】10分解析：PrivateSubC1_Click()Text2.Text=C1.Parent.Text1.TextEndSub9、【簡答題】PrivateSubC1_Click()DimflagAsBoolean題目：Fori=0To?IfCb1.List(i)=?Thenflag=TrueElseflag=FalseEndIfNextIfflagThenMsgBox已有此項Cb1.Text=ElseCb1.?Cb1.TextEndIf10分解析：正確程序：DimflagAsBooleanFori=0ToCb1.ListCount-1IfCb1.List(i)=Cb1.TextThenflag=TrueElseflag=FalseEndIfNextIfflagThenMsgBox已有此項Cb1.Text=ElseCb1.AddItemCb1.TextEndIfEndSub答案：Cb1.ListC