王老師重點50套操作題

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

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

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

4、盤。PrivateSubOp1_Click(IndexAsInteger)DimaAsString,bAsString,cAsStringa=我坐b=我開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）在考生文件夾下有一個工程文件sjt4.vbp，F(xiàn)orm1窗體中有一個文本框，名稱為Text1；請在窗體上增添兩個框架控件，名稱分別為F1、F2，標

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

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

7、，n是選中的單項選擇按鈕后邊的數(shù)值。(提示：因計算結果較大，應使用長整型變量。)注意：不能夠改正已經(jīng)給出的程序和已有的控件的屬性；在結束程序運行以前，必定選中一個單項選擇按鈕，并單擊計算按鈕獲得一個結果；必定使用窗體右上角的封閉按鈕結束程序，否則無成績。最后把改正后的文件按原文件名存盤。PrivateSubCommand1_Click(),*請考生編寫程序*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的窗體上增添一個名稱為L1的標簽，標簽上標題為請輸入密碼，增添一個名稱為Text1的文本框，其寬、高分別為2000和300，設置適合的屬性，使得在輸入密碼時，文本框中顯示為*字符，其余再把窗體的標題設置為密碼窗口，以上這些設置都必定在屬性窗口中進行，程序運行時的窗體以以下圖。注意：存盤時必定寄存在考生文件夾下，工程文件名儲藏為sjt1.vbp，窗體文件名儲藏為sjt1.frm。在窗體中增添一個標簽，名稱設置為L1，將標簽的Caption屬性設置為請輸入密碼。爾后再增添一個文本框，設置其名稱為Text1,爾后設置其Height屬性為30

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

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

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）在考生文件夾下有一個工程文件sjt4.vbp，運行情況以以下圖。程序的功能是計算以下表達式的值：其中的N和x的值經(jīng)過鍵

12、盤分別輸入到文本框Text1、Text2中。此后若是單擊標題為計算、名稱為Command1的命令按鈕，則計算表達式的值z，并將計算結果顯示在名稱為Label1的標簽中。在給出的窗體文件中已經(jīng)增添了全部控件和程序，但程序不完滿。要求去掉程序中的說明符，把程序中的?改為正確的內(nèi)容。：程序中不得使用運算符，而應注意考生不得改正窗體文件中已經(jīng)存在的程序。使用函數(shù)xn進行冪運算。程序最少運行一次，依照以以下圖輸入數(shù)據(jù)，使x=10，N=5，單擊計算按鈕，計算z的值，并將結果顯示在標簽Label1中，否則沒有成績。最后，程序按原文件名存盤。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、合應用題在考生文件夾中有一個工程文件sjt5.vbp。該程序的功能是從in5.txt文件中讀入40個數(shù)據(jù)，統(tǒng)計這些數(shù)據(jù)中素數(shù)的個數(shù)，并找出全部素數(shù)中最小的素數(shù)(判斷素數(shù)的函數(shù)已給出)。最后將查找和統(tǒng)計的結果分別顯示在標簽Label4和Label3中(窗體外觀如圖所示)。程序不完滿，請在指定的地點把程序補充完滿。注意：不得改正原有程序和控件的屬性。在結束程序運行以前，必定最少正確運行一次程序，將統(tǒng)計的結果顯示在標簽中，否則無成績。最后把改正后的文件按原文件名存盤。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(),*請考生編寫程序*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*考生編寫程序結束*OpenApp.Path&out5.txtForOutputAs#1Print#1,Label3.Caption,Label4.CaptionClose#1EndSub03-第03套基本操作題（1）在名稱為Form1的窗體上增添兩個名稱分別為Text1和Text2的文本框，它們的高、寬分別為300、2400和1200、2400。窗體的標題為窗口。請經(jīng)過屬性窗口設置適合的屬性，知足以下要求：Text2能夠顯示多行文本，并且有垂直和水平兩個

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

18、屬性窗口設置圖像框的適合屬性，使得在放大、減小圖像框時，其中的圖像也自動放大、減小。注意：存盤時必定寄存在考生文件夾下，工程文件名儲藏為sjt2.vbp，窗體文件名儲藏為控件圖像框屬性NameWidthHeightPictureStretch設置值Image117001900pic1.bmpTruesjt2.frm。控件命令按鈕1命令按鈕2屬性NameCaptionNameCaption設置值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套簡單應用題（1）在考生文件夾下有一個工程文件sjt3.vbp，其功能是：單擊讀數(shù)據(jù)按鈕，則將考生文件夾下in3.dat文件中的100個0到999之間的整數(shù)讀入到數(shù)組a中；單擊計算按鈕，則找出這100個整數(shù)中的全部水仙花數(shù)，并將它們的最大值與最小值分別顯示在文本框Text1、Text2中。(注：當一個數(shù)的值等于該數(shù)中的各位數(shù)字的立方和時，此數(shù)被稱為水仙花數(shù)。如：153135333所以153就是一個水仙花數(shù))在窗體文件中已經(jīng)給出了

20、全部控件(以以下圖)和讀數(shù)據(jù)命令按鈕的事件過程以及判斷一個數(shù)可否為水仙花數(shù)的通用過程。要求編寫計算命令按鈕的事件過程。注意：考生不得改正窗體文件中已經(jīng)存在的控件和程序，在結束程序運行前，必定進行計算，并且必定通過單擊窗體右上角的封閉按鈕結束程序，否則無成績。最后，程序按原文件名存盤。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過程用于判斷某數(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）在考生文件夾下有一個工程文件sjt4.vbp。請在窗體上增添一個組合框，名稱為項：3、7、11(列表項的次序不限，但必定是這3個數(shù)字)；增添一個名為Text1的文本框；再增添一個標題為計算、名稱為C1的命令按鈕。以以下圖。請編寫適合的事件過程，使得在程序運行時，在組合框中選定一個數(shù)字后，單擊計算按鈕，則計算5000以內(nèi)能夠被該數(shù)整

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

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

25、的文本框中的內(nèi)容此后。注意：不能夠改正程序中的其余部分。各菜單項的標題名稱必定正確。最后將改正后的文件按原文件名存盤。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()本過程的作用是：當焦點在Text1中時，which=1which=1EndSubPrivateSubText2_GotFocus()本過程的作用是：當焦點在Text2中時，which=2which=2EndSub04-第04套基

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

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

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

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

32、母認為是A)，以以下圖。窗體中已經(jīng)給出了全部控件和程序，但程序不完滿，請去掉程序中的說明符，把程序中的?改為正確的內(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的窗體上增添一個名稱為L1，標題為業(yè)余愛好的標簽，再增添一個名稱為Ch1的復選框數(shù)組，含3個復選框，它們的Index屬性分別為0、1、2，標題依次為體育、音樂、美術，請設置復選框的屬性，使其初始狀態(tài)以下表

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

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

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

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

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

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

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

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

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

43、即Form2窗體），并在對話框中顯示輸入的信息，如圖2所示。單擊確認按鈕則程序結束，單擊重輸按鈕，則對話框消失，回到Form1窗體。在給出的窗體文件中已經(jīng)給出了程序，但不完滿。要求：1）把Form1的標題改為注冊，把Form2的標題改為確認；2）設置適合的屬性，使Form2標題欄上的全部按鈕消失（如圖2所示）；3）去掉程序中的說明符，把程序中的？改為正確的內(nèi)容。注意：不能夠改正程序中的其余部分，標題等屬性的改正只幸虧屬性窗口中的進行。最后把改正后的文件按原文件名存盤。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套綜合應用題在考生目錄下有一個工程文件sjt5.vb

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

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

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

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

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

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

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

53、shape1.left+radius圓心的x坐標y0=shape1.top+radius圓心的y坐標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的窗體上增添一個名稱為Shape1的形狀控件，經(jīng)過設置參數(shù)使其形狀為圓形；增添一個名稱為Label1的標簽，標題為形狀，標簽的大小能夠依照標簽內(nèi)容的字數(shù)、大小而定；增添一個名稱為的文本框，文本框最多能夠顯示5個字符，文本框中初使內(nèi)容為圓形，以以下圖。注意：存盤時，將文件儲藏至考生文件夾下，且窗體文件名為sjt1.frm，工程文件名為sjt1.vbp。Text1（2）在名稱為Form1的窗休上增添一個名稱為Label1的標簽，字號大小為四號，標題為等級考試

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

56、標簽；有一個名稱為Command1、標題為“命令按鈕”的命令按鈕。單擊上述兩控件中任一控件，則在標簽Label2中顯示所單擊控件的標題內(nèi)容（標題內(nèi)容前有“單擊”二字），以以下圖是單擊命令按鈕后的窗體外觀。請去掉程序中的說明符，把程序中的？改為正確的內(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）在考生文件夾下有一個工程文件sjt4.vbp。其窗體上有一個由八個圖片框控件組成的控件數(shù)組、兩個命令按鈕及一個計時器控件，如圖1所示。程序功能：將計時器控件設置為每隔0.5秒觸發(fā)一次。運行程序時，只顯示下標為0的圖片框控件數(shù)組元素，其它圖片框均不顯示。單擊“開始”按鈕，數(shù)組中的每個圖片框自左至右依次顯示，時間間隔為0

58、.5秒，產(chǎn)生月亮從左向右搬動的收效，如圖2所示。月亮移到右端后再從左端從頭開始。單擊“停止”按鈕，月亮停止搬動。要求：去掉程序中的說明符，把程序中的？改為正確的內(nèi)容，使其實現(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套綜合應用題考生文件夾下有一個工程文件sjt5.vbp。運行程序后，從文件中讀出數(shù)據(jù)，放入5X5的二維數(shù)組a中。請編寫程序，找出a數(shù)組中每行的最大值及該值行家中的序次（即列下標），并將所找到的結果分別儲藏到一維數(shù)組b、c中（a第一行的最大值儲藏在b(1)中，最大值的列序次儲藏在c(

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