二級配書答案操作題

1機(jī)操作題步驟2：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存1機(jī)操作題步驟2：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤步驟2：編寫程序代PrivateSubImage1.Picture=LoadPicture(App.Path&"\MISC34.ico")EndSubPrivateSubImage1.Picture=LoadPicture(App.Path&"\MISC37.ico")EndSubPrivateSubCommand3_Click()SetImage1.Picture=NothingEndSub1：打開本題工程文件。PrivateSubDimkAsInteger,sAsSingle,aAsSingle,bAsSinglea=Val(Text1(0)．Text)s=ab='Fork=1Tos=s+'If?<Val(Text1(k)．Text)Thena=Val(Text1(k)．Text)EndIfb>Val(Text1(k)．Text)Thenb=Val(Text1(k)．Text)Nextk's=(s-a-b)/'s=?*3*控命令按鈕命令按鈕屬黑清控命令按鈕屬1紅'？'？=Int(s*100)/100EndSubDimnAsIntegerEndSubPrivateSubOpenApp.Path+"\out4.dat"ForOutputAs#1Print#1,n,Option1.Value,Option2.Value,Text1Close#1Endn=10Endn=2000Endn=12Endn=1000Endn=0m10.Enabled=Truem12.Enabled=TrueEndn=0m10.Enabled=Falsem12.Enabled=Falsem1000.Enabled=Truem2000.Enabled=EndDimiAsIntegerDimjAsIntegerDimmAsLongDimsumAsLongm=1Ifn=10Orn=12Fori=2Tonm=i*Fori=2Tonm=i*=Ifn=2000Orn=1000ThenForj=1Tonsum=sum+Text1.Text=1：打開本題工程文件。Text4=""a=Val(Text1)b=Val(Text2)n='Text4=Text4&a&"k=2DoWhilek<"&cka*bk+Ifc<10Text4=Text4&""&c'a=?b=d=c\Text4=Text4&"a=dk=k+'Ifk<=?Thend=cMod10"&Text4=Text4&""&d'？=dEnd2步驟2：調(diào)試并運(yùn)行步驟2：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤，然后設(shè)置控件的設(shè)置其屬步驟2：編寫程序代End1：打開本題工程文件。Consty0&=1110,x0&=1100,radius&=PrivateFunctiononcircle(XAsSingle,YAsSingle)AsBooleanprecision=55000IfAbs((X-x0)*(X-x0)+(y0-Y)*(y0-Y)-radius*radius)<precisionThenoncircle=TrueEndIfEndPrivateSubForm_MouseDown(ButtonAsInteger,ShiftasInteger,XAsSingle,YAsSingle)ConstLEFTBUTTON=1Ifoncircle(X,Y)Line1.X1=x0Line1.Y1=IfButton=LEFTBUTTONThenLine1.X2=X'Line1.Y2=Line1.Y2=y0-EndIf''EndIfEnd程序1：打開本題工程文件。DimnAsPrivateSubnVal(InputBox("請輸入整數(shù)(8－12)"，'Ifn>?Orn<8ThenCommand2.Enabled=FalseCommand3.Enabled=FalseCommand2.Enabled=TrueCommand3.Enabled=EndIfEndDimsAsLong,kAsIntegerEndFunctionf(nAsInteger)AsLong's=?Fork=2Tos=s*'f=EndPrivateSubOpenApp.Path&"\out4.dat"ForOutputAs#1Print#1,n,Text1Close1EndSubs=Fork=1Tons=s+f(k)1：打開本題工程文件。Form2.Text1=""Form2.Text2=""Form2.Text3=""Form2.Text3=""EndForm3.Text2=""Label1.Caption=""Text1=""Text2=""Text3=""EndSubSubwriteusers()'n=n+?users(n,1)=Text1users(n,2)=Text2EndSubIfText1=""Then'ElseIffinduser(Trim$(Text1))ThenMsgBox("此用戶名已經(jīng)存在！")ElseIfText2<>Text3'EndIfk=finduser(Trim$(Text1))'Ifk=?ThenMsgBox'ElseIfTrim$(Text2)users(ThenMsgBox("口令錯誤！")EndIfEndSubForm3中第1個？處：03套上機(jī)操作步 1：建立界面，并設(shè)置控件的屬性。程序中用到的控件及屬性見下表步驟2：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤步 1：建立界面，并設(shè)置控件的屬性。程序中用到的控件及屬性見下表步驟2：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤步 1：建立界面，并設(shè)置控件的屬性。程序中用到的控件及屬性見下表步驟2：編寫程序代List1.List(3)=""EndList1.List(3)="英語"EndSub步1：建立界面，并設(shè)置控件的屬性。程序中用到的控件及屬性見下Text1.Alignment=0EndText1.Alignment=2EndText1.Alignment=1EndText1.FontName="宋體"EndSub控單選按鈕單選按鈕單選按鈕屬Capti宋黑控單選按鈕單選按鈕屬居控文本框框架框架屬對齊方字控屬數(shù)學(xué)物理化學(xué)語文Text1.FontName="黑體"EndSub1：打開本題工程文件。Constx0=1200,y0=1200,radius=1000Dima,b,len1,len2Timer1.Enabled=TrueEndEndSubPrivateSubForm_Activate()'Fork=0To359Step'x=radius*Cos(k*3.14159/180)+?y=y0-radius*Sin(k*3.14159/180)Form1.Circle(x,y),20Nextka=b=len1=Line1.Y1-Line1.Y2len2=Line2.Y1-EndPrivateSubTimer1_Timer()a=a-30Line1.X2=len1*Cos(a*3.14159/180)+x0'Line1.?=y0-len1*Sin(a*3.14159/180)'b=?-30/12Line2.X2=len2*Cos(b*3.14159/180)+x0Line2.Y2=y0-len2*Sin(b*3.14159/End1：打開本題工程文件。OptionBaseDima(5,8)AsSingle,athlete(5)AsString*8PrivateSubCommand1_Click()DimchAsStringText1=""OpenApp.Path&"\in5.dat"ForInputAs#1Fork=1To5Input#1,chathlete(k)=Text1=Text1&ch&""Forj=1To8Input#1,a(k,Input#1,a(k,j)=Text1=Text1&ch&""NextjText1=Text1&Chr(13)&Chr(10)NextkEndSubPrivateFunctiongetmark(nAsInteger)AsSingle's=?maxnum=sminnum=s'Fork=2To?s=s+a(n,Ifmaxnum<a(n,k)Thenmaxnum=a(n,k)EndIfminnum>a(n,k)Thenminnum=a(n,k)Nextks=(s-maxnum-minnum)/5'getmark=s*3*?End'要求考生編寫的程序EndPrivateSubOpenApp.Path&"\out5.dat"ForOutputAs#1Print#1,Text2,Text3EndSub第3個？處填入：a(n,8)DimnAsIntegerForn=1ToIfm<getmark(n)Thenm=Text3.Text=mForn=1ToIfm=getmark(n)ThenText2.Text=athlete(n)Nextn41：新建一個窗體，按照題目要求建立列表框控件并設(shè)置窗體及列表框?qū)傩?。程序中用到的控件步驟2：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤步驟2：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤1：建立界面，添加一個命令按鈕設(shè)置NameCommand1，Caption步驟2：編寫程序代PopupMenumenu1End 【微步1：打開本題工程文件。DimnAsPrivateSubDimchAs'ch=Right$(?Ifch>="A"Andch<="Z"Thenn=n+1ElseIfch>="a"Andch<="z"ThenLabel1.Caption=UCase(ch)n=n+1'Label1.Caption=End'Label2.Caption=End程序第2個？處填入第3個？處 【微步步驟1：打開本題工程Dimleft0AsConstbluecolor=&HFF0000,redcolor=&HFF&PrivateSubCommand1_Click()'Timer1.Enabled=?EndSubTimer1.Enabled=FalseEnd標(biāo)文打關(guān)保名內(nèi)縮0111left0=Shape1.Leftleft0=Shape1.LeftEndSubPrivateSubIfShape1.FillColor=bluecolorThenIfShape1.Left>0ThenShape1.Height=Shape1.Height+100Shape1.Width=Shape1.Width+100Shape1.Left=Shape1.Left-50Shape1.Top=Shape1.Top-50'Shape1.FillColor=EndEndIfShape1.FillColor=redcolorThenIfShape1.Left<left0Shape1.Height=Shape1.Height-100Shape1.Width=Shape1.Width-100''？=Shape1.Left+？=Shape1.Top+50Shape1.FillColor=End'EndIfEndSub1：打開本題工程文件。DimsAsString'CommonDialog1.FilterIndex=?OnErrorGoToopenerr'Open?ForInputAs#1Input#1,sClose'Text1.Text=?End'考生需要編寫的程序EndPrivateSubCommonDialog1.FilterIndex=1OnErrorGoToCommonDialog1.FileName=CommonDialog1.FileName='CommonDialog1.Action=?OpenCommonDialog1.FileNameForOutputAs#1Print#1,Text1Close#1EndSub第1個？處第2個？處填入第3個？處第4個？處'考生需要編寫的程序DimchAsStringDimsAsStringDimnAsLongs=Text1.TextText1.Text=Forn=1ToLen(s)ch=Mid(s,n,1)Ifch="E"Orch="N"Orch="T"Thench=LCase(ch)ElseIfch="e"Orch="n"Orch="t"Thench=UCase(ch)EndText1.Text=Text1&步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤，如3.585機(jī)操作題步驟2：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤步 1：新建一個窗體，按照題目要求建立驅(qū)動器列表框、目錄列表框、文件列表框控件并設(shè)置其性步驟2：按照步驟1建立其他控件并設(shè)置相關(guān)屬性，程序中用到的控件及屬性見下表。步驟3：編寫程序代步驟3：編寫程序代File1.Path=Dir1.PathEndSubDir1.Path=Drive1.DriveEndSubLabel2=File1.FileNameEndSub1：打開本題工程文件。Text1.Text=EndPrivateSubText1_KeyPress(KeyAsciiAsInteger)'IfKeyAscii>57OrKeyAscii<?'KeyAscii=?EndEnd程序第3個？處1：打開本題工程文件。mnsmAsIntegersAsLongiAsInteger'Fori=？To't's=s+EndSubFunctionf(ByRefxAsInteger)AsDimtAsDimtAsLongt=1Fori=1To't=End1：打開本題工程文件。PrivateSubCommand1_Click()EndSubPublicSubsave(lAsOpenApp.Path&"\out5.txt"ForOutputAs#1Print#1,l．CaptionClose1EndSubDimiAsIntegerDimjAsIntegerDimkAsIntegerFori=1To60Forj=1ToFork=1ToIfi^2=j^2+k^2Thenm=m+1NextkNextiLabel1=m/6步驟步驟2：調(diào)試并步驟2：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤步 1：建立界面，并設(shè)置控件的屬性。程序中用到的控件及屬性見下表步驟2：編寫程序代Shape1.Shape=3EndShape1.BorderColor=&HFF&EndSub1：打開本題工程文件。窗體1PrivateSubmnuOper_Click(IndexAsInteger)'SelectCase?CaseCase2EndSubPrivateSubPicture1.Left=Picture1.Left+'IfPicture1.Left+Picture1.Width>=?Then'Picture1.Left=？ EndIfEnd窗體2EndSub第1個？處填入第2個？處填入第3個？處填入第4個？處步驟IfCheck1.Value=1ThenFrame1.Enabled=EndIfEndPrivateSubCheck2Click()IfCheck2.Value=1ThenFrame2.Enabled=Frame2.Enabled=EndIfEndPrivateSubIfCheck1.Value1步驟IfCheck1.Value=1ThenFrame1.Enabled=EndIfEndPrivateSubCheck2Click()IfCheck2.Value=1ThenFrame2.Enabled=Frame2.Enabled=EndIfEndPrivateSubIfCheck1.Value1Then'IfTrueThens="古典音樂"EndIfEndIfCheck2.Value1Then'If?=TrueThens=s&"籃球"ss&EndIfEndIfEndSubCheck1.Value=1EndSub1：打開本題工程文件。1：打開本題工程文件。OptionBaseDima(4,4)AsIntegersaveLabel3EndSubPrivateSubCommand2_Click()saveLabel4EndPrivateSubOpenApp.Path&"\in5.txt"ForInputAs#1Fori=1To4Forj=1ToInput#1,a(i,j)NextjNextiClose1EndSubPrivateSubDimmaxAsIntegermax=0Fori=1ToForj=1ToIfa(i,j)>maxThenmax=a(i,j)NextjNextisaveLabel3EndSubPrivateSubDimsumAsIntegersum=0Fori=1ToForj=1To4Ifi=jThensum=sum+a(i,j)EndIfNextjNextisave7套上機(jī)操作一、基本操步驟一、基本操步驟2：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤步1：新建一個窗體，在窗體中添加一個滾動條和一個文本框2：然后按照題目要求設(shè)置控件屬性，程序中用到的控件及屬性見下步3：編寫程序代EndText1.Text=HScroll1.ValueEndSub為&H000000FF&，Shape屬性為3。DimsAsInteger,hAsLongPrivateSubForm_Load()'Timer1.Enabled=?s=-40EndPrivateSubShape1.MoveShape1.Left,Shape1.Top+'IfShape1.Top<=?Thens=-sEnd'IfShape1.Top+?>=Line2.Y1Thens=-sEndIfEndSub程序第1個？處填入第2個？處填入第3個？處填入1：打開本題工程文件。Dima(100)AsIntegerDimkAsInteger1：打開本題工程文件。Dima(100)AsIntegerDimkAsIntegerOpenApp.Path&"\in4.dat"ForInputAs#1Fork=1To100Input#1,NextkEndSubEndPrivateSubForm_Unload(CancelAsInteger)OpenApp.Path&"\out4.dat"ForOutputAs#1Print#1,Combo1.Text;Text1.TextClose1EndSubkAsLongmAsLongqAsLongpAsLongrAsLongnAsk=1ToIfmqnEndIfNextMod2=0Thenm+a(k)q+p+1rmnInt((m+n)/(p+q)+Int(m/Int(nq+p+SelectText1=mText1=nText1=rEndSub1：打開本題工程文件。OptionBaseConstN=5ConstM='DimDimi,j,OptionBaseConstN=5ConstM='DimDimi,j,'OpenApp.Path&"\"&?AsFor=1ToForj=1To'NextiFor"初始矩陣=1ToForj=1ToPrintTab(5*j);Mat(i,Fori=1Tot=Mat(i,Mat(i,2)=Mat(i,'?Fori"交換第二列和第四列后的矩=1ToForj=1ToPrintTab(5*j);Mat(i,NextjNextiEndSub程序2：For3：Input1,Mat(i,4：Mat(i,4)＝8機(jī)操作題步驟2：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤步 2：然后在窗體中添加兩個命令按鈕并設(shè)置其屬性，屬性見下表步驟3：編寫程序代Line4.Visible=TrueEndSubLine4.Visible=FalseEndSub 【微步2：分析并編寫程序代碼。程序提供PrivateSubC1_Click(IndexAsInteger)'SelectCase?CaseTimer1.Enabled='CaseEndSelectEndPrivateSub'Text1.Text=Text1.TextEnd程序第1個？處填入第2個？處 【微步1：打開本題工程文件。DimsAsPrivateSubsVal(InputBox("輸入里程數(shù)(單位：公里)"))EndSubPrivateSubIfs>0'SelectCaseCaseIs<=4CaseIs<='f=10+'Case'f=10+?+(s-15)*EndSelectCaseIs<='f=10+'Case'f=10+?+(s-15)*EndSelectEndIfEnd2：f3：(s4)*4：Is5：11*數(shù)最多的字母是"和"它出現(xiàn)的次數(shù)為"；再添加兩個名稱分別為Text1和Text2，初始值為空的文本框。OptionBase1DimsAsStringPrivateSubOpenApp.Path&"\in5.dat"ForInputAs#1s=Input(LOF(1),#1)EndSub'考生編寫EndPrivateSubForm_Unload(CancelAsOpenApp.Path&"\out5.dat"ForOutputAs#1Print#1,Text1.Text,Text2.TextEndSubPrivateSubn=a(1To26)AsIntegermaxAsIntegeri=1Tok=Asc(Mid$(s,i,If(k>=65Andk<=90)Thena(k-64)=a(k-64)+EndIf(k>=97Andk<=122)Thena(k-96)=a(k-96)+End=m=1ToIfmax<a(m)Thenmax=a(m)EndText2=Form=1ToIfa(m)=maxThenl=mEndText1=Chr(l+64)EndSub9EndText2=Form=1ToIfa(m)=maxThenl=mEndText1=Chr(l+64)EndSub9步驟Pic.Print"VB等級考試"EndSubCommand1.Visible=TrueEndCommand1.Visible=FalseEndSub1：打開本題工程文件。PrivateFunctionxn(mAsInteger)AsLongDimiAsIntegerDimtmpAsLong'tmp=?Fori=1To'tmp'?=EndPrivateSub011Tu1-DimnAsDimnAsIntegerDimiAsIntegerDimtAsDimzAsLong,xAsSinglen=Val(Text1.Text)z=0Fori=2Tot=x-i'z=z+CallSaveResultEndSubPrivateOpenApp.Path&"\out3.dat"ForOutputAs#1Print#1,Label1.CaptionClose1EndSub1：打開本題工程文件。DimPrivateSub_FormLabel1.Caption=arr(0)Timer1.Enabled=TrueEndSub'?iAsInteger'Label1.Caption=？Ifi=3'ii=i+EndIfEndSub1：打開本題工程文件。Fork=0ToText1(k)=CInt(Rnd()*899+PrivateSubCommand2_Click()＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝Dimi%,j%,temp%,flagAsBooleani='j=Fork=0ToText1(k)=CInt(Rnd()*899+PrivateSubCommand2_Click()＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝Dimi%,j%,temp%,flagAsBooleani='j='？=Text1(j)flag=True'While(i<IfflagIfText1(i)Mod2=0ThenText1(j)=Text1(i)j=j-flag=Noti=i+1EndIf'IfText1(j)Mod2=?i=i+1flag=Notj=j-1EndIfEndEndSub10操作題步驟否1是0步驟2：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤步驟1：建立界面，并步驟2：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤步驟1：建立界面，并添加一個名Sha1的形狀控件，建立菜單的屬性見下表步驟2：編寫程序代Sha1.Shape=1EndSha1.Shape=3End步1：打開本題工程文件，并設(shè)置控件的屬性。程序中用到的控件及屬性見下表PrivateSubForm_Unload(CancelAsInteger)OpenApp.Path&"\out3.txt"ForOutputAs#1Print#1,Op1.Value,Op2.Value,Text1.TextPrint#1,Ch1.Value,Ch2.Value,Text2.TextClose#1End程序PrivateSubIfCh2.ValueAndCh1.ValueThenText2ElseIfCh2.ValueAndCh1.ValueFalseThenText2="我的愛好是音樂"ElseIfCh1.ValueAndCh2.ValueFalseThenText2="我的愛好是體育"EndIfIfOp1.ValueThenText1ElseIfOp2.ValueThenText1EndIf標(biāo)題控形圓名內(nèi)縮符011控命令按鈕窗屬取2按鈕End步驟DimiAsInteger'i=?'Timer1.Interval=?EndSub'Label1.Caption=?Ifi=3i=End步驟DimiAsInteger'i=?'Timer1.Interval=?EndSub'Label1.Caption=?Ifi=3i=i=i+EndIfEndSub步驟OptionDimaAsStringDimsAsOpenApp.Path&"\in5.txt"ForInputAs#1DoWhileNotEOF(1)a=Input(1,#1)s=s&aClose#1EndSubDimstrAsStringDimn1Asn2AsIntegern3AsIntegern4AsIntegern5AsIntegern6AsIntegeriAsIntegeri=1ToLen(Text1)str=Mid(Text1,i,1)SelectCasestrn1=n2=n3n2AsIntegern3AsIntegern4AsIntegern5AsIntegern6AsIntegeriAsIntegeri=1ToLen(Text1)str=Mid(Text1,i,1)SelectCasestrn1=n2=n3=n4=n5=n6n1+n2+n3+n4+n5+n6Text1=Text1=Text1=Text1=Text1=Text1=EndSub"字母iI&Format(n1,00")&Text1&"字母jJ&Format(n2,"00")&vbCrLfText1&"字母kK&Format(n3,"00")&vbCrLfText1&"字母lL&Format(n4,"00")&vbCrLfText1&"字母mM&Format(n5,"00")&vbCrLfText1&"字母nN&Format(n6,"00")SubOpen"out5.txt"ForOutputAs#1Print#1,Text1.TextEnd11操作題步 1：按照題目要求建立窗體和控件，并設(shè)置控件的屬性。程序中用到的控件及屬性見下表步驟2：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤步1：按照題目要求建立窗體和控件，并設(shè)置控件的屬性。程序中用到的控件控命令按鈕命令按鈕屬控形狀屬3Shape1.FillStyle=3EndShape1.FillStyle=2End步驟步驟2：分Shape1.FillStyle=3EndShape1.FillStyle=2End步驟步驟2：分析并編寫程序代碼。PrivateSubC1_Click()Dima$,b$,k%,n%a$=""'n%=Asc("a")-Asc(?)Fork%=1Tob$=Mid(Text1.Text,k%,Ifb$>="a"Andb$<="z"Thenb$=String(1,Asc(b$)-n%)Ifb$>="A"Andb$<="Z"'b$=String(1,Asc(b$)?EndEnda$=a$+b$xt'Text1.TextEnd1：打開本題工程文件。Dima(100)AsInteger,numAsIntegerPrivateSubCommand1_Click()DimkAsOpenApp.Path&"\in4.dat"ForInputAs#1Fork=1To60Input#1,Text1=Text1+Str(a(k))+Space(2)NextkEndSubPrivateSubEndSubPrivateSubFori=1ToEndSubPrivateSubFori=1To'Ifnum<a(i)ThenNext'Forj=60Toi'a(j+1)=？Nextj'？=num'以下程序段將插入后的數(shù)組A重新顯示在Text1'Fork=1ToText1=Text1+Str(a(k))+Space(2)Nextk和"最長單詞的長度為"的標(biāo)簽，以及標(biāo)題分別為Text1和Text2，初始內(nèi)容都為空的文本框。OptionBase1DimsAsStringPrivateSubOpenApp.Path&"\in5.dat"ForInputAs#1s=Input(LOF(1),#1)EndSubEndPrivateSubForm_Unload(CancelAsOpenApp.Path&"\out5.dat"ForOutputAs#1Print#1,Text1.Text,Text2.TextEndSubFori=1ToLen(s)J=Asc(Mid(s,i,1))SelectCaseJCase48To57,65To90,97ToCaseMid(s,i,1)="-NextiJ=Len(s)-1Fori=1ToIfMid(s,i,1)IfMid(s,i,1)="-"AndMid(s,i+1,1)="-"Thens=Left(s,i)+Right(s,J-i)J=J-i=i-1EndIfNexts=Left(s,Len(s)-R=Split(s,"-")B=R(0)Fori=1ToIfLen(B)<Len(R(i))ThenB=R(i)NextiText2.Text=Text1.Text=Int((Len(s)-UBound(R))/(UBound(R)+1)+0.5)EndSub12操作題步驟2：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤步 1：建立界面，并設(shè)置控件的屬性。程序中用到的控件及屬性見下表步驟2：編寫程序代Label1.Font="宋體"EndLabel1.Font="黑體"End1：Cmd2EnabledFalse。2：分析并編寫程序代碼。程序提供PrivateSub'?=Text1(1)．Text=""：Text1(2)．Text=""Cmd1.Enabled=False'?=Text1(1)．Text=""：Text1(2)．Text=""Cmd1.Enabled=FalseEndSubPrivateSubCmd2_Click()Text1(1)．Text=tstart=Hour(Text1(0)．Text)*3600+Minute(Text1(0)．Text)*60+Second(Text1(0)．Text)tend=Hour(Text1(1)．Text)*3600+Minute(Text1(1)．Text)*60+Second(Text1(1)．Text)t=tend-tstartm=t\Ifm<t/60Thenm=m+1s=0.5Ifm-3>0's=?+(m-3)*EndText1(2)．TextStr(s)'？=TrueEndSub1：打開本題工程文件。Dima(5,10)AsIntegerDims(5)PrivateSub'OpenApp.Path&"\in4.txt"For?As#1Fori=1To5j=1ToInput#1,a(i,NextNextiClose#1EndSubPrivateSubFori1Tos(i)=j=1To's(i)=Next'？=CInt(s(i)/Text1(i-1)=s(i)NextiEndFork=1To5Shape1(k-1)．Height=s(k)*20m=Line2.Y1'Shape1(k-1)．Top=?-Shape1(k-1)．Height'Shape1(k-1)．?=TrueEndSubEndSub1：Label1Label2OptionBase1DimsAsStringPrivateSubOpenApp.Path&"\in5.dat"ForInputAs#1s=Input(LOF(1),#1)EndSubEndPrivateSubForm_Unload(CancelAsOpenApp.Path&"\out5.dat"ForOutputAs#1Print#1,Text1.Text,Text2.TextEndSub和PrivateSubi=1ToJ=Asc(Mid(s,i,1))SelectCaseJCase48To57,65To90,97ToCaseMid(s,i,1)="-EndNextJLen(s)-1i=1ToIfMid(s,i,1)="-"AndMid(s,i+1,1)="-"Thens=Left(s,i)+Right(s,J-i)J=J-i=i-1EndIfNextsRBLeft(s,Len(s)-i=1ToIfLen(B)<Len(R(i))ThenB=Nextm=UBound(R)To1Step-IfLen(B)=Len(R(m))ThenExitForIfLen(B)=Len(R(m))ThenExitForEndText2.Text=R(m)EndSub13操作題步驟2：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤步驟2：打開代碼編輯窗口，在指定位置編Text3=Text1.SelLengthText2=Text1.SelStartEnd1：打開本題工程文件。PrivateSubHScroll1.Min='HScroll1.Max=Shape2.Width+Shape2.Left-Shape1.VScroll1.Min='VScroll1.Max=Shape2.Height+?-Shape1.HeightHScroll1.Value=1000EndSubPrivateSub'？='？=HScroll1.ValueEndSub'Shape1.Top=?End1：打開本題工程文件。Dima,t,'Timer1.?=TrueEndSubPrivateSubOpenApp.Path&"\out4.txt"ForOutputAs#1Print#1,Label1,Label2EndSuba=1t=0PrivateSubTimer1_Timer()Image1.Top=Image1.Top-a*50IfImage1.Top+Image1.Height<=Image2.Top+Image2.Height-200Then'？=False'd=?-Label1=Label2=t*Timer1.Interval/Enda=a+0.1't=?End4：t1：打開本題工程文件。Dima(30)AsInteger,b(30)AsInteger,c(60)AsIntegerPrivateSubCommand1_Click()DimkAsOpenApp.Path&"\in5.dat"ForInputAs#1Fork=1To30Input#1,Text1=Text1+Str(a(k))+NextFork=1ToInput#1,Text2=Text2+Str(b(k))+NextkInput#1,Text1=Text1+Str(a(k))+NextFork=1ToInput#1,Text2=Text2+Str(b(k))+NextkEndSubPrivateSubCommand2_Click()'以下程序?qū)⒑喜⒑蟮腃顯示Text3Fork=1ToText3=Text3+Str(c(k))+Space(2)NextkEndPrivateSubForm_Unload(CancelAsInteger)OpenApp.Path&"\out5.dat"ForOutputAs#1Print#1,Text3.TextClose1EndSubc(1)=Fori2Toc(i)=c(31)Forj32Toc(j)=b(j-if=1Toj=1ToIfc(j)>c(j+1)Thent=c(j)c(j)=c(j+1)c(j+1)=tEndIfIffExit14Height性設(shè)置為“0-Solid”，F(xiàn)illColor屬性設(shè)置為“&HFF00&”。最后將Form1的Caption屬性設(shè)置為"圓角矩形步驟3：設(shè)置工程文件名為sjt1.vbp,設(shè)置窗體文件名為sjt1.frm，2：編寫程序代碼。步驟3：設(shè)置工程文件名為sjt1.vbp,設(shè)置窗體文件名為sjt1.frm，2：編寫程序代碼。Timer1.Enabled=TrueEndTimer1.Enabled=FalseEndEndText1=Text1+1End2：分析并編寫程序代碼。Sub'Fori=1ToForj=1To6-iPrint"";NextForj=1To?PrintNext'i=1ToForj=1To?Print"NextForj=1To?Print''Next4：9-2*1：打開本題工程文件。DimdAsTimer1.Enabled=TrueEndPrivateSub EndSubd=1End EndSubd=1EndPrivateSubIfOption1''Shape2.Top=?+d*IfShape2.Top<=Shape1.?OrShape2.Top+Shape2.Width>=Shape1.Top+Shape1.HeightEndIfElseIfOption2'Shape2.Left=?+d*IfShape2.Left<=Shape1.LeftOrShape2.Left+Shape2.Width_Shape1.Left+Shape1.WidthEndIfEndEnd1：打開本題工程文件。Dima(10)AsInteger,nAsIntegerPrivateSubCommand1_Click()OpenApp.Path&"\in5.txt"ForInputAs#1WhileNotEOF(1)'n=n+Input#1,ch$,a(n)List1.AddItem?'End'需要考生編寫的內(nèi)容EndPrivateSubOpenApp.Path&"\out5.txt"ForOutputAs#1Print#1,List1.Text,Text1,Text2EndSub'需要考生編寫的內(nèi)容End'需要考生編寫的內(nèi)容p=d=Int(Text1.Textp=d=Int(Text1.Text/500)SelectCasedCasediscount=Casediscount=Casediscount=CaseCaseElseEndSelectText2.Text=Int(discount*p*Text1)EndSubPrivateSubList1_Click()'需要考生編寫的內(nèi)容Text1.Text=a(List1.ListIndex+End步驟3：按照題目要求調(diào)試并運(yùn)行程序。步驟4：關(guān)閉程序后，按題目要求存盤?！咀⒁狻勘４娌⑦\(yùn)行程序，首先單擊“裝入數(shù)據(jù)”按鈕，在“目的地”列表框中顯示城市名稱，在列例如1則在文本框中顯示計算的結(jié)果（例如45），最后單擊“保存”按鈕，在考生文件夾下生成out5.txt文件， 15操作題步 1：按照題目要求建立窗體和控件，并設(shè)置控件的屬性。程序中用到的控件及屬性見下表步驟2：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤步1：建立界面，并設(shè)置控件的屬性。程序中用到的控件及屬性見下步驟2：編寫程序代Text1.Enabled=TrueEndText2=UCase(Text1)End1：打開本題工程文件。1：打開本題工程文件。Dima(20)AsIntegerDimkAsIntegerOpenApp.Path&"\in3.dat"ForInputAs#1Fork=1To20Input#1,Text1=Text1+Str(a(k))+NextkClose#1EndSub'以下程序段將已變換的數(shù)組元素顯示在Text2Fork=1ToText2=Text2+Str(a(k))+Space(2)NextkEndPrivateSubForm_Unload(CancelAsInteger)OpenApp.Path&"\out3.dat"ForOutputAs#1Print#1,Text2.TextEndSubDimiAsIntegerFori=1To10b=a(i)a(i)=a(21-i)a(21-i)=bNext'以下程序段將已變換的數(shù)組元素顯示在Text2Fork=1ToText2=Text2+Str(a(k))+Space(2)NextkEnd1：打開本題工程文件。OptionBaseDimxAsString,maxnAsIntegerPrivateSubCommand1_Click()OpenApp.Path&"\in4.dat"ForInputAs#1s=Input(LOF(1),#1)Close#1Text1.Text=sEndSubPrivateSubDima(26)AsIntegersl=Text1.SelLengthst=Text1.SelText= If?MsgBox Fori=1To= If?MsgBox Fori=1Toc=Mid(st,i,c<>""n=Asc(UCase(c))-Asc("A")+'a(n)= Fori=1Toa(i)=0Text2.Text=Text2.Text+""+Chr(Asc("A")+i-EndIfEndSub1：Text1.SelLength1：打開本題工程文件。OptionBase1Dimn%,tagin%Dimstud(1To10)AsStudTypePrivateSubCommand1_Click()Ifn<10tagin=0n=n+tagin=EndIfIftagin=0IfText1=""MsgBox'n=stud(n)．Name=Text2End'?EndIf=""：Text2=""：Text3=EndDimtAsStudTypeForj=1Ton-''Fork=?ToIfstud(k)．Average>stud(j)．?Thent=stud(k)stud(k)=EndIfNext'NextForj''Fork=?ToIfstud(k)．Average>stud(j)．?Thent=stud(k)stud(k)=EndIfNext'NextForj=1ToPicture1.Printstud(j)．Num;stud(j)．Name;stud(j)．AverageNextjEndTypeNumAsString*6'學(xué)號NameAsString*8AverageAsSingle'End程序1：n第2個？處填入第3個？處第4個？處填入第5個？處填入16操作題步驟1：建立界面，并設(shè)置控件的屬性。程序中用到的控件及屬性見和3.154步驟2：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤步 1：建立界面，并設(shè)置控件的屬性。程序中用到的控件及屬性見下表步驟2：編寫程序代PrivateSub控屬程序2三號控命令按鈕命令按鈕屬粗斜EndSubEndSubText1.FontItalic=TrueEnd2：分析并編寫程序代碼。PrivateSubOp1_Click(IndexAsInteger)'SelectCase?CaseTimer1.Interval=CaseEndSelectEndPrivateSub'Text1.Text=？.Text+1EndSub2：Text1PrivateSubTimer1.Enabled=TrueEndSubPrivateSubC2_Click()End1：打開本題工程文件。Dima(100)AsInteger,numAsInteger,nAsIntegerPrivateSubCommand1_Click()DimkAsIntegern=60OpenApp.Path&"\in4.dat"ForInputAs#1Fork=1TonInput#1,Text1=Text1+Str(a(k))+Space(2)NextkEndSubPrivateSubnumInputBox("請輸入一個數(shù)")EndSubPrivateSubFori=1To'"讀數(shù)據(jù)"事件過程中已給出n Ifnum=?ThenExitForNexti'If?n=n-'Forj=in=n-'Forj=iTo?a(j)=?'EndIf'以下程序段將執(zhí)行刪除操作后的數(shù)組a重新顯示在Text1'Fork=1ToText1=Text1+Str(a(k))+Space(2)NextkEnd第3個？處填入：n4：a(j1：打開本題工程文件。OptionBaseDimxAsString,maxnAsIntegerPrivateSubCommand1_Click()OpenApp.Path&"\in5.dat"ForInputAs#1s=Input(LOF(1),#1)Close#1Text1.Text=sEndPrivateSubDima(26)AsInteger'sl=?st=Text1.SelTextText2=""Ifsl=0Fori=1Toc=Mid(st,i,Ifc<>""n=Asc(UCase(c))-Asc("A")+1'a(n)=?Nextimaxn=a(1):n='Forj=?To26'If?Thenmaxn=a(j)EndIfNextFori=1To'If?Text2.Text=Text2.Text+""+Chr(Asc("A")+i-1)EndIfNextEndSub程序第1個？處填入2：a(n)第3個？EndSub程序第1個？處填入2：a(n)第3個？處5：a(i)17操作題步 1：新建一個窗體，在窗體中添加一個圖像框。窗體中的控件屬性見下表步驟2：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤2：在屬性窗口中設(shè)置控件的屬性，控件的屬性見下表。步驟3：編寫程序代Text1.PasswordChar=""EndText1.PasswordChar="*"EndSubText1=""EndSub步驟1：打開本題工程文件步2：打開代碼編輯窗口，去掉程序中的注釋符"'"，將問號改為正確的內(nèi)容控命令按鈕標(biāo)屬重新口DimnAsIntegerInputBox("請輸入一個整數(shù)")Print"因子數(shù)＝"；fun(n)DimnAsIntegerInputBox("請輸入一個整數(shù)")Print"因子數(shù)＝"；fun(n)EndFunctionfun(mAsDimsAsIntegers=0Fork=1ToAbs(m)/2'IfmModk=?s=s+1PrintkEnd'？End3：funDimk%'Fork=List1.ListCount-1To0IfList1.Selected(k)=TrueThenList2.AddItem?List1.RemoveItemEnd''NextkEndDimk%Text1Fork=0ToList2.ListCount-1Step1'Text1=?&""&List2.List(k)NextkEndSubDimstepyAsIntegerDimstepxAsConstLEFTBUTTON=PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)Dimx0AsInteger,y0AsInteger,aAsSingle,radiusAsIntegerradius=Shape1.Width/2IfButton=LEFTBUTTONThenx0ConstLEFTBUTTON=PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)Dimx0AsInteger,y0AsInteger,aAsSingle,radiusAsIntegerradius=Shape1.Width/2IfButton=LEFTBUTTONThenx0=Shape1.Left+radiusy0=Shape1.Top+radiusIfx=x0Thenstepy=Sgn(y-y0)*50'stepx=？a=(y-y0)/(x-x0)stepx=Sgn(x-x0)*50'？=a*'圓心的x'圓心的yIfAbs(stepy)>Abs(stepx)Thenstepy=Sgn(y-y0)*50stepx=stepy/aEndIf'？=True'？=FalseEndIfEndPrivateSub'Shape1.MoveShape1.Left+stepx,Shape1.Top+End18操作題1：建立界面，在窗體中添加兩個框架，兩個單選按鈕和一個復(fù)選框，并設(shè)置控件的屬性。要添1：建立界面，在窗體中添加兩個文本框和一個命令按鈕，然后在屬性窗口設(shè)置控件的屬性。程步驟2：編寫步驟2：編寫程序代Text2=Text1.SelLengthEnd 【微步步驟1：打開本題工程Dimst$,ch$OpenApp.Path&"\in3.txt"ForInputAs#1DoWhileNotEOF(1)Input#1,'st=?&Close#1EndSubDimst$,word$,c$st=Text1n=Len(st)Fork=1To'？=Mid(st,k,Ifc<>""Thenword=word&c'？=""EndIfEndSub程序第1個？處填入第2個？處第3個？處填入 【微步1：Interval100，EnabledFalse。2：分析并編寫程序代碼。程序提供'P1.?P1.Left+20End程序Timer1.Enabled=TrueEndSubPrivateTimer1.Enabled=TrueEndSubPrivateSubC2_Click()Timer1.Enabled=FalseEndSub【微步1：打開本題工程文件。PrivateFunctionIsPrime(ByValxAsInteger)AsBooleanDimiAsIntegerIsPrime=Ifx=1ThenExitFunctionFori=2ToSqr(x)IfxModi=0ThenExitFunctionEndEndFunctionOpenApp.Path&"\out5.dat"ForOutputAsPrint#1,Text1.Text,Label1.Caption,Label2.CaptionClose#1End程序Fori=1ToIfIsPrime(i)AndIsPrime(Val(Text1.Text)-i)ThenLabel1=iLabel2=Val(Text1.Text)-iExitForNexti19操作題步 1：新建一個窗體，在窗體中添加一個框架和三個復(fù)選框步2：然后在屬性窗口中設(shè)置控件的屬性，程序中用到的控件及屬性見下步驟2：編步驟2：編寫程序代Label1=DateEndLabel1=TimeEnd 【微步1：打開本題工程文件。Dima(100)AsIntegerDimkAsOpenApp.Path&"\in3.dat"ForInputAs#1Fork=1To100NextkEndSubEndPrivateSubForm_Unload(CancelAsOpenApp.Path&"\out3.dat"ForOutputAs#1Print#1,Text1.TextEndSub程序DimsumAsLongFork=1ToForm=1ToIfa(k)=m^2Thensum=sum+a(k)n=n+1NextmNextText1=Fix(sum/n)EndSub 【微步PrivateSub'IfCommand1.Caption=?'?PrivateSub'IfCommand1.Caption=?'?=Command1.Caption'?=EndIfEndEndPrivateSub'If?>Form1.WidthThenLabel1.Left=-Label1.Width'Label1.Left=?+EndSub程序1個？處填入："演第2個？處填入第3個？處填入【微步步1：打開本題工程文件，設(shè)置控件的屬性。程序中用到的控件及屬性見下表OptionBaseDima(20)AsInteger,b(20)AsIntegerPrivateSubCmd1_Click()Text1.Text=""：Text2.Text=""：Text3.Text=""Fori=1To20'a(i)=Fix(Rnd*?+b(i)=Text1.Text=Text1.Text+Str(a(i))+Space(2)NextiEndPrivateSubfmax=Fori=1Tofmax=Fori=1To Forj=1ToIfa(i)=a(j)b(i)=b(i)+Nextj'Ifb(i)>?Thenfmax=NextiFori=1'ToIfb(i)=?Text2.Text=Text2.Text+Str(a(i))+Space(2)EndIfNextEndSub'?End程序第1個？處2：i第3個？處填入第4個？處填入第5個？處20操作題步 1：建立界面，并設(shè)置控件的屬性。程序中用到的控件及屬性見下表步驟2：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤步 1：建立界面，并設(shè)置控件的屬性。程序中用到的控件及屬性見下表步驟2：編寫程序代PrivateSubImage1.PictureLoadPicture(App.Path&.jpg")EndSubPrivateSubCmd2_Click()EndSub1：打開本題工程文件。Dima(100)AsPrivate1：打開本題工程文件。Dima(100)AsPrivateFunctionissquare(xAsInteger)AsBooleanflag=FalseForm=1ToSqr(x)'If?=m^2ExitForNextm'issquare=?EndFunctionDimkAsIntegerOpenApp.Path&"\in3.dat"ForInputAs#1Fork=1To100NextkEndSubPrivateSubDimmaxAsIntegerDimnumAsIntegermax=0num=1ToIfissquare(a(k))Thennum=num+1'If?>MaxEndIfEndIfNextk'Text1.Text=?'Text2.Text=EndForkText1，初始文本內(nèi)容為空的文本框。PrivateSub' End'Fori=0To? List1.ListIndex=IfList1.Text=Text1.TextExitSubEndIfNext'?Text1.TextText1.Text=""EndSubExitSubEndIfNext'?Text1.TextText1.Text=""EndSub'?End2：List1.ListCountDima(10)PrivateSubFori=1To10Text2.Text=''a(i)=Fix(Rnd*?+1)Forj=1To?Ifa(i)=a(j)'i=EndIfNextjNextFori=1ToText1.Text=Text1.Text+Str(a(i))+Space(2)NextiEndPrivateSubDimnumAsInteger,iAsIntegernumInputBox("請輸入待查找的數(shù)")Fori=1To10'Ifa(i)=?Text2.TextStr(num)Str(i)ExitForEndNext'If?>10Text2.TextStr(num)EndIfEndSub3：i21操作題1：建立一個窗體，在窗體中添加一個命令按鈕，并添加并設(shè)置控件的屬性。程序中用到的控件PrivateSubC1_Click()End3：i21操作題1：建立一個窗體，在窗體中添加一個命令按鈕，并添加并設(shè)置控件的屬性。程序中用到的控件PrivateSubC1_Click()EndPrivateSubList1_Click()EndSub1：打開本題工程文件。DimyAsI