王老師重點(diǎn)50套操作題

1、01-第01套基本操作題（1）在名稱為Forml的窗體上增添一個(gè)名稱為H1水平轉(zhuǎn)動(dòng)條，請(qǐng)?jiān)趯傩源翱谥性O(shè)置它的屬性值，知足以下要求：它的最小刻度值為1，最大刻度值為100，在程序運(yùn)行時(shí)鼠標(biāo)單擊轉(zhuǎn)動(dòng)條上轉(zhuǎn)動(dòng)框以外的地區(qū)(不包括兩邊按鈕)，轉(zhuǎn)動(dòng)框搬動(dòng)10個(gè)刻度。再在轉(zhuǎn)動(dòng)條下邊畫兩個(gè)名稱分別為L(zhǎng)1、L2的標(biāo)簽，并分別顯示1、100，運(yùn)行時(shí)的窗體以以下圖。注意：存盤時(shí)必定寄存在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名為sjt1.frm。（2）在名稱為Form1的窗體上增添兩個(gè)名稱分別為Text1和Text2的文本框，初始內(nèi)容均為空；再成立一個(gè)下拉菜單，菜單標(biāo)題為操作，名稱為M1，此菜單下含

2、有兩個(gè)菜單項(xiàng)，名稱分別為Copy和Clear，標(biāo)題分別為復(fù)制、消除，請(qǐng)編寫適合的事件過(guò)程，使得在程序運(yùn)行時(shí)，單擊復(fù)制選項(xiàng)菜單，則把Text1中的內(nèi)容復(fù)制到Text2中，單擊消除選項(xiàng)菜單，則消除Text2中的內(nèi)容(即在Text2中填入空字符串)。運(yùn)行時(shí)的窗體以以下圖。要求在程序中不得使用任何變量，每個(gè)事件過(guò)程中只能寫一條語(yǔ)句。注意：存盤時(shí)必定寄存在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm。PrivateSubClear_Click()PrivateSubCopy_Click()Text2.Text=Text2.Text=Text1.TextEndSubEndSub

3、01-第01套簡(jiǎn)單應(yīng)用題（1）在考生文件夾下有一個(gè)工程文件sjt3.vbp，窗體上已經(jīng)有一個(gè)標(biāo)簽Label1，請(qǐng)?jiān)鎏硪粋€(gè)單項(xiàng)選擇按鈕數(shù)組，名稱為Op1，含三個(gè)單項(xiàng)選擇按鈕，它們的Index屬性分別為0、1、2，標(biāo)題依次為飛機(jī)、火車、汽車，再增添一個(gè)名稱為Text1的文本框。窗體文件中已經(jīng)給出了Op1的Click事件過(guò)程，但不完滿，要求去掉程序中的說(shuō)明符，把程序中的?改為正確的內(nèi)容，使得在程序運(yùn)行時(shí)單擊飛機(jī)或火車單項(xiàng)選擇按鈕時(shí)，在Text1中顯示我坐飛機(jī)去或我坐火車去，單擊汽車單項(xiàng)選擇按鈕時(shí)，在Text1中顯示我開(kāi)汽車去，以以下圖。注意：不能夠改正程序中的其余部分。最后將改正后的文件按原文件名存

4、盤。PrivateSubOp1_Click(IndexAsInteger)DimaAsString,bAsString,cAsStringa=我坐b=我開(kāi)SelectCase?*Index*Case0Text1.Text=a+Me.Op1(0).Caption+Case1Text1.Text=?+Me.Op1(1).Caption+Case2Text1.Text=b+Me.Op1(2).Caption+EndSelect去去去*a*EndSub（2）在考生文件夾下有一個(gè)工程文件sjt4.vbp，F(xiàn)orm1窗體中有一個(gè)文本框，名稱為Text1；請(qǐng)?jiān)诖绑w上增添兩個(gè)框架控件，名稱分別為F1、F2，標(biāo)

5、題分別為性別、身份；在F1中增添兩個(gè)單項(xiàng)選擇按鈕控件Op1、Op2，標(biāo)題分別為男、女；在F2中增添兩個(gè)單項(xiàng)選擇按鈕控件Op3、Op4，標(biāo)題分別為學(xué)生、教師；再增添一個(gè)命令按鈕，名稱為C1，標(biāo)題為確定。以以下圖。請(qǐng)編寫適合的事件過(guò)程，使得在運(yùn)行時(shí)，在F1、F2中各選一個(gè)單項(xiàng)選擇按鈕，爾后單擊確定按鈕，就能夠依照下表把結(jié)果顯示在文本框中。性別身份在文本框中顯示的內(nèi)容男學(xué)生我是男學(xué)生男教師我是男教師女學(xué)生我是女學(xué)生女教師我是女教師最后把改正后的文件以原來(lái)的文件名存盤。注意：考生不得改正窗體文件中已經(jīng)存在的程序和Text1的屬性，在結(jié)束程序運(yùn)行以前，必定進(jìn)行能夠產(chǎn)生上表中一個(gè)結(jié)果的操作。必定用窗體右上

6、角的封閉按鈕結(jié)束程序，否則無(wú)成績(jī)。,*請(qǐng)考生編寫程序*Ifop1andop3thenText1=”我是男學(xué)生”Ifop1andop4thenText1=”我是男教師”Ifop2andop3thenText1=”我是女學(xué)生”Ifop2andop4thenText1=”我是女教師”01-第01套綜合應(yīng)用題以下數(shù)列：1，1，2，3，5，8，13，21，的規(guī)律是從第3個(gè)數(shù)開(kāi)始，每個(gè)數(shù)都是其前面兩個(gè)數(shù)之和。在考生文件夾下有一個(gè)工程文件sjt5.vbp。窗體中已經(jīng)給出了全部控件，以以下圖。請(qǐng)編寫適合的事件過(guò)程達(dá)成以下功能：選中一個(gè)單項(xiàng)選擇按鈕后，單擊計(jì)算按鈕，則計(jì)算出上述數(shù)列的第n項(xiàng)的值，并在文本框中顯示

7、，n是選中的單項(xiàng)選擇按鈕后邊的數(shù)值。(提示：因計(jì)算結(jié)果較大，應(yīng)使用長(zhǎng)整型變量。)注意：不能夠改正已經(jīng)給出的程序和已有的控件的屬性；在結(jié)束程序運(yùn)行以前，必定選中一個(gè)單項(xiàng)選擇按鈕，并單擊計(jì)算按鈕獲得一個(gè)結(jié)果；必定使用窗體右上角的封閉按鈕結(jié)束程序，否則無(wú)成績(jī)。最后把改正后的文件按原文件名存盤。PrivateSubCommand1_Click(),*請(qǐng)考生編寫程序*Dima(35)AsLongIfop1(0)thenn=30Ifop1(1)thenn=33Ifop1(2)thenn=35a(1)=1a(2)=1Fori=3Tona(i)=a(i-1)+a(i-2)NextText1.Text=a(n)

8、EndSub02-第02套基本操作題（1）在名稱為Form1的窗體上增添一個(gè)名稱為L(zhǎng)1的標(biāo)簽，標(biāo)簽上標(biāo)題為請(qǐng)輸入密碼，增添一個(gè)名稱為Text1的文本框，其寬、高分別為2000和300，設(shè)置適合的屬性，使得在輸入密碼時(shí)，文本框中顯示為*字符，其余再把窗體的標(biāo)題設(shè)置為密碼窗口，以上這些設(shè)置都必定在屬性窗口中進(jìn)行，程序運(yùn)行時(shí)的窗體以以下圖。注意：存盤時(shí)必定寄存在考生文件夾下，工程文件名儲(chǔ)藏為sjt1.vbp，窗體文件名儲(chǔ)藏為sjt1.frm。在窗體中增添一個(gè)標(biāo)簽，名稱設(shè)置為L(zhǎng)1，將標(biāo)簽的Caption屬性設(shè)置為請(qǐng)輸入密碼。爾后再增添一個(gè)文本框，設(shè)置其名稱為Text1,爾后設(shè)置其Height屬性為30

9、0，設(shè)置其Width屬性為2000，設(shè)置其PasswordChar屬性為*。最后將Form1的Caption屬性設(shè)置為密碼窗口。（2）在名稱為Form1的窗體上增添一個(gè)名稱為P1的圖片框，請(qǐng)編寫適合的事件過(guò)程，使得程序在運(yùn)行時(shí)，每單擊一次圖片框，就在圖片框中輸出單擊圖片框，每單擊圖片框外的窗體一次，就在窗體中輸出單擊窗體運(yùn)行時(shí)的窗體以以下圖。要求在程序中不得使用變量，每個(gè)事件過(guò)程中只能寫一條語(yǔ)句。注意：存盤時(shí)必定寄存在考生文件夾下，工程文件名儲(chǔ)藏為sjt2.vbp，窗體文件名儲(chǔ)藏為sjt2.frm。，PrivateSubForm_Click()PrivateSubP1_Click()Form1

10、.Print單擊窗體P1.Print單擊圖片框EndSubEndSub02-第02套簡(jiǎn)單應(yīng)用題（1）在考生文件夾下有一個(gè)工程文件sjt3.vbp，窗體中有兩個(gè)圖片框，名稱分別為P1、P2，其中的圖片內(nèi)容分別是一架航天飛機(jī)和一朵云彩，一個(gè)命令按鈕，名稱為C1，標(biāo)題為發(fā)射，還有一個(gè)計(jì)時(shí)器，名稱為Timer1。并給出了兩個(gè)事件過(guò)程，但其實(shí)不完滿，要求：設(shè)置Timer1的屬性，使其在初始狀態(tài)下不計(jì)時(shí)；設(shè)置Timer1的屬性，使其每隔0.1秒調(diào)用Timer事件過(guò)程一次。去掉程序中的說(shuō)明符，把程序中的?改為正確的內(nèi)容，使得在運(yùn)行時(shí)單擊發(fā)射按鈕，則航天飛機(jī)每隔0.1秒向上搬動(dòng)一次，當(dāng)?shù)诌_(dá)P2的下方時(shí)停止搬動(dòng)

11、，以以下圖。注意：不能夠改正程序中的其余部分。最后把改正后的文件按原文件名存盤。PrivateSubC1_Click()Timer1.Enabled=?*True*EndSubPrivateSubTimer1_Timer()Statica%a=a=+1IfP1.TopP2.TopP2.?Then*Height*P1.MoveP1.Left,P1.Top-5-a,P1.Width,P1.HeightElseTimer1.Enabled=?*False*EndIfEndSub（2）在考生文件夾下有一個(gè)工程文件sjt4.vbp，運(yùn)行情況以以下圖。程序的功能是計(jì)算以下表達(dá)式的值：其中的N和x的值經(jīng)過(guò)鍵

12、盤分別輸入到文本框Text1、Text2中。此后若是單擊標(biāo)題為計(jì)算、名稱為Command1的命令按鈕，則計(jì)算表達(dá)式的值z(mì)，并將計(jì)算結(jié)果顯示在名稱為L(zhǎng)abel1的標(biāo)簽中。在給出的窗體文件中已經(jīng)增添了全部控件和程序，但程序不完滿。要求去掉程序中的說(shuō)明符，把程序中的?改為正確的內(nèi)容。：程序中不得使用運(yùn)算符，而應(yīng)注意考生不得改正窗體文件中已經(jīng)存在的程序。使用函數(shù)xn進(jìn)行冪運(yùn)算。程序最少運(yùn)行一次，依照以以下圖輸入數(shù)據(jù)，使x=10，N=5，單擊計(jì)算按鈕，計(jì)算z的值，并將結(jié)果顯示在標(biāo)簽Label1中，否則沒(méi)有成績(jī)。最后，程序按原文件名存盤。PrivateFunctionxn(aAsSingle,mAsInt

13、eger)DimiAsIntegertmp=1Fori=1Tomtmp=?Nextxn=?EndFunction*tmp*a*tmp*DimtAsSingleDims,xAsSinglen=Val(Text1.Text)x=Val(Text2.Text)z=0Fori=2Tont=x+iz=z+？*xn(t,i)*NextLabel1.Caption=?CallSaveResultEndSubPrivateSubSaveResult()OpenApp.Path&out4.datForOutputAs#1Print#1,Label1.CaptionClose#1EndSub*z*02-第02套綜

14、合應(yīng)用題在考生文件夾中有一個(gè)工程文件sjt5.vbp。該程序的功能是從in5.txt文件中讀入40個(gè)數(shù)據(jù)，統(tǒng)計(jì)這些數(shù)據(jù)中素?cái)?shù)的個(gè)數(shù)，并找出全部素?cái)?shù)中最小的素?cái)?shù)(判斷素?cái)?shù)的函數(shù)已給出)。最后將查找和統(tǒng)計(jì)的結(jié)果分別顯示在標(biāo)簽Label4和Label3中(窗體外觀如圖所示)。程序不完滿，請(qǐng)?jiān)谥付ǖ牡攸c(diǎn)把程序補(bǔ)充完滿。注意：不得改正原有程序和控件的屬性。在結(jié)束程序運(yùn)行以前，必定最少正確運(yùn)行一次程序，將統(tǒng)計(jì)的結(jié)果顯示在標(biāo)簽中，否則無(wú)成績(jī)。最后把改正后的文件按原文件名存盤。Privatearr(100)AsIntegerPublicFunctionprime(xAsInteger)k=Int(Sqr(x)

15、+5)Fori=2TokIfxModi=0Thenprime=FalseExitFunctionEndIfNextprime=TrueEndFunctionPrivateSubCommand1_Click()OpenApp.Path&in5.txtForInputAs#1Fori=1To40Input#1,arr(i)NextClose#1EndSubPrivateSubCommand2_Click(),*請(qǐng)考生編寫程序*DimaAsIntegerDimbAsIntegera=0b=arr(1)Fori=1To40Ifprime(arr(i)Thena=a+1Label3.Caption=aN

16、extFori=1To40Ifprime(arr(i)Andarr(i)=bThenb=arr(i)Label4.Caption=bNext*考生編寫程序結(jié)束*OpenApp.Path&out5.txtForOutputAs#1Print#1,Label3.Caption,Label4.CaptionClose#1EndSub03-第03套基本操作題（1）在名稱為Form1的窗體上增添兩個(gè)名稱分別為Text1和Text2的文本框，它們的高、寬分別為300、2400和1200、2400。窗體的標(biāo)題為窗口。請(qǐng)經(jīng)過(guò)屬性窗口設(shè)置適合的屬性，知足以下要求：Text2能夠顯示多行文本，并且有垂直和水平兩個(gè)

17、轉(zhuǎn)動(dòng)條；程序運(yùn)行時(shí)在Text1中顯示輸入的字符為*。程序運(yùn)行后的窗體以以下圖。注意：存盤時(shí)必定寄存在考生文件夾下，工程文件名儲(chǔ)藏為sjt1.vbp，窗體文件名儲(chǔ)藏為sjt1.frm。（2）在名稱為Form1的窗體上增添一個(gè)名稱為Image1的圖像框，其高、寬分別為口把考生文件夾下的圖像文件pic1.bmp載入圖像框；再畫兩個(gè)命令按鈕控件，名稱分別為1900、1700，經(jīng)過(guò)屬性窗C1、C2，標(biāo)題分別為放大、減小，以以下圖。要求：請(qǐng)編寫適合的事件過(guò)程，程序運(yùn)行后，若是單擊放大按鈕，則將圖像框的高度、寬度均增添100；單擊減小按鈕，則將圖像框的高度、寬度均減少100。要求程序中不得使用任何變量。經(jīng)過(guò)

18、屬性窗口設(shè)置圖像框的適合屬性，使得在放大、減小圖像框時(shí)，其中的圖像也自動(dòng)放大、減小。注意：存盤時(shí)必定寄存在考生文件夾下，工程文件名儲(chǔ)藏為sjt2.vbp，窗體文件名儲(chǔ)藏為控件圖像框?qū)傩訬ameWidthHeightPictureStretch設(shè)置值Image117001900pic1.bmpTruesjt2.frm?？丶畎粹o1命令按鈕2屬性NameCaptionNameCaption設(shè)置值C1放大C2減小PrivateSubC1_Click()Image1.Height=Image1.Height+100Image1.Width=Image1.Width+100EndSubPrivateS

19、ubC2_Click()Image1.Height=Image1.Height-100Image1.Width=Image1.Width-100EndSub03-第03套簡(jiǎn)單應(yīng)用題（1）在考生文件夾下有一個(gè)工程文件sjt3.vbp，其功能是：?jiǎn)螕糇x數(shù)據(jù)按鈕，則將考生文件夾下in3.dat文件中的100個(gè)0到999之間的整數(shù)讀入到數(shù)組a中；單擊計(jì)算按鈕，則找出這100個(gè)整數(shù)中的全部水仙花數(shù)，并將它們的最大值與最小值分別顯示在文本框Text1、Text2中。(注：當(dāng)一個(gè)數(shù)的值等于該數(shù)中的各位數(shù)字的立方和時(shí)，此數(shù)被稱為水仙花數(shù)。如：153135333所以153就是一個(gè)水仙花數(shù))在窗體文件中已經(jīng)給出了

20、全部控件(以以下圖)和讀數(shù)據(jù)命令按鈕的事件過(guò)程以及判斷一個(gè)數(shù)可否為水仙花數(shù)的通用過(guò)程。要求編寫計(jì)算命令按鈕的事件過(guò)程。注意：考生不得改正窗體文件中已經(jīng)存在的控件和程序，在結(jié)束程序運(yùn)行前，必定進(jìn)行計(jì)算，并且必定通過(guò)單擊窗體右上角的封閉按鈕結(jié)束程序，否則無(wú)成績(jī)。最后，程序按原文件名存盤。Dima(100)AsIntegerPrivateSubCommand1_Click()DimkAsIntegerOpenApp.Path&in3.datForInputAs#1Fork=1To100Input#1,a(k)NextkClose#1EndSubPrivateSubCommand2_Click()*需

21、考生編寫的程序*DimiAsIntegerDimmaxAsInteger,minAsIntegermax=-1min=1000Fori=1To100Ifisnarc(a(i)ThenIfmax=a(i)Thenmin=a(i)EndIfNextiText1=maxText2=minEndSub以下Function過(guò)程用于判斷某數(shù)可否為水仙花數(shù)Functionisnarc(pAsInteger)x=Fix(p/100)y=Fix(p-x*100)/10)z=p-x*100-y*10Ifp=x3+y3+z3Thenisnarc=TrueElseisnarc=FalseEndIfEndFunctio

22、nPrivateSubFormUnload(CancelAsInteger)OpenApp.Path&out3.datForOutputAs#1Print#1,Val(Text1.Text)Print#1,Val(Text2.Text)Close#1EndSub（2）在考生文件夾下有一個(gè)工程文件sjt4.vbp。請(qǐng)?jiān)诖绑w上增添一個(gè)組合框，名稱為項(xiàng)：3、7、11(列表項(xiàng)的次序不限，但必定是這3個(gè)數(shù)字)；增添一個(gè)名為Text1的文本框；再增添一個(gè)標(biāo)題為計(jì)算、名稱為C1的命令按鈕。以以下圖。請(qǐng)編寫適合的事件過(guò)程，使得在程序運(yùn)行時(shí)，在組合框中選定一個(gè)數(shù)字后，單擊計(jì)算按鈕，則計(jì)算5000以內(nèi)能夠被該數(shù)整

23、除的全部數(shù)之和，并放入Text1中。最后，按原文件名存盤。提示：由于計(jì)算結(jié)果較大，應(yīng)使用長(zhǎng)整型變量。注意：考生不得改正窗體文件中已經(jīng)存在的程序，在結(jié)束程序運(yùn)行以前，必定最少進(jìn)行cb1，并輸入三個(gè)列表一次計(jì)算。并且必定用窗體右上角的封閉按鈕結(jié)束程序，否則無(wú)成績(jī)。PrivateSubC1_Click()*需考生編寫的程序*DimsumAsLongDimnAsIntegerDimiAsIntegern=Val(Cb1.Text)Fori=nTo5000IfiModn=0Thensum=sum+iEndIfNextiText1.Text=sumEndSub03-第03套綜合應(yīng)用題在考生文件夾下有一個(gè)工

24、程文件sjt5.vbp，其名稱為Form1的窗體上已有三個(gè)文本框Text1、Text2、Text3，以及部分程序代碼。請(qǐng)達(dá)成以下工作：在屬性窗口中改正Text3的適合屬性，使其在運(yùn)行時(shí)不顯示，作為模擬的剪貼板使用。窗體以以下圖；成立下拉式菜單，以下表所示:標(biāo)題名稱編寫Edit剪切Cut復(fù)制Copy粘貼Paste窗體文件中給出了全部事件過(guò)程，但不完滿，請(qǐng)去掉程序中的說(shuō)明符，把程序中的?改為正確的內(nèi)容。以便實(shí)現(xiàn)以下功能：當(dāng)光標(biāo)所在的文件框中無(wú)內(nèi)容時(shí)，剪切、復(fù)制不能用，否則能夠把該文本框中的內(nèi)容剪切或復(fù)制到Text3中；若Text3中無(wú)內(nèi)容，則粘貼不能夠用，否則能夠把Text3中的內(nèi)容粘貼在光標(biāo)所在

25、的文本框中的內(nèi)容此后。注意：不能夠改正程序中的其余部分。各菜單項(xiàng)的標(biāo)題名稱必定正確。最后將改正后的文件按原文件名存盤。DimwhichAsIntegerPrivateSubcopy_Click()Ifwhich=1ThenText3.Text=Text1.TextElseIfwhich=2ThenText3.Text=Text2.TextEndIfEndSubPrivateSubcut_Click()Ifwhich=1ThenText3.Text=Text1.TextText1.Text=ElseIfwhich=2ThenText3.Text=Text2.TextText2.Text=EndI

26、fEndSubPrivateSubedit_Click()Ifwhich=?Then*1*IfText1.Text=Thencut.Enabled=FalseCopy.Enabled=FalseElsecut.Enabled=TrueCopy.Enabled=TrueEndIfElseIfwhich=?ThenIfText2.Text=Thencut.Enabled=FalseCopy.Enabled=False*2*Elsecut.Enabled=TrueCopy.Enabled=TrueEndIfEndIfIfText3.Text=ThenPaste.Enabled=FalseElsePa

27、ste.Enabled=TrueEndIfEndSubPrivateSubpaste_Click()Ifwhich=1ThenText1.Text=?ElseIfwhich=2ThenText2.Text=?*Text1.Text+Text3.Text*Text2.Text+Text3.Text*EndIfEndSubPrivateSubText1_GotFocus()本過(guò)程的作用是：當(dāng)焦點(diǎn)在Text1中時(shí)，which=1which=1EndSubPrivateSubText2_GotFocus()本過(guò)程的作用是：當(dāng)焦點(diǎn)在Text2中時(shí)，which=2which=2EndSub04-第04套基

28、本操作題1）在名稱為Form1的窗體上增添一個(gè)名稱為Command1的命令按鈕，標(biāo)題為翻開(kāi)文件，再增添一個(gè)名稱為CD1的通用對(duì)話框。程序運(yùn)行后，若是單擊命令按鈕，則彈出翻開(kāi)文件對(duì)話框，請(qǐng)按以下要求設(shè)置屬性和編寫代碼：設(shè)置適合屬性，使對(duì)話框的標(biāo)題為翻開(kāi)文件；設(shè)置適合屬性，使對(duì)話框的文件種類下拉式組合框中有兩項(xiàng)可供選擇：文本文件、全部文件(如圖所示)，默認(rèn)的種類是全部文件；編寫命令按鈕的事件過(guò)程，使得單擊按鈕能夠彈出翻開(kāi)文件對(duì)話框。要求：程序中不得使用變量，事件過(guò)程中只能寫一條語(yǔ)句。注意：存盤時(shí)必定寄存在考生文件夾下，工程文件名儲(chǔ)藏為sjt1.vbp，窗體文件名儲(chǔ)藏為sjt1.frm。Privat

29、eSubCommand1_Click()CD1.ShowOpenEndSub（2）在名稱為Form1的窗體上增添一個(gè)名稱為Command1的命令按鈕，其標(biāo)題為搬動(dòng)本按鈕，以以下圖。要求編寫適合的事件過(guò)程，使得程序運(yùn)行時(shí)，每單擊按鈕一次，按鈕向左搬動(dòng)100。要求：程序中不得使用變量，事件過(guò)程中只能寫一條語(yǔ)句。注意：存盤時(shí)必定寄存在考生文件夾下，工程文件名儲(chǔ)藏為sjt2.vbp，窗體文件名儲(chǔ)藏為sjt2.frm。PrivateSubCommand1_Click()Command1.Left=Command1.Left-100EndSub04-第04套簡(jiǎn)單應(yīng)用題1）在名稱為Form1的窗體上增添一個(gè)

30、名稱為L(zhǎng)abel1、標(biāo)題為增添項(xiàng)目：的標(biāo)簽；增添一個(gè)名稱為Text1的文本框，初始內(nèi)容為空；增添一個(gè)名稱為Combo1的下拉式組合框，并經(jīng)過(guò)屬性窗口輸入若干項(xiàng)目(很多于3個(gè)，內(nèi)容隨意)；再增添兩個(gè)命令按鈕，名稱分別為Command1、Command2，其標(biāo)題分別為增添、統(tǒng)計(jì)。在程序運(yùn)行時(shí)，向Text1中輸入字符，單擊增添按鈕后，則將Text1中的內(nèi)容作為一個(gè)列表項(xiàng)被增添到組合框的列表中；單擊統(tǒng)計(jì)按鈕，則在窗體空白處顯示組合框中列表項(xiàng)的個(gè)數(shù)，以以下圖。請(qǐng)編寫兩個(gè)命令按鈕的Click事件過(guò)程。注意：程序中不得使用變量，也不能夠使用循環(huán)構(gòu)造。存盤時(shí)必定寄存在考生文件夾下，工程文件名儲(chǔ)藏為sjt3.v

31、bp，窗體文件名儲(chǔ)藏為sjt3.frm。*需考生編寫的程序*PrivateSubCommand1_Click()Combo1.AddItemText1EndSubPrivateSubCommand2_Click()PrintCombo1.ListCountEndSub2）在考生文件夾下有一個(gè)工程文件sjt4.vbp，其窗體以以下圖。該程序用來(lái)對(duì)在上面的文本框中輸入的英文字母串(稱為明文)加密，加密結(jié)果(稱為密文)顯示在下邊的文本框中。加密的方法為：選中一個(gè)單項(xiàng)選擇按鈕，單擊加密按鈕后，依照選中的單項(xiàng)選擇按鈕后邊的數(shù)字n，將明文中的每個(gè)字母改為它后邊的第n個(gè)字母(z后邊的字母認(rèn)為是a，Z后邊的字

32、母認(rèn)為是A)，以以下圖。窗體中已經(jīng)給出了全部控件和程序，但程序不完滿，請(qǐng)去掉程序中的說(shuō)明符，把程序中的?改為正確的內(nèi)容。注意：不得改正程序中的其余部分和控件的屬性。最后將改正后的文件按原文件名存盤。PrivateSubCommand1_Click()DimnAsInteger,kAsInteger,mAsIntegerDimcAsString,aAsStringFork=0To2IfOp1(k)ValueThenEndIfNextkm=Len(Text1.Text)a=Fork=1To?c=Mid$(Text1.Text,?,1)c=String(1,Asc(c)+n)IfczOrcZAndc

33、a(j+1)Thent=a(j+1)a(j+1)=a(j)a(j)=tEndIfNextjNextiForj=1To50ch=ch+Str(a(j)+NextjText2.Text=chEndSubPrivateSubC3_Click()Openout5.datForOutputAs#1Print#1,Text2.TextClose#1EndSub05-第07套基本操作題1）在名稱為Form1的窗體上增添一個(gè)名稱為L(zhǎng)1，標(biāo)題為業(yè)余愛(ài)好的標(biāo)簽，再增添一個(gè)名稱為Ch1的復(fù)選框數(shù)組，含3個(gè)復(fù)選框，它們的Index屬性分別為0、1、2，標(biāo)題依次為體育、音樂(lè)、美術(shù)，請(qǐng)?jiān)O(shè)置復(fù)選框的屬性，使其初始狀態(tài)以下表

34、所示：體育選中可用音樂(lè)未選中不能用美術(shù)未選中可用程序運(yùn)行后的窗體以以下圖。注意：存盤時(shí)必定寄存在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名儲(chǔ)藏為sjt1.frm?？丶?biāo)簽復(fù)選框1屬性NameCaptionCaptionIndexValue設(shè)置值L1業(yè)余愛(ài)好體育01控件復(fù)選框2復(fù)選框3屬性CaptionIndexEnabledCaptionIndex設(shè)置值音樂(lè)1False美術(shù)2（2）在名稱為Form1的窗體上增添一個(gè)名稱為Text1的文本框；再成立一個(gè)下拉菜單，菜單標(biāo)題為操作，名稱為M1，此菜單下含有兩個(gè)菜單項(xiàng)，名稱分別為Show和Hide，標(biāo)題分別為顯示、隱蔽，請(qǐng)編寫適合的事件過(guò)程

35、，使得在程序運(yùn)行時(shí)，單擊隱蔽菜單項(xiàng)，則文本框消失；單擊顯示菜單項(xiàng)，則文本框從頭出現(xiàn)，程序運(yùn)行后的窗體以以下圖。要求程序中不得使用變量，每個(gè)事件過(guò)程中只能寫一條語(yǔ)句。注意：存盤時(shí)必定寄存在考生文件夾下，工程文件名儲(chǔ)藏為sjt2.vbp，窗體文件名儲(chǔ)藏為sjt2.frm。PrivateSubHide_Click()PrivateSubShow_Click()Text1.Visible=FalseText1.Visible=TrueEndSubEndSub05-第07套簡(jiǎn)單應(yīng)用題（1）在名稱為Form1的窗體上增添一個(gè)名稱為L(zhǎng)1的標(biāo)簽，標(biāo)題為口令；增添兩個(gè)文本框，名稱分別為Text1、Text2，初

36、始內(nèi)容為空；再增添三個(gè)命令按鈕，名稱分別為C1、C2、C3，標(biāo)題分別為顯示口令、隱蔽口令、復(fù)制口令，在程序開(kāi)始運(yùn)行時(shí)，向Text1中輸入的全部字符，都顯示為*，單擊顯示口令按鈕后，在Text1中顯示全部字符，再單擊隱蔽口令后，Text1中的字符不變，但顯示的都是?，單擊復(fù)制口令后，把Text1中的實(shí)質(zhì)內(nèi)容復(fù)制到Text2中，以以下圖。要求：在屬性窗口中，將窗體的標(biāo)題改為口令窗口。成立適合的事件過(guò)程，達(dá)成上述功能。每個(gè)過(guò)程中只贊同寫一條語(yǔ)句，且不能夠使用變量。存盤時(shí)，工程文件名儲(chǔ)藏為sjt3.vbp，窗體文件名儲(chǔ)藏為sjt3.frm。*需考生編寫的程序*PrivateSubC1_Click()T

37、ext1.PasswordChar=EndSubPrivateSubC2_Click()Text1.PasswordChar=?EndSubPrivateSubC3_Click()Text2.Text=Text1.TextEndSub（2）在名稱為Form1的窗體上增添一個(gè)名稱為P1的圖片框，并利用屬性窗口把考生文件夾中的圖標(biāo)文件Open.ico放到圖片框中；再增添一個(gè)通用對(duì)話框控件，名稱為CD1，利用屬性窗口設(shè)置相應(yīng)屬性，即翻開(kāi)對(duì)話框時(shí)：標(biāo)題為翻開(kāi)文件，文件種類為Word文檔，初始文件夾為C盤根文件夾。再編寫適合的事件過(guò)程，使得程序在運(yùn)行時(shí)，單擊P1圖片框，能夠翻開(kāi)上述對(duì)話框。程序運(yùn)行后的窗

38、體以以下圖。注意：存盤時(shí)必定寄存在考生文件夾下，工程文件名儲(chǔ)藏為sjt4.vbp，窗體文件名儲(chǔ)藏為sjt4.frm。程序中不得使用任何變量。*需考生編寫的程序*PrivateSubP1_Click()CD1.ShowOpenEndSub05-第07套綜合應(yīng)用題（1）在考生文件夾下有一個(gè)工程文件sjt5.vbp，窗體上有兩個(gè)命令按鈕，標(biāo)題分別是讀數(shù)據(jù)和統(tǒng)計(jì)，請(qǐng)?jiān)鎏硪粋€(gè)名稱為L(zhǎng)abel1、標(biāo)題為回文的個(gè)數(shù)為的標(biāo)簽和一個(gè)名稱為Text1，初始內(nèi)容為空的文本框，如圖所示。程序功能以下：?jiǎn)螕糇x數(shù)據(jù)按鈕，則將考生文件夾下in5.dat文件的內(nèi)容讀到變量s中；單擊統(tǒng)計(jì)按鈕，則統(tǒng)計(jì)in5.dat文件(該文件中

39、僅含由空格間分開(kāi)的字母串)中回文的個(gè)數(shù)，并將統(tǒng)計(jì)的回文個(gè)數(shù)顯示在Text1文本框內(nèi)。(所謂回文是指順讀與倒讀都同樣的字符串，如recycer)讀數(shù)據(jù)和統(tǒng)計(jì)按鈕的Click事件過(guò)程已經(jīng)給出，請(qǐng)完滿foundhuiwen過(guò)程的功能，實(shí)現(xiàn)上述程序功能。注意：考生不得改正窗體文件中已存在的控件和程序，在結(jié)束程序運(yùn)行以前，必定先進(jìn)行統(tǒng)計(jì)，且必定用窗體右上角的封閉按鈕結(jié)束程序，否則無(wú)成績(jī)。最后，程序按原文件名存盤。Functionfoundhuiwen(pAsString)*需考生編寫的程序*IfStrReverse(p)=pThenfoundhuiwen=TrueEndFunction06-第08套基本

40、操作題（1）在名稱為Form1標(biāo)題為“選題”的窗體上畫一個(gè)復(fù)選框數(shù)組，名稱為CH1，共有四個(gè)復(fù)選框，按次序其標(biāo)題分別是“數(shù)學(xué)”、“語(yǔ)文”、“外語(yǔ)”、“計(jì)算機(jī)”，其中“語(yǔ)文”、“計(jì)算機(jī)”復(fù)選框在選中狀態(tài)下，運(yùn)行時(shí)的窗體以以下圖。請(qǐng)畫控件并設(shè)置相應(yīng)屬性。注意：存盤時(shí)必定寄存在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名為sjt1.frm。（2）在名稱為Form1的窗體上畫一個(gè)名稱為HS1的水平轉(zhuǎn)動(dòng)條，其刻度值范圍為1100；畫一個(gè)命令按鈕，名稱為C1，標(biāo)題為“搬動(dòng)轉(zhuǎn)動(dòng)框”。請(qǐng)編寫適合的事件過(guò)程，使得在運(yùn)行時(shí)，每單擊命令按鈕一次（假設(shè)單擊次數(shù)少于10次），轉(zhuǎn)動(dòng)框向右搬動(dòng)個(gè)刻度。運(yùn)行時(shí)的窗體

41、以以下圖。要求程序中不得使用變量，事件過(guò)程中只能寫一條語(yǔ)句。注意：存盤時(shí)必定寄存在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm。PrivateSubC1_Click()HS1.Value=HS1.Value+10EndSub06-第08套簡(jiǎn)單應(yīng)用題（1）在名稱為Form1的窗體上畫一個(gè)名稱為Text1的文本框，再成立一個(gè)名稱為Format的彈出式菜單，含三個(gè)菜單項(xiàng)，標(biāo)題分別為加粗、斜體、下劃線，名稱分別為M1、M2、M3。請(qǐng)編寫適合的事件過(guò)程，在運(yùn)行時(shí)當(dāng)用鼠標(biāo)右鍵單擊文本框時(shí)，彈出此菜單，選中一個(gè)菜單項(xiàng)后，則進(jìn)行菜單標(biāo)題所描繪的操作，以以下圖。注意：存盤時(shí)必定寄存在

42、考生文件夾下，工程文件名為sjt3.vbp，窗體文件名為sjt3.frm。M1_click()Text1.fontBold=trueM2_click()Text1.fontItalic=trueM3_click()Text1.fontUnderline=trueText1_MouseDown()Ifbutton=2thenPopupmenuformat（2）在考生文件夾下有一個(gè)工程文件sjt4.vbp，含有Form1和Form2兩個(gè)窗體，F(xiàn)orm1為啟動(dòng)窗體。兩個(gè)窗體上的控件如圖1所示。程序運(yùn)行后，在Form1窗體的文本框中輸入相關(guān)信息（密碼框中顯示*字符），爾后單擊提交按鈕則彈出確認(rèn)對(duì)話框（

43、即Form2窗體），并在對(duì)話框中顯示輸入的信息，如圖2所示。單擊確認(rèn)按鈕則程序結(jié)束，單擊重輸按鈕，則對(duì)話框消失，回到Form1窗體。在給出的窗體文件中已經(jīng)給出了程序，但不完滿。要求：1）把Form1的標(biāo)題改為注冊(cè)，把Form2的標(biāo)題改為確認(rèn)；2）設(shè)置適合的屬性，使Form2標(biāo)題欄上的全部按鈕消失（如圖2所示）；3）去掉程序中的說(shuō)明符，把程序中的？改為正確的內(nèi)容。注意：不能夠改正程序中的其余部分，標(biāo)題等屬性的改正只幸虧屬性窗口中的進(jìn)行。最后把改正后的文件按原文件名存盤。PrivateSubC1_Click()DimkAsIntegerForm2.?*show*Form2.PrintForm1.L

44、1.Caption;Form1.Text1Form2.PrintForm1.L2.Caption;Form1.Text2Form2.PrintForm1.L3.Caption;Form1.Text3Form2.PrintForm1.Frame1.?;：;*caption*Fork=0To1IfForm1.Op1(?).ValueThen*k*Form2.PrintForm1.Op1(k).CaptionEndIfNextkEndSubPrivateSubForm_Load()Text2.?=*passwordchar*EndSub06-第08套綜合應(yīng)用題在考生目錄下有一個(gè)工程文件sjt5.vb

45、p，其窗體上有兩個(gè)標(biāo)簽L1和L2，標(biāo)題分別為口令和贊同次數(shù)；一個(gè)命令按鈕C1，標(biāo)題為確定；兩個(gè)文本框名稱分別為Text1和Text2。其中Text1用來(lái)輸入口令（輸入時(shí)，顯示*），無(wú)初始內(nèi)容；Text2的初始內(nèi)容為3。并給出了C1的事件過(guò)程，但不完滿，要求去掉程序中的說(shuō)明符，把程序中的？改為正確的內(nèi)容，使得在運(yùn)行時(shí)，在Text1中輸入口令后，單擊確定，若是輸入的是123456則在Text1中顯示口令正確；若是輸入其余內(nèi)容，單擊確定后，彈出以以下圖的錯(cuò)誤提示對(duì)話框，并且Text2中的數(shù)字減1.最多可輸入3次口令，若3次都輸入錯(cuò)誤，則禁止再次輸入。PrivateSubC1_Click()If?=1

46、23456Then*text1.text*Text1.Text=口令正確Text1.?=*passwordchar*ElseText2.Text=Text2.Text-1IfText2.Text?Then*0*MsgBox第&(3-Text2.Text)&次口令錯(cuò)誤，請(qǐng)從頭輸入ElseMsgBox3次輸入錯(cuò)誤，請(qǐng)退出Text1.Enabled=?*false*EndIfEndIfEndSub07-第09套基本操作題1）在名稱為Form1，標(biāo)題為圖片的窗體上增添1個(gè)名稱為Image1的圖像框，其高為2500，寬為2000。請(qǐng)經(jīng)過(guò)屬性窗口設(shè)置適合屬性，將入考生文件夾下的圖片文件pic1.jpg，并

47、使圖片自動(dòng)適應(yīng)圖像框的大小(以以下圖)。注意：存盤時(shí)必定寄存在考生文件夾下，工程文件名儲(chǔ)藏為sjt1.vbp，窗體文件名儲(chǔ)藏為sjt1.frm。（2）在名稱為Form1的窗體上增添1個(gè)名稱為L(zhǎng)abel1，標(biāo)題為口令的標(biāo)簽；增添一個(gè)名稱為Text1的文本框；再增添三個(gè)命令按鈕，名稱分別為Command1、Command2、Command3，標(biāo)題分別為顯示口令、隱蔽口令、從頭輸入。程序運(yùn)行時(shí)，在Text1中輸入若干字符，單擊隱蔽口令按鈕，則只顯示與字符同樣數(shù)量的*(如圖2所示)；單擊顯示口令按鈕，則正常顯示輸入的字符(如圖1所示)，單擊從頭輸入按鈕，則消除Text1中的內(nèi)容，并把光標(biāo)定位到Text

48、1中。要求：請(qǐng)按要求增添全部控件，編寫命令按鈕的Click事件過(guò)程，程序中不得使用變量，在顯示口令、隱藏口令按鈕的事件過(guò)程中只能寫1條語(yǔ)句。存盤時(shí)必定寄存在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm。PrivateSubCommand1_Click()PrivateSubCommand2_Click()PrivateSubCommand3_Click()Text1.PasswordChar=Text1.PasswordChar=*Text1=EndSubEndSubText1.SetFocusEndSub07-第09套簡(jiǎn)單應(yīng)用題1）在考生文件夾下有一個(gè)工程文件sj

49、t3.vbp，在程序運(yùn)行時(shí)，單擊“輸入整數(shù)”按鈕，能夠從鍵盤輸入一個(gè)整數(shù)，并在窗體上顯示此整數(shù)的全部不同樣因子和因子個(gè)數(shù)。圖1是輸入53后的結(jié)果，圖2是輸入100后的結(jié)果。已經(jīng)給出了全部控件和程序，但程序不完滿。要求：請(qǐng)去掉程序中的說(shuō)明符，把程序中的？改為正確的內(nèi)容。不能夠改正程序中的其余部分，也不能夠改正控件的屬性。最后用原來(lái)的文件名儲(chǔ)藏工程文件和窗體文件。PrivateSubCommand1_Click()DimnAsIntegerCls?=InputBox（“請(qǐng)輸入一個(gè)整數(shù)”）*n*Print“因子數(shù)”；fun(n)EndSubFunctionfun(mAsInteger)DimsAsI

50、ntegerS=0Fork=1toAbs(m)/2IfmModk=?Then*0*s=s+1PrintkEndIfNextk？*fun=s*EndFunction（2）在考生文件夾下有一個(gè)工程文件sjt4.vbp。在其窗體中“待選城市”下的List1列表框中有若干個(gè)城市名稱。程序運(yùn)行時(shí)，選中List1中若干個(gè)列表項(xiàng)（如圖1所示），單擊“選中”按鈕則把選中的項(xiàng)目移到List2中，單擊“顯示”，則在Text1文本框中顯示這些城市的城市（如圖2所示）。已經(jīng)給出了全部控件和程序，但程序不完滿。要求：請(qǐng)去掉程序中的說(shuō)明符，把程序中的？改為正確的內(nèi)容，使其能正確運(yùn)行，但不能夠改正程序中的其余部分和控件屬性

51、。最后用原來(lái)的文件名儲(chǔ)藏工程文件和窗體文件。PrivateSubCommand1_Click()Dimk%Fork=List1.ListCount-1toIfList1.Selecte(k)=TrueThenList2.AddItem?List1.RemoveItem?0*step-1List1.List(k)*k*EndIfNextkEndSubPrivateSubCommand2_Click()Dimk%Text1=“已經(jīng)選中的城市有：“Fork=0toList2.ListCount-1Step1Text1=?&“&List2.List(k)*Text1.Text*NextkEndSub0

52、7-第09套綜合應(yīng)用題在考生文件夾下有一個(gè)工程文件sjt5.vbp，其窗體中有一個(gè)實(shí)心圓。程序運(yùn)行時(shí)，當(dāng)用鼠標(biāo)左鍵單擊窗體任何空白地點(diǎn)時(shí)，實(shí)心圓則向單擊地點(diǎn)直線搬動(dòng)；若用鼠標(biāo)右鍵單擊窗體，則實(shí)心圓停止搬動(dòng)。窗體文件中已經(jīng)給出了全部控件，但程序不完滿。要求：請(qǐng)去掉程序中的說(shuō)明符，把程序中的？改為正確的內(nèi)容，使其能正確運(yùn)行，不能夠改正程序的其余部分和控件屬性。最后把修改后的文件按原文件名存盤。Dimx0AsInteger,y0AsInteger,aAsSingle,radiusAsIntegerradius=Shape1.Width/2圓的半徑IfButton=LEFT_BUTTONThenx0=

53、shape1.left+radius圓心的x坐標(biāo)y0=shape1.top+radius圓心的y坐標(biāo)Ifx=x0ThenStepy=Sgn(y-y0)*50Stepx=?*0*Elsea=(y-y0)/(x-x0)stepx=sgn(x-x0)*50?=a*stepxIfabs(stepy)abs(stepx)ThenStepy=sgn(y-y0)*50Stepx=stepy/aEndifEndIf?=True斜率*stepy*Timer1.Enabled*Else?=False*Timer1.Enabled*EndifEndSubPrivateSubTimer1_Timer()Shape1.

54、MoveShape1.Left+stepx,Shape1.Top+?EndSub*stepy*08-第10套基本操作題（1）在名稱為Form1的窗體上增添一個(gè)名稱為Shape1的形狀控件，經(jīng)過(guò)設(shè)置參數(shù)使其形狀為圓形；增添一個(gè)名稱為L(zhǎng)abel1的標(biāo)簽，標(biāo)題為形狀，標(biāo)簽的大小能夠依照標(biāo)簽內(nèi)容的字?jǐn)?shù)、大小而定；增添一個(gè)名稱為的文本框，文本框最多能夠顯示5個(gè)字符，文本框中初使內(nèi)容為圓形，以以下圖。注意：存盤時(shí)，將文件儲(chǔ)藏至考生文件夾下，且窗體文件名為sjt1.frm，工程文件名為sjt1.vbp。Text1（2）在名稱為Form1的窗休上增添一個(gè)名稱為L(zhǎng)abel1的標(biāo)簽，字號(hào)大小為四號(hào)，標(biāo)題為等級(jí)考試

55、，如圖1所示。經(jīng)過(guò)設(shè)置屬性使標(biāo)簽初始為不顯示。請(qǐng)編寫適合的程序，使得運(yùn)行程序時(shí)，窗體的標(biāo)題立刻變?yōu)闃?biāo)簽，單擊窗體時(shí)，顯示標(biāo)簽，如圖2所示。注意：存盤時(shí)，將文件儲(chǔ)藏至考生文件夾下，且窗體文件名儲(chǔ)藏為sjt2.frm，工程文件名儲(chǔ)藏為sjt2.vbp。要求程序中不得使用變量，每個(gè)事件過(guò)程中只能寫一條語(yǔ)句。PrivateSubForm_Click()Label1.Visible=TrueEndSubPrivateSubForm_Load()Form1.Caption=標(biāo)簽EndSub08-第10套簡(jiǎn)單應(yīng)用題（1）考生文件夾中有工程文件sjt3.vbp。窗體上出名稱為L(zhǎng)abel1、標(biāo)題為“標(biāo)簽控件”的

56、標(biāo)簽；有一個(gè)名稱為Command1、標(biāo)題為“命令按鈕”的命令按鈕。單擊上述兩控件中任一控件，則在標(biāo)簽Label2中顯示所單擊控件的標(biāo)題內(nèi)容（標(biāo)題內(nèi)容前有“單擊”二字），以以下圖是單擊命令按鈕后的窗體外觀。請(qǐng)去掉程序中的說(shuō)明符，把程序中的？改為正確的內(nèi)容。注意：考生不得改正窗體文件中已經(jīng)存在的控件和程序，最后程序按原文件名存盤。PrivateSubCommand1_Click()CallShowName(？)EndSubPrivateSubLabel1_Click()CallShowName(？)EndSubPrivateSubShowName(cAs？)IfTypeOfcIsCommandBu

57、ttonThen*Command1*Label1*Control*Label2.Caption=單擊&Command1.CaptionEndIfIfTypeOfcIsLabelThen？=單擊&Label1.Caption*Label2.Caption*EndIfEndSub（2）在考生文件夾下有一個(gè)工程文件sjt4.vbp。其窗體上有一個(gè)由八個(gè)圖片框控件組成的控件數(shù)組、兩個(gè)命令按鈕及一個(gè)計(jì)時(shí)器控件，如圖1所示。程序功能：將計(jì)時(shí)器控件設(shè)置為每隔0.5秒觸發(fā)一次。運(yùn)行程序時(shí)，只顯示下標(biāo)為0的圖片框控件數(shù)組元素，其它圖片框均不顯示。單擊“開(kāi)始”按鈕，數(shù)組中的每個(gè)圖片框自左至右依次顯示，時(shí)間間隔為0

58、.5秒，產(chǎn)生月亮從左向右搬動(dòng)的收效，如圖2所示。月亮移到右端后再?gòu)淖蠖藦念^開(kāi)始。單擊“停止”按鈕，月亮停止搬動(dòng)。要求：去掉程序中的說(shuō)明符，把程序中的？改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能夠改正程序中的其余部分。最后把改正后的文件按原文件名存盤。PrivateSubForm_Load()Picture1(0)Left=0Picture1(0)Top=100Fork=1To7Picture1(k)Visible=？*False*NextEndSubPrivateSubCommand1_Click()Timer1.Enabled=？*True*EndSubPrivateSubCommand2_C

59、lick()Timer1.Enabled=FalseEndSubPrivateSubTimer1_Timer()StaticiAsIntegerPicture1(i)Visible=Falsei=i+1Ifi=?Then*8*i=？*0*EndIfPicture1(i)Visible=TrueEndSub08-第10套綜合應(yīng)用題考生文件夾下有一個(gè)工程文件sjt5.vbp。運(yùn)行程序后，從文件中讀出數(shù)據(jù)，放入5X5的二維數(shù)組a中。請(qǐng)編寫程序，找出a數(shù)組中每行的最大值及該值行家中的序次（即列下標(biāo)），并將所找到的結(jié)果分別儲(chǔ)藏到一維數(shù)組b、c中（a第一行的最大值儲(chǔ)藏在b(1)中，最大值的列序次儲(chǔ)藏在c(

60、1)中）。注意：不能夠改正程序的其余部分和控件屬性。最后把改正后的文件按原文件名存盤。程序調(diào)試通事后，命令按鈕的事件過(guò)程必定至少履行一次。Dima(5,5)AsIntegerDimb(5)AsIntegerDimc(5)AsIntegerPrivateSubCommand1_Click()N=5Fori=1ToN考生編寫程序開(kāi)始Max=a(i,1)Forj=1To5IfMaxa(i,j)ThenMax=a(i,j)EndIfb(i)=MaxIfMax=a(i,j)Thenc(i)=jNextj考生編寫程序結(jié)束NextiSaveEndSub09-第13套基本操作題（1）在名稱為Form1的窗體上