《[考试复习题库精编合集]二级VB上机题库2.docx》由会员分享，可在线阅读，更多相关《[考试复习题库精编合集]二级VB上机题库2.docx（5页珍藏版）》请在三一文库上搜索。
1、考试复习题库精编合集二级VB上机题库2考试复习题库精编合集二级VB上机题库21、【简答题】10分解析：PrivateSubCommand1_Click()IfOption1.Item(0)=TrueThenText2.Text=Format(Sin(Val(Text1.Text)*3.14159/180),0.000)EndIfIfOption1.Item(1)=TrueThenText2.Text=Format(Cos(Val(Text1.Text)*3.14159/180),0.000)EndIfEndSubPrivateSubForm_Unload(CancelAsInteger)mys
2、ubEndSub2、【简答题】10分解析：按要求解答即可3、【简答题】10分解析：PrivateSubCommand1_Click()Dimf1,f2,fAsLongDima(40)AsLongf1=1f2=1a(1)=f1a(2)=f2Fori=3ToVal(Text1.Text)f=f1+f2a(i)=ff1=f2f2=fNextText2.Text=a(40)EndSubPrivateSubCommand2_Click()OpenApp.Path&out5.txtForOutputAs#1Print#1,Text2.TextClose#1EndSub4、【简答题】10分解析：Dima(5
3、0)AsLongPrivateSubCommand1_Click()DimfAsLonga(1)=1a(2)=1Fori=3ToVal(Text1.Text)f=a(i-2)+a(i-1)+1a(i)=fNextText2.Text=fEndSubPrivateSubCommand2_Click()OpenApp.Path&out5.txtForOutputAs#1Print#1,Text2.TextClose#1EndSubPrivateSubForm_Load()EndSub5、【简答题】PrivateSubCommand1_Click()Fork=0To?IfOption1(k).Val
4、ueThenn=?EndIfNextkOption1(n).Value=Falsen=n+1Ifn=4Thenn=?EndIfOption1(n).Value=TrueEndSub10分解析：PrivateSubCommand1_Click()Fork=0To3IfOption1(k).ValueThenn=kEndIfNextkOption1(n).Value=Falsen=n+1Ifn=4Thenn=0EndIfOption1(n).Value=TrueEndSub6、【简答题】10分解析：按要求解答即可7、【简答题】PrivateSubCommand1_Click()Timer1.Ena
5、bled=?EndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSubPrivateSubHScroll1_Change()?.Interval=HScroll1.ValueEndSubPrivateSubTimer1_Timer()Picture1.Left=?+10EndSub10分解析：PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSubPrivateSubHScroll1_Ch
6、ange()Form1.Timer1.Interval=HScroll1.ValueEndSubPrivateSubTimer1_Timer()Picture1.Left=Form1.Picture1.Left+10EndSub8、【简答题】10分解析：PrivateSubForm_Click()Picture1.Picture=LoadPicture()或Picture1=LoadPicture()或Picture1.Picture=LoadPicture()或Picture1=LoadPicture()EndSubPrivateSubPicture1_Click()Picture1.Pic
7、ture=LoadPicture(pic1.bmp)或Picture1=LoadPicture(pic1.bmp)EndSub9、【简答题】10分解析：PrivateSubCommand1_Click()Text1.SetFocusEndSubPrivateSubCommand2_Click()Text2.SetFocusEndSub10、【简答题】PrivateSubCommand1_Click()DimtmpStrAsString*50SelectCase?Case0tmpStr=Left(Trim(Text1.Text),3)Case1tmpStr=Right(Trim(Text1.Te
8、xt),3)Case2tmpStr=Mid(Trim(Text1.Text),?)EndSelectText2.Text=?EndSub10分解析：PrivateSubCommand1_Click()DimtmpStrAsString*50SelectCaseForm1.Combo1.ListIndexCase0tmpStr=Left(Trim(Text1.Text),3)Case1tmpStr=Right(Trim(Text1.Text),3)Case2tmpStr=Mid(Trim(Text1.Text),3,4)EndSelectText2.Text=tmpStrEndSub 5 / 5