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

2、uot;，名稱為M1，此菜單下含有兩個菜單項，名稱分別為Copy和Clear，標題分別為"復制"、"清除"，請編寫適當的事件過程，使得在程序運行時，單擊"復制"選項菜單，則把Text1中的內容復制到Text2中，單擊"清除"選項菜單，則清除Text2中的內容(即在Text2中填入空字符串)。運行時的窗體如圖所示。要求在程序中不得使用任何變量，每個事件過程中只能寫一條語句。 注意：存盤時必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm。 1.步驟1：打開Visual Basic，按照

3、題目的要求新建窗體并添加一個水平滾動條控件。 步驟2：在屬性窗口中，設置水平滾動條的名稱為H1,然后設置其LargeChange的值為10，Max的值為100，Min的值為1。 步驟3：再在窗體上水平滾動條的左右兩端的下方添加兩個標簽控件Label1和Label2。 步驟4：在屬性窗口中將Label1的名稱設置為L1，將Caption屬性設置為1;再將Label1的名稱設置為L2，將Caption屬性設置為100.程序中用到的控件及屬性見表3.1。步驟5：按下鍵盤上的F5鍵運行程序。步驟6：保存工程，設置工程文件名為sjt1.vbp,設置窗體文件名為sjt1.frm。2.步驟1：新建窗體，按表

4、3.2建立菜單項并設置其屬性。步驟2：菜單項設置完成后，單擊"確定"按鈕。步驟3：添加文本框控件，按照表3.3設置文本框的屬性。表3.3控件文本框1文本框2屬性NameName設置值Text1Text2步驟4：編寫程序代碼。參考答案Private Sub Clear_Click() Text2.Text = ""End SubPrivate Sub Copy_Click() Text2.Text = Text1.TextEnd Sub步驟5：調試并運行程序，關閉程序后按題目要求存盤。2（1）在名稱為Form1的窗體上添加一個名稱為L1的標簽，標簽上標題為

5、"請輸入密碼"，添加一個名稱為Text1的文本框，其寬、高分別為2000和300，設置適當的屬性，使得在輸入密碼時，文本框中顯示為"*"字符，此外再把窗體的標題設置為"密碼窗口"，以上這些設置都必須在屬性窗口中進行，程序運行時的窗體如圖所示。 注意：存盤時必須存放在考生文件夾下，工程文件名保存為sjt1.vbp，窗體文件名保存為sjt1.frm。 （2）在名稱為Form1的窗體上添加一個名稱為P1的圖片框，請編寫適當的事件過程，使得程序在運行時，每單擊一次圖片框，就在圖片框中輸出"單擊圖片框"，每單擊圖片框外的窗體

6、一次，就在窗體中輸出"單擊窗體"，運行時的窗體如圖所示。要求在程序中不得使用變量，每個事件過程中只能寫一條語句。 注意：存盤時必須存放在考生文件夾下，工程文件名保存為sjt2.vbp，窗體文件名保存為sjt2.frm。 1.步驟1：新建一個窗體，在窗體中添加一個標簽，名稱設置為L1，將標簽的Caption屬性設置為"請輸入密碼"。然后再添加一個文本框，設置其名稱為Text1,然后設置其Height屬性為300，設置其Width屬性為2000，設置其PasswordChar屬性為"*"。最后將Form1的Caption屬性設置為&quo

7、t;密碼窗口"。步驟2：調試并運行程序。步驟3：設置工程文件名為sjt1.vbp,設置窗體文件名為sjt1.frm，最后保存工程。2.步驟1：新建一個窗體，然后在窗體上添加一個圖片框。圖片框的的屬性見表3.7。表3.7控件圖片框屬性Name設置值P1步驟2：編寫程序代碼。參考答案Private Sub Form_Click() Form1.Print "單擊窗體"End SubPrivate Sub P1_Click() P1.Print "單擊圖片框"End Sub步驟3：調試并運行程序，然后設置工程文件名為sjt2.vbp,設置窗體文件名為

8、sjt2.frm，最后保存工程。3（1）在名稱為Form1的窗體上添加兩個名稱分別為Text1和Text2的文本框，它們的高、寬分別為300、2400和1200、2400。窗體的標題為"窗口"。請通過屬性窗口設置適當的屬性，滿足如下要求： Text2可以顯示多行文本，并且有垂直和水平兩個滾動條； 程序運行時在Text1中顯示輸入的字符為"*"。 程序運行后的窗體如圖所示。 注意：存盤時必須存放在考生文件夾下，工程文件名保存為sjt1.vbp，窗體文件名保存為sjt1.frm。 （2）在名稱為Form1的窗體上添加一個名稱為Image1的圖像框，其高、寬分

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

10、體文件名保存為sjt2.frm。 1.步驟1：新建一個窗體，然后在窗體中添加兩個文本框。步驟2：在屬性窗口中設置各控件的屬性，控件的屬性見表3.8和表3.9。步驟3：調試并運行程序，然后保存工程，設置工程文件名為sjt1.vbp,設置窗體文件名為sjt1.frm。2.步驟1：新建一個窗體，然后在窗體中添加一個圖像框和兩個命令按鈕。步驟2：為窗體中的各控件設置屬性，控件的屬性見表3.10和3.11。表3.10控件圖像框屬性NameWidthHeightPictureStretch設置值Image117001900pic1.bmpTrue表3.11控件命令按鈕1命令按鈕2屬性NameCaption

11、NameCaption設置值C1放大C2縮小步驟3：編寫程序代碼。參考答案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 Sub步驟4：調試并運行程序，然后保存工程，設置工程文件名為sjt2.vbp,設置窗體文件名為sjt2.frm。4（1）在名稱為Form

12、1的窗體上添加一個名稱為Command1的命令按鈕，標題為"打開文件"，再添加一個名稱為CD1的通用對話框。程序運行后，如果單擊命令按鈕，則彈出打開文件對話框，請按下列要求設置屬性和編寫代碼： 設置適當屬性，使對話框的標題為"打開文件"； 設置適當屬性，使對話框的"文件類型"下拉式組合框中有兩項可供選擇："文本文件"、"所有文件"(如圖所示)，默認的類型是"所有文件"； 編寫命令按鈕的事件過程，使得單擊按鈕可以彈出打開文件對話框。 要求：程序中不得使用變量，事件過程中只能寫一

13、條語句。 注意：存盤時必須存放在考生文件夾下，工程文件名保存為sjt1.vbp，窗體文件名保存為sjt1.frm。 （2）在名稱為Form1的窗體上添加一個名稱為Command1的命令按鈕，其標題為"移動本按鈕"，如圖所示。 要求編寫適當的事件過程，使得程序運行時，每單擊按鈕一次，按鈕向左移動100。 要求：程序中不得使用變量，事件過程中只能寫一條語句。 注意：存盤時必須存放在考生文件夾下，工程文件名保存為sjt2.vbp，窗體文件名保存為sjt2.frm。 1.步驟1：新建一個窗體，在窗體中設置一個命令按鈕和一個通用對話框。在屬性窗口中設置控件的屬性，控件的屬性見表3.1

14、4和3.15。表3.14控件命令按鈕屬性NameCaption設置值Command1打開文件步驟2：編寫程序代碼。參考答案Private Sub Command1_Click() CD1.ShowOpenEnd Sub步驟3：調試并運行程序，保存工程，設置工程文件名為sjt1.vbp,設置窗體文件名為sjt1.frm。2.步驟1：新建一個窗體，在窗體中添加一個命令按鈕。命令按鈕的屬性見表3.16。表3.16控件命令按鈕屬性NameCaption設置值Command1移動本按鈕步驟2：編寫程序代碼。參考答案Private Sub Command1_Click() Command1.Left =

15、Command1.Left - 100End Sub步驟3：調試并運行程序，保存工程，設置工程文件名為sjt2.vbp,設置窗體文件名為sjt2.frm。5（1）在名稱為Form1的窗體上畫兩個標簽(名稱分別為Label1和Label2，標題分別顯示為"姓名"和"年齡")、兩個文本框(名稱分別為Text1和Text2，初使內容均為空)和一個命令按鈕(名稱為Command1，標題為"顯示")。然后編寫命令按鈕的Click事件過程。程序運行后，在兩個文本框中分別輸入姓名和年齡，然后單擊"顯示"按鈕，則在窗體上顯示兩個文

16、本框中的內容，如圖所示。要求程序中不得使用任何變量。 注意：存盤時必須存放在考生文件夾下，工程文件名保存為sjt1.vbp，窗體文件名保存為sjt1.frm。 （2）在名稱為Form1的窗體上畫一個圖片框，其名稱為Picture1、一個水平滾動條，名稱為HScroll1，和一個命令按鈕，名稱為Command1，標題為"設置屬性"，通過屬性窗口在圖片框中裝入一個圖形(文件名為pic1.jpg，位于考生目錄下)，圖片框的高度與圖形的高度相同，圖片框的寬度任意(如圖1所示)。編寫適當的事件過程，程序運行后，如果單擊命令按鈕，則設置水平滾動條的如下屬性： Min 100 Max 1

17、500 LargeChange 100 SmallChange 10 之后就可以通過移動滾動條上的滾動塊來放大或縮小圖片框。程序運行后的窗體如圖2所示。要求程序中不得使用任何變量。 注意：存盤時必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm。1.步驟1：新建一個窗體，在窗體中添加兩個標簽，兩個文本框和一個命令按鈕。步驟2：按照步驟1設置其他控件相關屬性，程序用到的控件及其屬性見表3.19和3.20。 表3.19控件標簽1標簽2屬性NameCaptionNameCaption設置值Label1姓名Label2年齡 表3.20控件文本框1文本框2命令按鈕屬性Na

18、meTextNameTextCaption設置值Text1Text2顯示步驟3：編寫程序代碼。參考答案Private Sub Command1_Click() Form1.Print Text1.Text & ",現年" & Text2.Text & "歲"End Sub步驟4：調試并運行程序，關閉程序后按題目要求存盤。2.步驟1：新建一個窗體，在窗體上添加一個圖片框，一個水平滾動條和一個命令按鈕。步驟2：設置窗體中控件的屬性，控件的屬性見表3.21。 表3.21 步驟3：編寫程序代碼。參考答案Private Sub Comman

19、d1_Click() HScroll1.Max = 1500 HScroll1.Min = 100 HScroll1.LargeChange = 100 HScroll1.SmallChange = 10End SubPrivate Sub HScroll1_Change() Picture1.Width = HScroll1.ValueEnd Sub步驟4：調試并運行程序，關閉程序后按題目要求存盤。6（1）在名稱為Form1的窗體上添加一個名稱為Command1的命令按鈕(如圖1所示)，然后通過屬性窗口設置窗體和命令按鈕的屬性，實現如下功能： 窗體標題為"設置按鈕屬性"；

20、 命令按鈕的標題為"等級考試"； 程序運行后，命令按鈕不可見； 命令按鈕的標題字體用三號常規黑體顯示。 程序的運行情況如圖2所示。 要求：不編寫任何代碼。 注意：存盤時必須存放在考生文件夾下，工程文件名保存為sjt1.vbp，窗體文件名保存為sjt1.frm。 （2）在名稱為Form1的窗體上添加一個名稱為Label1的標簽，在屬性窗口中把BorderStyle屬性設置為1(如圖1所示)，編寫適當的事件過程。使得程序在運行后，如果單擊窗體，則可使標簽移到窗體的右上角(只允許在程序中修改適當屬性來實現)。 要求：不得使用任何變量。 注意：存盤時必須存放在考生文件夾下，工程文件

21、名保存為sjt2.vbp，窗體文件名保存為sjt2.frm。 1.步驟1：新建一個窗體，在窗體中添加一個命令按鈕控件并設置命令按鈕和窗體的相應屬性。如表3.25所示。2.步驟2：調試并運行程序，關閉程序后按題目要求存盤。步驟1：新建一個窗體，在窗體中添加標簽控件并設置標簽的相應屬性。程序中用到的控件及屬性見表3.26。表3.26控件標簽屬性NameBorderStyle設置值Label11步驟2：編寫程序代碼。參考答案Private Sub Form_Click() Label1.Top = 0 Label1.Left = Form1.Width - Label1.WidthEnd Sub步驟

22、3：調試并運行程序，關閉程序后按題目要求存盤。7（1）在名稱為Form1的窗體上添加一個名稱為L1，標題為"業余愛好"的標簽，再添加一個名稱為Ch1的復選框數組，含3個復選框，它們的Index屬性分別為0、1、2，標題依次為"體育"、"音樂"、"美術"，請設置復選框的屬性，使其初始狀態如下表所示： 體育 選中 可用 音樂 未選中 不可用 美術 未選中 可用 程序運行后的窗體如圖所示。 注意：存盤時必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名保存為sjt1.frm。 （2）在名稱為Form1的窗體

23、上添加一個名稱為Text1的文本框；再建立一個下拉菜單，菜單標題為"操作"，名稱為M1，此菜單下含有兩個菜單項，名稱分別為Show和Hide，標題分別為"顯示"、"隱藏"，請編寫適當的事件過程，使得在程序運行時，單擊"隱藏"菜單項，則文本框消失；單擊"顯示"菜單項，則文本框重新出現，程序運行后的窗體如圖所示。要求程序中不得使用變量，每個事件過程中只能寫一條語句。 注意：存盤時必須存放在考生文件夾下，工程文件名保存為sjt2.vbp，窗體文件名保存為sjt2.frm。1.步驟1：建立界面，在窗體中

24、創建一個標簽和一個復選框數組Ch1，數組中包含3個復選框。步驟2：按照步驟1設置窗體中各個控件的屬性，程序中用到的控件及屬性見表3.28和表3.29。 表3.28控件標簽復選框1屬性NameCaptionCaptionIndexValue設置值L1業余愛好體育01表3.29控件復選框2復選框3屬性CaptionIndexEnabledCaptionIndex設置值音樂1False美術2步驟3：調試并運行程序，關閉程序后按題目要求存盤。2.步驟1：新建一個"標準EXE"工程，在窗體中添加個文本框，在屬性設置窗口中將其Name屬性值設置為Text1。打開菜單設計器，按表3.30

25、中的設置建立菜單項。表3.30標題操作顯示隱藏名稱M1ShowHide內縮符號011步驟2：編寫程序代碼。參考答案Private Sub Hide_Click() Text1.Visible = FalseEnd SubPrivate Sub Show_Click() Text1.Visible = TrueEnd Sub步驟3：調試并運行程序，關閉程序后按題目要求存盤。8（1）在名稱為Form1標題為"選課"的窗體上添加一個復選框數組，名稱為CH1，共有四個復選框，按順序其標題分別是"數學"、"語文"、"外語"、

26、"計算機"，其中"語文"、"計算機"復選框處在選中狀態下，程序運行時的窗體如圖所示。請按要求添加控件并設置相應屬性。 注意：存盤時必須存放在考生文件夾下，工程文件名保存為sjt1.vbp，窗體文件名保存為sjt1.frm。 （2）在名稱為Form1的窗體上添加一個名稱為HS1的水平滾動條，其刻度值范圍為1 100；添加一個命令按鈕，名稱為C1，標題為"移動滾動框"。請編寫適當的事件過程，使得在程序運行時，每單擊命令按鈕一次(假定單擊次數不多于10次)，滾動框向右移動10個刻度。程序運行時的窗體如圖所示。要求程序中不

27、得使用變量，事件過程中只能寫一條語句。 注意：存盤時必須存放在考生文件夾下，工程文件名保存為sjt2.vbp，窗體文件名保存為sjt2.frm。 1.步驟1：新建一個窗體，在窗體中添加四個復選框控件并設置窗體和四個復選框的屬性。控件和窗體的屬性見表3.35。 表3.35步驟2：調試并運行程序，關閉程序后按題目要求存盤2.步驟1：新建一個窗體，在窗體中添加一個水平滾動條和一個命令按鈕控件，并設置其屬性。控件及屬性見表3.36。 表3.36步驟2：編寫程序代碼。參考答案Private Sub C1_Click() HS1.Value = HS1.Value + 10End Sub步驟3：調試并運行

28、程序，關閉程序后按題目要求存盤。9（1）在名稱為Form1，標題為"圖片"的窗體上添加1個名稱為Image1的圖像框，其高為2500，寬為2000。請通過屬性窗口設置適當屬性，將入考生文件夾下的圖片文件pic1.jpg，并使圖片自動適應圖像框的大小(如圖所示)。 注意：存盤時必須存放在考生文件夾下，工程文件名保存為sjt1.vbp，窗體文件名保存為sjt1.frm。 （2）在名稱為Form1的窗體上添加1個名稱為Label1，標題為"口令"的標簽；添加一個名稱為Text1的文本框；再添加三個命令按鈕，名稱分別為Command1、Command2、Comm

29、and3，標題分別為"顯示口令"、"隱藏口令"、"重新輸入"。 程序運行時，在Text1中輸入若干字符，單擊"隱藏口令"按鈕，則只顯示與字符同樣數量的"*"(如圖2所示)；單擊"顯示口令"按鈕，則正常顯示輸入的字符(如圖1所示)，單擊"重新輸入"按鈕，則清除Text1中的內容，并把光標定位到Text1中。 要求：請按要求添加所有控件，編寫命令按鈕的Click事件過程，程序中不得使用變量，在"顯示口令"、"隱藏口令"按

30、鈕的事件過程中只能寫1條語句。存盤時必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm。 1.步驟1：新建一個窗體，在窗體中添加一個圖像框。窗體中的控件屬性見表3.38。 表3.38步驟2：調試并運行程序，關閉程序后按題目要求存盤。2.步驟1：新建一個窗體，在窗體中添加一個文本框三個命令按鈕和一個標簽。步驟2：在屬性窗口中設置控件的屬性，控件的屬性見表3.39和表3.40。 表3.39表3.40控件命令按鈕3標簽屬性NameCaptionNameCaption設置值Command3重新輸入Label1口令步驟3：編寫程序代碼。參考答案Private Sub Co

31、mmand1_Click() Text1.PasswordChar = ""End SubPrivate Sub Command2_Click() Text1.PasswordChar = "*"End SubPrivate Sub Command3_Click() Text1 = "" Text1.SetFocusEnd Sub步驟4：調試并運行程序，關閉程序后按題目要求存盤。10（1）在名稱為Form1的窗體上添加一個名稱為Shape1的形狀控件，通過設置參數使其形狀為圓形；添加一個名稱為Label1的標簽，標題為"形狀

32、"，標簽的大小能夠根據標簽內容的字數、大小而定；添加一個名稱為Text1的文本框，文本框最多能夠顯示5個字符，文本框中初使內容為"圓形"，如圖所示。 注意：存盤時，將文件保存至考生文件夾下，且窗體文件名為sjt1.frm，工程文件名為sjt1.vbp。 （2）在名稱為Form1的窗休上添加一個名稱為Label1的標簽，字號大小為四號，標題為"等級考試"，如圖1所示。通過設置屬性使標簽初始為不顯示。請編寫適當的程序，使得運行程序時，窗體的標題立即變為"標簽"，單擊窗體時，顯示標簽，如圖2所示。 注意：存盤時，將文件保存至考生文

33、件夾下，且窗體文件名保存為sjt2.frm，工程文件名保存為sjt2.vbp。要求程序中不得使用變量，每個事件過程中只能寫一條語句。 1.步驟1：新建一個窗體，在窗體中添加一個形狀控件，一個標簽控件和一個文本框控件。然后在屬性窗口設置這些控件的屬性，見表3.41所示。 表3.41步驟2：調試并運行程序，關閉程序后按題目要求存盤。2.步驟1：新建一個窗體，在窗體中添加一個標簽控件并設置其屬性，屬性見表3.42。步驟2：編寫程序代碼。參考答案Private Sub Form_Click() Label1.Visible = TrueEnd SubPrivate Sub Form_Load() Fo

34、rm1.Caption = "標簽"End Sub步驟3：調試并運行程序，關閉程序后按題目要求存盤。11（1）在名稱為Form1的窗體上添加一個名稱為Frame1、標題為"框架"的框架，在框架內添加兩個名稱分別為Option1、Option2的單選按鈕，其標題分別為"第一項"、"第二項"。要求通過設置控件的屬性將"第二項"初使值設置為被選中，框架為不可用。運行程序后的窗體如圖所示。 注意：存盤時必須存放在考生文件夾下，工程文件名保存為sjt1.vbp，窗體文件名保存為sjt1.frm。 （2）在

35、名稱為Form1的窗體上添加一個名稱為Drive1的驅動器列表框，一個名稱為Dir1的目錄列表框，一個名稱為Filel的文件列表框，名稱為Label1、標題為"文件名"的標簽和名稱為Labe12、BorderStyle為1的標簽。將窗體的標題設置為"文件系統控件"，如圖所示。請編寫適當的程序，使得這三個文件系統控件可以同步變化，即當驅動器列表框中顯示的內容發生變化時，目錄列表框和文件列表框中顯示的內容同時發生變化。單擊文件列表框時，將在Label2中顯示選中的文件名。 注意：要求程序中不得使用變量，事件過程中只能寫一條語句。 存盤時必須存放在考生文件夾下

36、，工程文件名保存為sjt2.vbp，窗體文件名保存為sjt2.frm。 1.步驟1：建立界面，在窗體中添加一個框架和兩個單選按鈕，并設置控件的屬性。程序中的控件屬性見表3.43。 表3.43步驟2：調試并運行程序，關閉程序后按題目要求存盤。2.步驟1：新建一個窗體，按照題目要求建立驅動器列表框、目錄列表框、文件列表框控件并設置其屬性。步驟2：按照步驟1建立其他控件并設置相關屬性，程序中用到的控件及屬性見表3.44和表3.45。 表3.44 表3.45步驟3：編寫程序代碼。參考答案Private Sub Dir1_Change() File1.Path = Dir1.PathEnd SubPri

37、vate Sub Drive1_Change() Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_Click() Label2 = File1.FileNameEnd Sub步驟4：調試并運行程序，關閉程序后按題目要求存盤。12（1）在標題為"列表框"、名稱為Form1的窗體上添加一個名稱為List1的列表框，通過屬性窗口輸入四個列表項："數學"、"語文"、"歷史"、"地理"，列表項形式采用"復選框形式"，如圖所示。列表框的寬

38、為1100，高不限。 注意：存盤時必須存放在考生文件夾下，工程文件名保存為sjt1.vbp，窗體文件名保存為sjt1.frm。 （2）在名稱為Form1的窗體上建立一個名稱為"menul"、標題為"文件"的彈出式菜單，其含有三個菜單項，它們的標題分別為："打開"、"關閉"、"保存"，名稱分別為"m1"、"m2"、"m3"。再添加一個命令按鈕，名稱為"Command1"、標題為"彈出菜單"。要求：編

39、寫命令按鈕的Click事件過程，使程序運行時，單擊"彈出菜單"按鈕可彈出"文件"菜單(如圖所示)。 注意：程序中不得使用變量，事件過程中只能寫一條語句。 存盤時必須存放在考生文件夾下，工程文件名保存為sjt2.vbp，窗體文件名保存為sjt2.frm。 1.步驟1：新建一個窗體，按照題目要求建立列表框控件并設置窗體及列表框屬性。程序中用到的控件及屬性見表3.46。步驟2：調試并運行程序，關閉程序后按題目要求存盤。2.步驟1：建立界面，添加一個命令按鈕設置Name屬性設置為為Command1，Caption屬性設置為彈出菜單。程序中用到的控件及屬性見表3.

40、47。表3.47標題文件打開關閉保存名稱menu1m1m2m3內縮符號0111步驟2：編寫程序代碼。參考答案Private Sub Command1_Click() PopupMenu menu1End Sub步驟3：調試并運行程序，關閉程序后按題目要求存盤。13（1）在名稱為Form1的窗體上添加兩個名稱分別為Frame1、Frame2的框架，標題分別為"字號"、"修飾"；在Frame1中添加兩個單選按鈕，名稱分別為Option1、Option2，標題分別為"10號字"、"20號字"，且標題顯示在單選按鈕的左邊；

41、在Frame2中添加1個名稱為Check1的復選框，標題為"下劃線"。程序運行后的窗體如圖所示。 注意：存盤時必須存放在考生文件夾下，工程文件名保存為sjt1.vbp，窗體文件名保存為sjt1.frm。 （2）在名稱為Form1的窗體上從上到下添加兩個文本框，名稱分別為Text1、Text2；再添加1個命令按鈕，名稱為Command1，標題為"選中字符數是"。程序運行時，在Text1中輸入若干字符，選中部分內容后，單擊"選中字符數是"按鈕，則選中的字符個數顯示在Text2中(如圖所示)。請編寫按鈕的Click事件過程。 要求：程序中不

42、得使用變量，事件過程中只能寫一條語句。 注意：存盤時必須存放在考生文件夾下，工程文件名保存為sjt2.vbp，窗體文件名保存為sjt2.frm。 1.步驟1：建立界面，在窗體中添加兩個框架，兩個單選按鈕和一個復選框，并設置控件的屬性。要添加的的控件及屬性見表3.48和3.49。表3.48控件框架1框架2屬性NameCaptionNameCaption設置值Frame1字號Frame2修飾 表3.49控件單選按鈕1單選按鈕2復選框屬性NameCaptionNameCaptionNameCaption設置值Option110號字Option220號字Check1下劃線步驟2：各控件添加完成后，再將

43、兩個單選按鈕的Alignment屬性設置為1-Right Just，使單選按鈕的標題在單選按鈕的左邊顯示。步驟3：調試并運行程序，關閉程序后按題目要求存盤。2.步驟1：建立界面，在窗體中添加兩個文本框和一個命令按鈕，然后在屬性窗口設置控件的屬性。程序中用到的控件及屬性見表3.50。 表3.50步驟2：編寫程序代碼。參考答案Private Sub Command1_Click() Text2 = Text1.SelLengthEnd Sub步驟3：調試并運行程序，關閉程序后按題目要求存盤。14（1）在名稱為Form1的窗體上添加一個名稱為Picture1的圖片框(PictureBox)，高、寬均

44、為1000。在圖片框內再添加一個有邊框的名稱為Image1的圖像框(Image)。并通過屬性窗口把考生文件夾下的圖標文件Point11(香蕉圖標)裝入圖像框Image1中，如圖所示。 注意：存盤時必須存放在考生文件夾下，工程文件名保存為sjt1.vbp，窗體文件名保存為sjt1.frm。 （2）在名稱為Form1的窗體上添加一個名稱為Command1、標題為"保存文件"的命令按鈕，再添加一個名稱為CommonDialog1的通用對話框。 要求： 運行時單擊"保存文件"命令按鈕，則以"保存對話框"方式打開該通用對話框。如圖所示； 通過屬

45、性窗口設置適當的屬性，使得程序運行時對話框的標題為"保存文件"，且默認文件名為out2。 注意：要求程序中不能使用變量，每個事件過程中只能寫一條語句。 保存時必須存放在考生文件夾下，工程文件名保存為sjt2.vbp，窗體文件名保存為sjt2.frm。 1.步驟1：建立界面，在窗體中添加一個圖片框和一個圖像框并設置控件的屬性。程序中用到的控件及屬性見表3.51。 表3.51 步驟2：調試并運行程序，關閉程序后按題目要求存盤。保存對話框2.步驟1：新建一個窗體，在窗體中添加一個命令按鈕和一個通用對話框，然后設置控件的設置其屬性。程序中用到的控件及屬性見表3.52。 表3.52步

46、驟2：編寫程序代碼。參考答案Private Sub Command1_Click() CommonDialog1.ShowSaveEnd Sub步驟3：調試并運行程序，關閉程序后按題目要求存盤。15（1）在名稱為Form1的窗體上添加一個名稱為Label1的標簽，標簽的長和高分別為2000、300，有邊框，并利用屬性窗口設置適當的屬性，使其標題居中顯示"等級考試"，并使標簽的外觀如圖所示。程序運行后的窗體見下圖。 注意：存盤時必須存放在考生文件夾下，工程文件名保存為sjt1.vbp，窗體文件名保存為sjt1.frm。（2）在名稱為Form1的窗體上添加一個名稱為Image1

47、的圖像框，有邊框，并可以自動調整裝入圖片的大小以適應圖像框的尺寸；再添加三個命令按鈕，名稱分別為Command1、Command2、Command3，標題分別為"紅桃"、"黑桃"、"清除"。在考生文件夾下有兩個圖標文件，其名稱分別為"Misc34.ico"和"Misc37.ico"。程序運行時，單擊"黑桃"按鈕，則在圖像框中顯示黑桃圖案(即Misc37.ico文件)；單擊"紅桃"按鈕，則在圖像框中顯示紅桃圖案(即Misc34.ico文件，如圖所示)；單擊&

48、quot;清除"按鈕則清除圖像框中的圖案。請編寫相應控件的Click事件過程，實現上述功能。 注意：要求程序中不得使用變量，每個事件過程中只能寫一條語句。存盤時必須存放在考生文件夾下，工程文件名保存為sjt2.vbp，窗體文件名保存為sjt2.frm。 1.步驟1：新建一個窗體，在窗體中添加一個標簽，然后按照題目要求建立標簽控件并設置其屬性。程序中用到的控件及屬性見表3.53。步驟2：調試并運行程序，關閉程序后按題目要求存盤。2.步驟1：建立界面，在窗體中添加一個圖像框，三個命令按鈕并設置控件的屬性。程序中涉及的控件及屬性見表3.54和表3.55。 表3.54控件圖像框命令按鈕1屬性

49、NameBorderStyleStretchNameCaption設置值Image11TureCommand1紅桃 表3.55控件命令按鈕2命令按鈕3屬性NameCaptionNameCaption設置值Command2黑桃Command3清除步驟2：編寫程序代碼。參考答案Private Sub Command1_Click() Image1.Picture = LoadPicture(App.Path & "MISC34.ico")End SubPrivate Sub Command2_Click() Image1.Picture = LoadPicture(Ap

50、p.Path & "MISC37.ico")End SubPrivate Sub Command3_Click() Set Image1.Picture = NothingEnd Sub步驟3：調試并運行程序，關閉程序后按題目要求存盤。16（1）在名稱為Form1、標題為"標簽"的窗體上添加一個名稱為Label1的標簽，并設置適當屬性以滿足以下要求： 標簽的標題為"計算機等級考試"； 標簽可根據標題內容自動調整其大小； 標簽帶有邊框，且標簽標題顯示為三號字。 程序運行后的窗體如圖所示。 注意：存盤時必須存放在考生文件夾下，工程

51、文件名保存為sjt1.vbp，窗體文件名保存為sjt1.frm。 （2）在名稱為Form1的窗體上添加一個名稱為Hscroll1的水平滾動條，其刻度范圍為1100；再添加一個名稱為Text1的文本框，初始文本內容為1。程序開始運行時，焦點在滾動條上。請編寫適當的事件過程，使得程序運行時，文本框中實時顯示滾動框的當前位置。運行情況如圖所示。 注意：要求程序中不得使用變量，每個事件過程中只能寫一條語句。 存盤時必須存放在考生文件夾下，工程文件名保存為sjt2.vbp，窗體文件名保存為sjt2.frm。 1.步驟1：建立界面，在窗體中添加一個標簽，然后在屬性窗口中設置標簽和窗體的屬性，程序中用到的控

52、件及屬性見表3.56。 表3.56 步驟2：調試并運行程序，關閉程序后按題目要求存盤。2.步驟1：新建一個窗體，在窗體中添加一個滾動條和一個文本框。步驟2：然后按照題目要求設置控件屬性，程序中用到的控件及屬性見表3.57。 表3.57步驟3：編寫程序代碼。參考答案Private Sub Form_Activate() HScroll1.SetFocusEnd SubPrivate Sub HScroll1_Change() Text1.Text = HScroll1.ValueEnd Sub步驟4：調試并運行程序，關閉程序后按題目要求存盤。17（1）在名稱為Form1，標題為"練習&

53、quot;的窗體上添加1個名稱為Frame1、標題為"效果"的框架。框架內含有3個復選框，其名稱分別為Chk1、Chk2和Chk3，標題分別為"傾斜"、"加粗"和"下畫線"。 程序運行后的窗體如圖所示。 要求：存盤時必須存放在考生文件夾下，工程文件名保存為sjt1.vbp，窗體文件名保存為sjt1.frm。 （2）在名稱為Form1的窗體上添加1個名稱為Label1的標簽，使其初始內容為空，且能根據其標題內容自動調整標簽的大小；再添加2個命令按鈕，標題分別為"日期"和"時間"

54、，名稱分別為Command1、Command2。請編寫2個命令按鈕的Click事件過程，使得單擊"日期"按鈕時，標簽內顯示系統當前日期；單擊"時間"按鈕時，標簽內顯示系統當前時間。如圖所示。 要求：程序中不得使用變量，每個事件過程中只能寫一條語句。 注意：存盤時必須存放在考生文件夾下，工程文件名保存為sjt2.vbp，窗體文件名保存為sjt2.frm。 1.步驟1：新建一個窗體，在窗體中添加一個框架和三個復選框。步驟2：然后在屬性窗口中設置控件的屬性，程序中用到的控件及屬性見表3.58。 表3.58 步驟3：調試并運行程序，關閉程序后按題目要求存盤。2.

55、步驟1：建立界面，在窗體中添加一個標簽和兩個命令按鈕并設置控件的屬性。程序中用到的控件及屬性見表3.59。 表3.59步驟2：編寫程序代碼。參考答案Private Sub Command1_Click() Label1 = DateEnd SubPrivate Sub Command2_Click() Label1 = TimeEnd Sub步驟3：調試并運行程序，關閉程序后按題目要求存盤。18（1）在名稱為Form1，標題為"框架"的窗體上添加一個名稱為Frame1，且標題為空的框架。框架內含有兩個單選按鈕，名稱分別為Opt1和Opt2，其標題分別為"字體"、"大小"。 注意：存盤時必須存放在考生文件夾下，工程文件名保存為sjt1.vbp，窗體文件名保存為sjt1.frm。 （2）考生文件夾下的工程文件sjt2.vbp中有一個由直線Line1、Line2和Line3組成的三角形，直線Line1、Line2和Line3的坐標值如下所示： 要求添加一條直線Line4以構成三角形的高，且該直線的初始狀態為不可見。再添加兩個命令按鈕，名稱分別為Cmd1、Cm