《二级VB上机题库36》由会员分享，可在线阅读，更多相关《二级VB上机题库36（14页珍藏版）》请在金锄头文库上搜索。
1、二级VB上机题库361、【简答题】10分解析：按要求解答即可2、【简答题】PrivateSubCommand1_Click()CallShowName(?)EndSubPrivateSubLabel1_Click()CallShowName(?)EndSubPrivateSubShowName(cAs?)IfTypeOfcIsCommandButtonThenLabel2.Caption=单击Command1.CaptionEndIfIfTypeOfcIsLabelThen?=单击Label1.CaptionEndIfEndSub10分解析：CallShowName(Command1)Call
2、ShowName(Label1)PrivateSubShowName(cAsControl)Label2.Caption=单击Label1.Caption3、【简答题】Dima(10)AsIntegerPublicSubSave()OpenApp.Pathout5.txtForOutputAs#1Print#1,Label4.CaptionClose#1EndSubPrivateSubCommand1_Click()OpenApp.PathData5.txtForInputAs#1DoWhileNot?Fori=1To10Input#1,a(i)s=s?NextiLoopClose#1Labe
3、l2.Caption=sEndSubPrivateSubCommand2_Click()=以下考生编写程序开始=?(1)?=考生编写程序结束=Fori=1To10s=sStr(a(i)NextiLabel4.Caption=sSaveEndSub10分解析：DoWhileNotEOF(1)s=sStr(a(i)(1)Fori=10To2Step-1Forj=1Toi-1Ifa(j)a(j+1)Thent=a(j)a(j)=a(j+1)a(j+1)=tEndIfNextjNexti4、【简答题】Dima(5,5)AsIntegerDimb(5)AsIntegerDimc(5)AsIntegerP
4、rivateSubCommand1_Click()N=5Fori=1ToN=考生编写程序开始=?=考生编写程序结束=NextiSaveEndSubPrivateSubForm_Load()readEndSubPublicSubread()OpenApp.PathData5.txtForInputAs#1DoWhileNotEOF(1)Fori=1To5Forj=1To5Input#1,a(i,j)NextjNextiLoopClose#1EndSubPublicSubSave()OpenApp.Pathout5.txtForOutputAs#1Fori=1To5Print#1,b(i),c(i
5、)NextiClose#1EndSub10分解析：b(i)=a(i,1)Forj=2To5Ifb(i)a(i,j)Thenb(i)=a(i,j)c(i)=jEndIfNextj5、【简答题】10分解析：按要求解答即可6、【简答题】PrivateSubCommand1_Click()DimnAsIntegerDimbAsIntegerDima(3)AsIntegers=RTrim(Text1.Text)n=?(Text1.Text)Fori=1Tonb=?(Mid(s,i,1)SelectCase?Case48To57a(0)=a(0)+1Case65To90a(1)=a(1)+1Case97T
6、o122a(2)=a(2)+1EndSelectNextFori=0To?=a(i)NextEndSub10分解析：n=Len(Text1.Text)b=Asc(Mid(s,i,1)SelectCasebFori=0To2x(i).Caption=a(i)7、【简答题】PrivateSubremove(LaAsListBox,LbAsListBox)Fori=0To?1Lb.AddItem?.List(i)Next?.ClearEndSubPrivateSubCommand1_Click()Callremove(List1,List2)EndSubPrivateSubCommand2_Clic
7、k()Callremove(List2,List1)EndSub10分解析：Fori=0ToLa.ListCount-1Lb.AddItemLa.List(i)La.Clear8、【简答题】PrivateSubForm_Load()Picture1(0).Left=0Picture1(0).Top=100Fork=1To7Picture1(k).Visible=?NextEndSubPrivateSubCommand1_Click()Timer1.Enabled=?EndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSubPrivate
8、SubTimer1_Timer()StaticiAsIntegerPicture1(i).Visible=Falsei=i+1Ifi=?Theni=?EndIfPicture1(i).Visible=TrueEndSub10分解析：Picture1(k).Visible=FalseTimer1.Enabled=TrueIfi=8Theni=09、【简答题】10分解析：PrivateSubForm_Click()x=InputBox(请输入,等级考试,Basic)EndSub10、【简答题】10分解析：PrivateSubForm_Load()Form1.Caption=标签EndSubPrivateSubForm_Click()Label1.Visible=TrueEndSub 14 / 14
