vb操作題分解

1、精選優(yōu)質(zhì)文檔-傾情為你奉上01-第01套 基本操作題（1）在名稱為Forml的窗體上添加一個名稱為H1水平滾動條，請在屬性窗口中設(shè)置它的屬性值，滿足下列要求：它的最小刻度值為1，最大刻度值為100，在程序運行時鼠標(biāo)單擊滾動條上滾動框以外的區(qū)域(不包括兩邊按鈕)，滾動框移動10個刻度。再在滾動條下面畫兩個名稱分別為L1、L2的標(biāo)簽，并分別顯示1、100，運行時的窗體如圖所示。 注意：存盤時必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名為sjt1.frm。 （2）在名稱為Form1的窗體上添加兩個名稱分別為Text1和Text2的文本框，初始內(nèi)容均為空；再建立一個下拉菜單，菜單標(biāo)

2、題為操作，名稱為M1，此菜單下含有兩個菜單項，名稱分別為Copy和Clear，標(biāo)題分別為復(fù)制、清除，請編寫適當(dāng)?shù)氖录^程，使得在程序運行時，單擊復(fù)制選項菜單，則把Text1中的內(nèi)容復(fù)制到Text2中，單擊清除選項菜單，則清除Text2中的內(nèi)容(即在Text2中填入空字符串)。運行時的窗體如圖所示。要求在程序中不得使用任何變量，每個事件過程中只能寫一條語句。 注意：存盤時必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm。 Private Sub Clear_Click() Text2.Text = End SubPrivate Sub Copy_Click()

3、Text2.Text = Text1.TextEnd Sub01-第01套 簡單應(yīng)用題（1）在考生文件夾下有一個工程文件sjt3.vbp，窗體上已經(jīng)有一個標(biāo)簽Label1，請?zhí)砑右粋€單選按鈕數(shù)組，名稱為Op1，含三個單選按鈕，它們的Index屬性分別為0、1、2，標(biāo)題依次為飛機、火車、汽車，再添加一個名稱為Text1的文本框。窗體文件中已經(jīng)給出了Op1的Click事件過程，但不完整，要求去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使得在程序運行時單擊飛機或火車單選按鈕時，在Text1中顯示我坐飛機去或我坐火車去，單擊汽車單選按鈕時，在Text1中顯示我開汽車去，如圖所示。 注意：不能修改程

4、序中的其他部分。最后將修改后的文件按原文件名存盤。 Private Sub Op1_Click(Index As Integer) Dim a As String, b As String, c As String a = 我坐 b = 我開 Select Case ? * Index * Case 0 Text1.Text = a + Me.Op1(0).Caption + 去 Case 1 Text1.Text = ? + Me.Op1(1).Caption + 去 * a * Case 2 Text1.Text = b + Me.Op1(2).Caption + 去 End Select

5、End Sub（2）在考生文件夾下有一個工程文件sjt4.vbp，F(xiàn)orm1窗體中有一個文本框，名稱為Text1；請在窗體上添加兩個框架控件，名稱分別為F1、F2，標(biāo)題分別為性別、身份；在F1中添加兩個單選按鈕控件Op1、Op2，標(biāo)題分別為男、女；在F2中添加兩個單選按鈕控件Op3、Op4，標(biāo)題分別為學(xué)生、教師；再添加一個命令按鈕，名稱為C1，標(biāo)題為確定。如圖所示。請編寫適當(dāng)?shù)氖录^程，使得在運行時，在F1、F2中各選一個單選按鈕，然后單擊確定按鈕，就可以按照下表把結(jié)果顯示在文本框中。 性別 身份 在文本框中顯示的內(nèi)容 男 學(xué)生 我是男學(xué)生 男 教師 我是男教師 女 學(xué)生 我是女學(xué)生 女 教師

6、 我是女教師 最后把修改后的文件以原來的文件名存盤。 注意：考生不得修改窗體文件中已經(jīng)存在的程序和Text1的屬性，在結(jié)束程序運行之前，必須進行能夠產(chǎn)生上表中一個結(jié)果的操作。必須用窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無成績。 * 請考生編寫程序 *If op1 and op3 then Text1=”我是男學(xué)生”If op1 and op4 then Text1=”我是男教師”If op2 and op3 then Text1=”我是女學(xué)生”If op2 and op4 then Text1=”我是女教師”01-第01套 綜合應(yīng)用題以下數(shù)列：1，1，2，3，5，8，13，21，的規(guī)律是從第3個數(shù)

7、開始，每個數(shù)都是其前面兩個數(shù)之和。 在考生文件夾下有一個工程文件sjt5.vbp。窗體中已經(jīng)給出了所有控件，如圖所示。請編寫適當(dāng)?shù)氖录^程完成如下功能：選中一個單選按鈕后，單擊計算按鈕，則計算出上述數(shù)列的第n項的值，并在文本框中顯示，n是選中的單選按鈕后面的數(shù)值。(提示：因計算結(jié)果較大，應(yīng)使用長整型變量。) 注意：不能修改已經(jīng)給出的程序和已有的控件的屬性；在結(jié)束程序運行之前，必須選中一個單選按鈕，并單擊計算按鈕獲得一個結(jié)果；必須使用窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無成績。最后把修改后的文件按原文件名存盤。Private Sub Command1_Click() * 請考生編寫程序 *Dim

8、a(35) As LongIf op1(0) then n=30If op1(1) then n=33If op1(2) then n=35 a(1) = 1 a(2) = 1 For i = 3 To n a(i) = a(i - 1) + a(i - 2) Next Text1.Text = a(n)End Sub02-第02套 基本操作題（1）在名稱為Form1的窗體上添加一個名稱為L1的標(biāo)簽，標(biāo)簽上標(biāo)題為請輸入密碼，添加一個名稱為Text1的文本框，其寬、高分別為2000和300，設(shè)置適當(dāng)?shù)膶傩裕沟迷谳斎朊艽a時，文本框中顯示為*字符，此外再把窗體的標(biāo)題設(shè)置為密碼窗口，以上這些設(shè)置都必

9、須在屬性窗口中進行，程序運行時的窗體如圖所示。 注意：存盤時必須存放在考生文件夾下，工程文件名保存為sjt1.vbp，窗體文件名保存為sjt1.frm。 在窗體中添加一個標(biāo)簽，名稱設(shè)置為L1，將標(biāo)簽的Caption屬性設(shè)置為請輸入密碼。然后再添加一個文本框，設(shè)置其名稱為Text1,然后設(shè)置其Height屬性為300，設(shè)置其Width屬性為2000，設(shè)置其PasswordChar屬性為*。最后將Form1的Caption屬性設(shè)置為密碼窗口。（2）在名稱為Form1的窗體上添加一個名稱為P1的圖片框，請編寫適當(dāng)?shù)氖录^程，使得程序在運行時，每單擊一次圖片框，就在圖片框中輸出單擊圖片框，每單擊圖片框

10、外的窗體一次，就在窗體中輸出單擊窗體，運行時的窗體如圖所示。要求在程序中不得使用變量，每個事件過程中只能寫一條語句。 注意：存盤時必須存放在考生文件夾下，工程文件名保存為sjt2.vbp，窗體文件名保存為sjt2.frm。 Private Sub Form_Click() Form1.Print 單擊窗體End SubPrivate Sub P1_Click() P1.Print 單擊圖片框End Sub02-第02套 簡單應(yīng)用題（1）在考生文件夾下有一個工程文件sjt3.vbp，窗體中有兩個圖片框，名稱分別為P1、P2，其中的圖片內(nèi)容分別是一架航天飛機和一朵云彩，一個命令按鈕，名稱為C1，標(biāo)

11、題為發(fā)射，還有一個計時器，名稱為Timer1。并給出了兩個事件過程，但并不完整，要求：設(shè)置Timer1的屬性，使其在初始狀態(tài)下不計時；設(shè)置Timer1的屬性，使其每隔0.1秒調(diào)用Timer事件過程一次。去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使得在運行時單擊發(fā)射按鈕，則航天飛機每隔0.1秒向上移動一次，當(dāng)?shù)竭_P2的下方時停止移動，如圖所示。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。Private Sub C1_Click()Timer1.Enabled = ? * True *End SubPrivate Sub Timer1_Timer()Static a%a

12、 = a =+1If P1.Top P2.Top P2.? Then * Height *P1.Move P1.Left, P1.Top - 5 - a, P1.Width, P1.HeightElseTimer1.Enabled = ? * False *End IfEnd Sub（2）在考生文件夾下有一個工程文件sjt4.vbp，運行情況如圖所示。程序的功能是計算下列表達式的值： 其中的N和x的值通過鍵盤分別輸入到文本框Text1、Text2中。之后如果單擊標(biāo)題為計算、名稱為Command1的命令按鈕，則計算表達式的值z，并將計算結(jié)果顯示在名稱為Label1的標(biāo)簽中。 在給出的窗體文件中已

13、經(jīng)添加了全部控件和程序，但程序不完整。要求去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。 注意：考生不得修改窗體文件中已經(jīng)存在的程序。程序中不得使用運算符，而應(yīng)使用函數(shù)xn進行冪運算。程序至少運行一次，按照下圖輸入數(shù)據(jù)，使x=10，N=5，單擊計算按鈕，計算z的值，并將結(jié)果顯示在標(biāo)簽Label1中，否則沒有成績。最后，程序按原文件名存盤。Private Function xn(a As Single, m As Integer)Dim i As Integertmp = 1For i = 1 To mtmp = ? * tmp*a *Nextxn = ? * tmp *End Functio

14、nPrivate Sub Command1_Click()Dim n As IntegerDim i As IntegerDim t As SingleDim s, x As Singlen = Val(Text1.Text)x = Val(Text2.Text)z = 0For i = 2 To nt = x + iz = z +？ * xn(t,i) *NextLabel1.Caption = ? * z *Call SaveResultEnd SubPrivate Sub SaveResult()Open App.Path & out4.dat For Output As #1Print

15、 #1, Label1.CaptionClose #1End Sub02-第02套 綜合應(yīng)用題在考生文件夾中有一個工程文件sjt5.vbp。該程序的功能是從in5.txt文件中讀入40個數(shù)據(jù)，統(tǒng)計這些數(shù)據(jù)中素數(shù)的個數(shù)，并找出所有素數(shù)中最小的素數(shù)(判斷素數(shù)的函數(shù)已給出)。最后將查找和統(tǒng)計的結(jié)果分別顯示在標(biāo)簽Label4和Label3中(窗體外觀如圖所示)。程序不完整，請在指定的位置把程序補充完整。 注意：不得修改原有程序和控件的屬性。在結(jié)束程序運行之前，必須至少正確運行一次程序，將統(tǒng)計的結(jié)果顯示在標(biāo)簽中，否則無成績。最后把修改后的文件按原文件名存盤。 Private arr(100) As In

16、tegerPublic Function prime(x As Integer)k = Int(Sqr(x) + 5)For i = 2 To kIf x Mod i = 0 Thenprime = FalseExit FunctionEnd IfNextprime = TrueEnd FunctionPrivate Sub Command1_Click()Open App.Path & in5.txt For Input As #1For i = 1 To 40Input #1, arr(i)NextClose #1End SubPrivate Sub Command2_Click() *

17、請考生編寫程序 * Dim a As Integer Dim b As Integer a = 0 b = arr(1) For i = 1 To 40 If prime(arr(i) Then a = a + 1 Label3.Caption = a Next For i = 1 To 40 If prime(arr(i) And arr(i) = b Then b = arr(i) Label4.Caption = b Next* 考生編寫程序結(jié)束 *Open App.Path & out5.txt For Output As #1Print #1, Label3.Caption, Lab

18、el4.CaptionClose #1End Sub03-第03套 基本操作題（1）在名稱為Form1的窗體上添加兩個名稱分別為Text1和Text2的文本框，它們的高、寬分別為300、2400和1200、2400。窗體的標(biāo)題為窗口。請通過屬性窗口設(shè)置適當(dāng)?shù)膶傩?，滿足如下要求： Text2可以顯示多行文本，并且有垂直和水平兩個滾動條； 程序運行時在Text1中顯示輸入的字符為*。 程序運行后的窗體如圖所示。 注意：存盤時必須存放在考生文件夾下，工程文件名保存為sjt1.vbp，窗體文件名保存為sjt1.frm。 （2）在名稱為Form1的窗體上添加一個名稱為Image1的圖像框，其高、寬分別為

19、1900、1700，通過屬性窗口把考生文件夾下的圖像文件pic1.bmp載入圖像框；再畫兩個命令按鈕控件，名稱分別為C1、C2，標(biāo)題分別為放大、縮小，如圖所示。 要求： 請編寫適當(dāng)?shù)氖录^程，程序運行后，如果單擊放大按鈕，則將圖像框的高度、寬度均增加100；單擊縮小按鈕，則將圖像框的高度、寬度均減少100。要求程序中不得使用任何變量。 通過屬性窗口設(shè)置圖像框的適當(dāng)屬性，使得在放大、縮小圖像框時，其中的圖像也自動放大、縮小。 注意：存盤時必須存放在考生文件夾下，工程文件名保存為sjt2.vbp，窗體文件名保存為sjt2.frm。 控件圖像框?qū)傩訬ameWidthHeightPictureStre

20、tch設(shè)置值Image117001900pic1.bmpTrue控件命令按鈕1命令按鈕2屬性NameCaptionNameCaption設(shè)置值C1放大C2縮小Private Sub C1_Click() Image1.Height = Image1.Height + 100 Image1.Width = Image1.Width + 100End SubPrivate Sub C2_Click() Image1.Height = Image1.Height - 100 Image1.Width = Image1.Width - 100End Sub03-第03套 簡單應(yīng)用題（1）在考生文件夾下

21、有一個工程文件sjt3.vbp，其功能是： 單擊讀數(shù)據(jù)按鈕，則將考生文件夾下in3.dat文件中的100個0到999之間的整數(shù)讀入到數(shù)組a中； 單擊計算按鈕，則找出這100個整數(shù)中的所有水仙花數(shù)，并將它們的最大值與最小值分別顯示在文本框Text1、Text2中。(注：當(dāng)一個數(shù)的值等于該數(shù)中的各位數(shù)字的立方和時，此數(shù)被稱為水仙花數(shù)。如：所以153就是一個水仙花數(shù)) 在窗體文件中已經(jīng)給出了全部控件(如圖所示)和讀數(shù)據(jù)命令按鈕的事件過程以及判斷一個數(shù)是否為水仙花數(shù)的通用過程。要求編寫計算命令按鈕的事件過程。 注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，在結(jié)束程序運行前，必須進行計算，并且必須通

22、過單擊窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無成績。最后，程序按原文件名存盤。Dim a(100) As IntegerPrivate Sub Command1_Click()Dim k As IntegerOpen App.Path & in3.dat For Input As #1For k = 1 To 100Input #1, a(k)Next kClose #1End SubPrivate Sub Command2_Click() * 需考生編寫的程序 * Dim i As Integer Dim max As Integer, min As Integer max = -1 min =

23、 1000 For i = 1 To 100 If isnarc(a(i) Then If max = a(i) Then min = a(i) End If Next i Text1 = max Text2 = minEnd Sub以下Function 過程用于判斷某數(shù)是否為水仙花數(shù)Function isnarc(p As Integer)x = Fix(p / 100)y = Fix(p - x * 100) / 10)z = p - x * 100 - y * 10If p = x 3 + y 3 + z 3 Thenisnarc = TrueElseisnarc = FalseEnd

24、IfEnd FunctionPrivate Sub Form Unload(Cancel As Integer)Open App.Path & out3.dat For Output As #1Print #1, Val(Text1.Text)Print #1, Val(Text2.Text)Close #1End Sub（2）在考生文件夾下有一個工程文件sjt4.vbp。請在窗體上添加一個組合框，名稱為cb1，并輸入三個列表項：3、7、11(列表項的順序不限，但必須是這3個數(shù)字)；添加一個名為Text1的文本框；再添加一個標(biāo)題為計算、名稱為C1的命令按鈕。如圖所示。請編寫適當(dāng)?shù)氖录^程，使得

25、在程序運行時，在組合框中選定一個數(shù)字后，單擊計算按鈕，則計算5000以內(nèi)能夠被該數(shù)整除的所有數(shù)之和，并放入Text1中。最后，按原文件名存盤。提示：由于計算結(jié)果較大，應(yīng)使用長整型變量。 注意：考生不得修改窗體文件中已經(jīng)存在的程序，在結(jié)束程序運行之前，必須至少進行一次計算。并且必須用窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無成績。Private Sub C1_Click()* 需考生編寫的程序 * Dim sum As Long Dim n As Integer Dim i As Integer n = Val(Cb1.Text) For i = n To 5000 If i Mod n = 0 Th

26、en sum = sum + i End If Next i Text1.Text = sumEnd Sub03-第03套 綜合應(yīng)用題在考生文件夾下有一個工程文件sjt5.vbp，其名稱為Form1的窗體上已有三個文本框Text1、Text2、Text3，以及部分程序代碼。請完成以下工作： 在屬性窗口中修改Text3的適當(dāng)屬性，使其在運行時不顯示，作為模擬的剪貼板使用。窗體如圖所示； 建立下拉式菜單，如下表所示:標(biāo)題 名稱 編輯 Edit 剪切 Cut 復(fù)制 Copy 粘貼 Paste 窗體文件中給出了所有事件過程，但不完整，請去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。以便實現(xiàn)如下功能：

27、當(dāng)光標(biāo)所在的文件框中無內(nèi)容時，剪切、復(fù)制不可用，否則可以把該文本框中的內(nèi)容剪切或復(fù)制到Text3中；若Text3中無內(nèi)容，則粘貼不能用，否則可以把Text3中的內(nèi)容粘貼在光標(biāo)所在的文本框中的內(nèi)容之后。 注意：不能修改程序中的其他部分。各菜單項的標(biāo)題名稱必須正確。最后將修改后的文件按原文件名存盤。 Dim which As IntegerPrivate Sub copy_Click()If which = 1 ThenText3.Text = Text1.TextElseIf which = 2 ThenText3.Text = Text2.TextEnd IfEnd SubPrivate Su

28、b cut_Click()If which = 1 ThenText3.Text = Text1.TextText1.Text = ElseIf which = 2 ThenText3.Text = Text2.TextText2.Text = End IfEnd SubPrivate Sub edit_Click()If which = ? Then * 1 *If Text1.Text = Thencut.Enabled = FalseCopy.Enabled = FalseElsecut.Enabled = TrueCopy.Enabled = TrueEnd IfElseIf whic

29、h = ? Then * 2 *If Text2.Text = Thencut.Enabled = FalseCopy.Enabled = FalseElsecut.Enabled = TrueCopy.Enabled = TrueEnd IfEnd IfIf Text3.Text = ThenPaste.Enabled = FalseElsePaste.Enabled = TrueEnd IfEnd SubPrivate Sub paste_Click()If which = 1 Then Text1.Text = ? * Text1.Text+Text3.Text *ElseIf whic

30、h = 2 Then Text2.Text = ? * Text2.Text+Text3.Text *End IfEnd SubPrivate Sub Text1_GotFocus() 本過程的作用是：當(dāng)焦點在Text1中時，which = 1which = 1End SubPrivate Sub Text2_GotFocus() 本過程的作用是：當(dāng)焦點在Text2中時，which = 2which = 2End Sub04-第04套 基本操作題（1）在名稱為Form1的窗體上添加一個名稱為Command1的命令按鈕，標(biāo)題為打開文件，再添加一個名稱為CD1的通用對話框。程序運行后，如果單擊命令

31、按鈕，則彈出打開文件對話框，請按下列要求設(shè)置屬性和編寫代碼： 設(shè)置適當(dāng)屬性，使對話框的標(biāo)題為打開文件； 設(shè)置適當(dāng)屬性，使對話框的文件類型下拉式組合框中有兩項可供選擇：文本文件、所有文件(如圖所示)，默認(rèn)的類型是所有文件； 編寫命令按鈕的事件過程，使得單擊按鈕可以彈出打開文件對話框。 要求：程序中不得使用變量，事件過程中只能寫一條語句。 注意：存盤時必須存放在考生文件夾下，工程文件名保存為sjt1.vbp，窗體文件名保存為sjt1.frm。 Private Sub Command1_Click() CD1.ShowOpenEnd Sub（2）在名稱為Form1的窗體上添加一個名稱為Command

32、1的命令按鈕，其標(biāo)題為移動本按鈕，如圖所示。 要求編寫適當(dāng)?shù)氖录^程，使得程序運行時，每單擊按鈕一次，按鈕向左移動100。 要求：程序中不得使用變量，事件過程中只能寫一條語句。 注意：存盤時必須存放在考生文件夾下，工程文件名保存為sjt2.vbp，窗體文件名保存為sjt2.frm。 Private Sub Command1_Click() Command1.Left = Command1.Left - 100End Sub04-第04套 簡單應(yīng)用題（1）在名稱為Form1的窗體上添加一個名稱為Label1、標(biāo)題為添加項目：的標(biāo)簽；添加一個名稱為Text1的文本框，初始內(nèi)容為空；添加一個名稱為C

33、ombo1的下拉式組合框，并通過屬性窗口輸入若干項目(不少于3個，內(nèi)容任意)；再添加兩個命令按鈕，名稱分別為Command1、Command2，其標(biāo)題分別為添加、統(tǒng)計。在程序運行時，向Text1中輸入字符，單擊添加按鈕后，則將Text1中的內(nèi)容作為一個列表項被添加到組合框的列表中；單擊統(tǒng)計按鈕，則在窗體空白處顯示組合框中列表項的個數(shù)，如圖所示。請編寫兩個命令按鈕的Click事件過程。 注意：程序中不得使用變量，也不能使用循環(huán)結(jié)構(gòu)。存盤時必須存放在考生文件夾下，工程文件名保存為sjt3.vbp，窗體文件名保存為sjt3.frm。 * 需考生編寫的程序 *Private Sub Command1_

34、Click() Combo1.AddItem Text1End SubPrivate Sub Command2_Click() Print Combo1.ListCountEnd Sub（2）在考生文件夾下有一個工程文件sjt4.vbp，其窗體如圖所示。該程序用來對在上面的文本框中輸入的英文字母串(稱為明文)加密，加密結(jié)果(稱為密文)顯示在下面的文本框中。加密的方法為：選中一個單選按鈕，單擊加密按鈕后，根據(jù)選中的單選按鈕后面的數(shù)字n，將明文中的每個字母改為它后面的第n個字母(z后面的字母認(rèn)為是a，Z后面的字母認(rèn)為是A )，如圖所示。窗體中已經(jīng)給出了所有控件和程序，但程序不完整，請去掉程序中的注

35、釋符，把程序中的?改為正確的內(nèi)容。 注意：不得修改程序中的其他部分和控件的屬性。最后將修改后的文件按原文件名存盤。Private Sub Command1_Click()Dim n As Integer, k As Integer, m As IntegerDim c As String, a As StringFor k = 0 To 2If Op1(k)Value Thenn = Val(Op1(k). ? ) * Caption *End IfNext km = Len(Text1.Text)a = For k = 1 To ? * m *c = Mid$(Text1.Text, ? ,

36、 1) * k *c = String(1, Asc(c) + n)If c z Or c Z And c a(j + 1) Then t = a(j + 1) a(j + 1) = a(j) a(j) = t End If Next j Next i For j = 1 To 50 ch = ch + Str(a(j) + Next j Text2.Text = chEnd SubPrivate Sub C3_Click()Open out5.dat For Output As #1Print #1, Text2.TextClose #1End Sub05-第07套 基本操作題（1）在名稱為

37、Form1的窗體上添加一個名稱為L1，標(biāo)題為業(yè)余愛好的標(biāo)簽，再添加一個名稱為Ch1的復(fù)選框數(shù)組，含3個復(fù)選框，它們的Index屬性分別為0、1、2，標(biāo)題依次為體育、音樂、美術(shù)，請設(shè)置復(fù)選框的屬性，使其初始狀態(tài)如下表所示： 體育 選中 可用 音樂 未選中 不可用 美術(shù) 未選中 可用 程序運行后的窗體如圖所示。 注意：存盤時必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名保存為sjt1.frm。 控件標(biāo)簽復(fù)選框1屬性NameCaptionCaptionIndexValue設(shè)置值L1業(yè)余愛好體育01控件復(fù)選框2復(fù)選框3屬性CaptionIndexEnabledCaptionIndex

38、設(shè)置值音樂1False美術(shù)2（2）在名稱為Form1的窗體上添加一個名稱為Text1的文本框；再建立一個下拉菜單，菜單標(biāo)題為操作，名稱為M1，此菜單下含有兩個菜單項，名稱分別為Show和Hide，標(biāo)題分別為顯示、隱藏，請編寫適當(dāng)?shù)氖录^程，使得在程序運行時，單擊隱藏菜單項，則文本框消失；單擊顯示菜單項，則文本框重新出現(xiàn)，程序運行后的窗體如圖所示。要求程序中不得使用變量，每個事件過程中只能寫一條語句。 注意：存盤時必須存放在考生文件夾下，工程文件名保存為sjt2.vbp，窗體文件名保存為sjt2.frm。Private Sub Hide_Click() Text1.Visible = False

39、End SubPrivate Sub Show_Click() Text1.Visible = TrueEnd Sub05-第07套 簡單應(yīng)用題（1）在名稱為Form1的窗體上添加一個名稱為L1的標(biāo)簽，標(biāo)題為口令；添加兩個文本框，名稱分別為Text1、Text2，初始內(nèi)容為空；再添加三個命令按鈕，名稱分別為C1、C2、C3，標(biāo)題分別為顯示口令、隱藏口令、復(fù)制口令，在程序開始運行時，向Text1中輸入的所有字符，都顯示為*，單擊顯示口令按鈕后，在Text1中顯示所有字符，再單擊隱藏口令后，Text1中的字符不變，但顯示的都是?，單擊復(fù)制口令后，把Text1中的實際內(nèi)容復(fù)制到Text2中，如圖所示

40、。 要求： 在屬性窗口中，將窗體的標(biāo)題改為口令窗口。 建立適當(dāng)?shù)氖录^程，完成上述功能。每個過程中只允許寫一條語句，且不能使用變量。 存盤時，工程文件名保存為sjt3.vbp，窗體文件名保存為sjt3.frm。 * 需考生編寫的程序 *Private Sub C1_Click() Text1.PasswordChar = End SubPrivate Sub C2_Click() Text1.PasswordChar = ?End SubPrivate Sub C3_Click() Text2.Text = Text1.TextEnd Sub（2）在名稱為Form1的窗體上添加一個名稱為P1的

41、圖片框，并利用屬性窗口把考生文件夾中的圖標(biāo)文件Open.ico放到圖片框中；再添加一個通用對話框控件，名稱為CD1，利用屬性窗口設(shè)置相應(yīng)屬性，即打開對話框時：標(biāo)題為打開文件，文件類型為Word文檔，初始文件夾為C盤根文件夾。再編寫適當(dāng)?shù)氖录^程，使得程序在運行時，單擊P1圖片框，可以打開上述對話框。程序運行后的窗體如圖所示。 注意：存盤時必須存放在考生文件夾下，工程文件名保存為sjt4.vbp，窗體文件名保存為sjt4.frm。程序中不得使用任何變量。 * 需考生編寫的程序 *Private Sub P1_Click() CD1.ShowOpenEnd Sub05-第07套 綜合應(yīng)用題（1）在

42、考生文件夾下有一個工程文件sjt5.vbp，窗體上有兩個命令按鈕，標(biāo)題分別是讀數(shù)據(jù)和統(tǒng)計，請?zhí)砑右粋€名稱為Label1、標(biāo)題為回文的個數(shù)為的標(biāo)簽和一個名稱為Text1，初始內(nèi)容為空的文本框，如圖所示。 程序功能如下： 單擊讀數(shù)據(jù)按鈕，則將考生文件夾下in5.dat文件的內(nèi)容讀到變量s中； 單擊統(tǒng)計按鈕，則統(tǒng)計in5.dat文件(該文件中僅含由空格間隔開的字母串)中回文的個數(shù)，并將統(tǒng)計的回文個數(shù)顯示在Text1文本框內(nèi)。(所謂回文是指順讀與倒讀都一樣的字符串，如recycer)讀數(shù)據(jù)和統(tǒng)計按鈕的Click事件過程已經(jīng)給出，請完善foundhuiwen過程的功能，實現(xiàn)上述程序功能。 注意：考生不得

43、修改窗體文件中已存在的控件和程序，在結(jié)束程序運行之前，必須先進行統(tǒng)計，且必須用窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無成績。最后，程序按原文件名存盤。 Function foundhuiwen(p As String) * 需考生編寫的程序 * If StrReverse(p) = p Then foundhuiwen = TrueEnd Function06-第08套 基本操作題（1）在名稱為Form1標(biāo)題為“選題”的窗體上畫一個復(fù)選框數(shù)組，名稱為CH1，共有四個復(fù)選框，按順序其標(biāo)題分別是“數(shù)學(xué)”、“語文”、“外語”、“計算機”，其中“語文”、“計算機”復(fù)選框在選中狀態(tài)下，運行時的窗體如圖所示。

44、請畫控件并設(shè)置相應(yīng)屬性。注意：存盤時必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名為sjt1.frm。（2）在名稱為Form1的窗體上畫一個名稱為HS1的水平滾動條，其刻度值范圍為1100；畫一個命令按鈕，名稱為C1，標(biāo)題為“移動滾動框”。請編寫適當(dāng)?shù)氖录^程，使得在運行時，每單擊命令按鈕一次（假定單擊次數(shù)少于10次），滾動框向右移動10個刻度。運行時的窗體如圖所示。要求程序中不得使用變量，事件過程中只能寫一條語句。注意：存盤時必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm。Private Sub C1_Click() HS1.Value

45、= HS1.Value + 10End Sub06-第08套 簡單應(yīng)用題（1）在名稱為Form1的窗體上畫一個名稱為Text1的文本框，再建立一個名稱為Format的彈出式菜單，含三個菜單項，標(biāo)題分別為加粗、斜體、下劃線，名稱分別為M1、M2、M3。請編寫適當(dāng)?shù)氖录^程，在運行時當(dāng)用鼠標(biāo)右鍵單擊文本框時，彈出此菜單，選中一個菜單項后，則進行菜單標(biāo)題所描述的操作，如圖所示。注意：存盤時必須存放在考生文件夾下，工程文件名為sjt3.vbp，窗體文件名為sjt3.frm。M1_click( ) Text1.fontBold=trueM2_click( ) Text1.fontItalic=trueM

46、3_click( ) Text1.fontUnderline=trueText1_MouseDown( ) If button=2 then Popupmenu format（2）在考生文件夾下有一個工程文件sjt4.vbp，含有Form1和Form2兩個窗體，F(xiàn)orm1為啟動窗體。兩個窗體上的控件如圖1所示。程序運行后，在Form1窗體的文本框中輸入有關(guān)信息（密碼框中顯示*字符），然后單擊提交按鈕則彈出確認(rèn)對話框（即Form2窗體），并在對話框中顯示輸入的信息，如圖2所示。單擊確認(rèn)按鈕則程序結(jié)束，單擊重輸按鈕，則對話框消失，回到Form1窗體。在給出的窗體文件中已經(jīng)給出了程序，但不完整。 要

47、求：1）把Form1的標(biāo)題改為注冊，把Form2的標(biāo)題改為確認(rèn)； 2）設(shè)置適當(dāng)?shù)膶傩裕笷orm2標(biāo)題欄上的所有按鈕消失（如圖2所示）； 3）去掉程序中的注釋符，把程序中的？改為正確的內(nèi)容。注意：不能修改程序中的其他部分，標(biāo)題等屬性的修改只能在屬性窗口中的進行。最后把修改后的文件按原文件名存盤。Private Sub C1_Click() Dim k As Integer Form2. ? * show * Form2.Print Form1.L1.Caption; Form1.Text1 Form2.Print Form1.L2.Caption; Form1.Text2 Form2.Print Form1.L3.Caption; Form1.Text3 Form2.P