【文章內(nèi)容簡介】 處填入 ： 2 第 3個 ？ 處填入 ： ＋ 第 4個 ？ 處填入 ： ＋ 步驟 3： 調(diào)試并運行程序 ， 關(guān)閉程序后按題目要求存盤。 第四套 一、基本操作 （ 1）在名稱為 Form1的窗體上添加一個名稱為 Command1的命令按鈕，標題為 打開文件 ，再添加一個名稱為 CD1的通用對話框。程序運行后，如果單擊命令按鈕，則彈出打開文件對話框，請按下列要求設(shè)置屬性和編寫代碼： ①設(shè)置適當屬性，使對話框的標題為 打開文件 ； ②設(shè)置適當屬性，使對話框的 文件類型 下拉式組合框中有兩項可供選擇： 文本文件 、所有文件 (如圖所示 )，默認的類型是 所有文件 ； ③編寫命令按鈕的事件過程，使得單擊按鈕可以彈出打開文件對話框。 要求：程序中不得使用變量，事件過程中只能寫一條語句。 （ 2）在名稱為 Form1的窗體上添加一個名稱為 Command1的命令按鈕，其標題為 移動本按鈕 ，如圖所示。 要求編寫適當?shù)氖录^程，使得程序運行時，每單擊按鈕一次，按鈕向左移動 100。 要求：程序中不得使用變量，事件過程中只能寫一條語句。 (1) 【操作步驟】 步驟 1：新建一個窗體，在窗體中設(shè)置一個命令按鈕和一個通用對話框。 在屬性窗口中設(shè)置控件的屬性，控件的屬性見表 。 表 控件 命令按鈕 屬性 Name Caption 設(shè)置值 Command1 打開文件 步驟 2：編寫程序代碼。 參考答案 Private Sub Command1_Click() End Sub 步驟 3： 調(diào)試并運行程序 ， 保存工程 ， 設(shè)置工程文件名為 ,設(shè)置窗體文件名為。 (2) 【操作步驟】 步驟 1：新建一個窗體，在窗體中添加一個命令按鈕。命令按鈕的屬性見表 。 表 控件 命令按鈕 屬性 Name Caption 設(shè)置值 Command1 移動本按鈕 步驟 2：編寫程序代碼。 參考答案 Private Sub Command1_Click() = 100 End Sub 步驟 3：調(diào)試并運行程序，保存工程，設(shè)置工程文件名為 ,設(shè)置窗體文件名為。 二、簡單應(yīng)用 （ 1）在名稱為 Form1的窗體上添加一個名稱為 Label標題為 添加項目： 的標簽；添加一個名稱為 Text1的文本框，初始內(nèi)容為空；添加一個名稱為 Combo1的下拉式組合框，并通過屬性窗口輸入若干項目 (不少于 3個，內(nèi)容任意 )；再添加兩個命令按鈕，名稱分別為Command Command2，其標題分別為 添加 、 統(tǒng)計 。在程序運行時，向 Text1中輸入字符，單擊 添加 按鈕后，則將 Text1中的內(nèi)容作為一個列表項被添加到組合框的列表中；單擊 統(tǒng)計 按鈕，則在窗體空白處顯示組合框中列表項的個數(shù)，如圖所示。請編寫兩個命令按鈕的 Click事件過程。 （ 2）在考生文件夾下有一個工程文件 ，其窗體如圖所示。該程序用來對在上面的文本框中輸入的英文字母串 (稱為 明文 )加密，加密結(jié)果 (稱為 密文 )顯示在下面的文本框中。加密的方法為：選中一個單選按鈕，單擊 加密 按鈕后，根據(jù)選中的單選按鈕后面的數(shù)字 n，將 明文 中的每個字母改為它后面的第 n個字母 (z后面的字母認為是 a， Z后面的字母認為是 A )，如圖所示。窗體中已經(jīng)給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把程序中的 ?改為正確的內(nèi)容。 (1) 【操作步驟】 步驟 1：新建一個窗體，按照題目要求建立控件并設(shè)置控件屬性。 程序中用到的控件及屬性設(shè)置見表 和 步驟 2：分析并編寫程序代碼。 參考答案 Private Sub Command1_Click() Text1 End Sub Private Sub Command2_Click() Print End Sub 步驟 3： 調(diào)試并運行程序 ， 關(guān)閉程序后按題目要 求存盤。 (2)【操作步驟】 步驟 1：打開本題工程文件。 步驟 2：分析并編寫程序代碼。 程序提供代碼 Private Sub Command1_Click() Dim n As Integer, k As Integer, m As Integer Dim c As String, a As String For k = 0 To 2 If Op1(k)． Value Then 39。 n = Val(Op1(k). ? ) End If Next k m = Len() a = 39。 For k = 1 To ? 39。 c = Mid$(, ? , 1) c = String(1, Asc(c) + n) If c z Or c Z And c a Then c = String(1, Asc(c) 26) End If 39。 ？ = a + c Next k = a End Sub 程序結(jié)束 參考答案 第 1個 ？ 處填入 ： Caption 第 2個 ？ 處填入 ： m 第 3個 ？ 處填入 ： k 第 4個？處填入： a 步驟 3：調(diào)試并運行程序，關(guān)閉程序后按題目要求存盤。 三、綜合應(yīng)用 在考生文件夾下有一個工程文件 ，窗體上有兩個文本框，名稱分別為 TextText2，都可以多行顯示。還有三個命令按鈕，名稱分別為 C C C3，標題分別為 取數(shù) 、排序 、 存盤 。 取數(shù) 按鈕的功能是將考生文件夾下的 50個整數(shù)讀到數(shù)組中，并在 Text1中顯示出來； 排序 按鈕的功能是對這 50個數(shù)按升序排序，并顯示在 Text2中；存盤 按鈕的功能是把排好序的 50個數(shù)存到考生目 錄下的 。如圖所示。在窗體中已經(jīng)給出了全部控件和部分程序代碼，要求閱讀程序并去掉程序中的注釋符，把程序中的 ?改為正確的內(nèi)容，并編寫 排序 按鈕的 Click事件過程，使其實現(xiàn)上述功能，但不能修改程序中的其他部分，也不能修改控件的屬性。最后將修改后的文件按原文件名存盤。 【操作步驟】 步驟 1：打開本題工程文件。 步驟 2：分析并編寫程序代碼。 程序提供代碼 Dim a(50) As Integer Private Sub C1_Click() Dim k As Integer, ch As String Open For Input As 1 ch = For k = 1 To 50 39。 Input 1, ? ch = ch + Str(a(k)) + Next k Close 1 39。 = ? End Sub Private Sub C2_Click() End Sub Private Sub C3_Click() Open For Output As 1 Print 1, Close 1 End Sub 程序結(jié)束 參考答案 第 1個？處填入： a(k) 第 2個？處填入： ch 排序 按鈕的代碼 Private Sub C2_Click() Dim t As Integer Dim i As Integer Dim j As Integer Dim ch As String ch = For i = 50 To 2 Step 1 For j = 1 To 49 If a(j) 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 = ch End Sub 步驟 3： 調(diào)試并運行程序 ， 關(guān)閉程序后按題 目要求存盤。 第五套 一、基本操作 （ 1）在名稱為 Form1的窗體上畫兩個標簽 (名稱分別為 Label1和 Label2，標題分別顯示為 姓名 和 年齡 )、兩個文本框 (名稱分別為 Text1和 Text2，初使內(nèi)容均為空 )和一個命令按鈕 (名稱為 Command1，標題為 顯示 )。然后編寫命令按鈕的 Click事件過程。程序運行后，在兩個文本框中分別輸入姓名和年齡，然后單擊 顯示 按鈕，則在窗體上顯示兩個文本框中的內(nèi)容，如圖所示。要求程序中不得使用任何變量。 （ 2）在名稱為 Form1的窗體上畫一個圖片框，其名稱 為 Picture一個水平滾動條，名稱為 HScroll1，和一個命令按鈕，名稱為 Command1，標題為 設(shè)置屬性 ，通過屬性窗口在圖片框中裝入一個圖形 (文件名為 ，位于考生目錄下 )，圖片框的高度與圖形的高度相同，圖片框的寬度任意 (如圖 1所示 )。編寫適當?shù)氖录^程，程序運行后，如果單擊命令按鈕，則設(shè)置水平滾動條的如下屬性： Min 100 Max 1500 LargeChange 100 SmallChange 10 之后就可以通過移動滾動條上的滾動塊來放大或縮 小圖片框。程序運行后的窗體如圖 2所示。要求程序中不得使用任何變量。 (1)【操作步驟】 步驟 1：新建一個窗體，在窗體中添加兩個標簽，兩個文本框和一個命令按鈕。 步驟 2：按照步驟 1設(shè)置其他控件相關(guān)屬性，程序用到的控件及其屬性見表 。 表 控件 標簽 1 標簽 2 屬性 Name Caption Name Caption 設(shè)置值 Label1 姓名 Label2 年齡 表 控件 文本框 1 文本框 2 命令按鈕 屬性 Name Text Name Text Caption 設(shè)置值 Text1 Text2 顯示 步驟 3：編寫程序代碼。 參考答案 Private Sub Command1_Click() amp。 ,現(xiàn)年 amp。 amp。 歲 End Sub 步驟 4：調(diào)試并運行程序，關(guān)閉程序后按題目要求存盤。 (2)【操作步 驟】 步驟 1：新建一個窗體，在窗體上添加一個圖片框，一個水平滾動條和一個命令按鈕。 步驟 2：設(shè)置窗體中控件的屬性，控件的屬性見表 。 表 步驟 3：編寫程序代碼。 參考答案 Private Sub Command1_Click() = 1500 = 100 = 100 = 10 End Sub Private Sub HScroll1_Change() = End Sub 步驟 4：調(diào)試并運行程序，關(guān)閉程序后按題目要求存盤。 二、簡單應(yīng)用 （ 1）在考生文件夾下有一個工程文件 (相應(yīng)的窗體文件名為 )，在窗體上添加一個名稱為 List1的列表框和一個名稱為 Text1的文本框，如圖 1所示。編寫窗體的MouseDown事件過程。程序運行后，如果用鼠標左鍵單擊窗體，則從鍵盤上輸入 要添加到列表框中的項目 (內(nèi)容任意，不少于三個 )；如果用鼠標右鍵單擊窗體，則從鍵盤上輸入要刪除的項目，將其從列表框中刪除。程序的運行情況如圖 2所示。這個程序不完整，請把它補充完整，并能正確運行。 （ 2）在考生文件夾下有一個工程文件 (相應(yīng)的窗體文件名為 )，其功能是通過調(diào)用過程 FindMin求數(shù)組的最小值。程序運行后，在四個文本框中各輸入一個整數(shù)，然后單擊命令按鈕，即可求出數(shù)組的最小值，并在窗體上顯示出來 (如圖所示 )。 (1)【操作步驟】 步驟 1：打開本題工程文件，在窗 體中添加一個列表框和一個文本框，按照表 設(shè)置控件屬性。 表 控件 列表框 文本框 屬性 Name Name 設(shè)置值 List1 Text1 步驟 2：分析并編寫程序代碼。 程序提供代碼 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then = InputBox(請輸入要添加的項目 ) 39。 ? End If If Button = 2 Then