一、基本操作題

(1)在名為 Form1 的窗體上建立一個名為 Pic1 的圖片框，兩個名稱分別為 Cmd1 和 Cmd2 的命令按鈕，標題分別為“顯示”和“清除”，如圖 56-1 所示。編寫適當的事件過 程，要求程序運行后，每單擊一次“顯示”按鈕，不使用任何變量，直接在圖片框中顯示 “計算機 VB 考試”;如果單擊“清除”按鈕，則清除圖片框中的內容。

注意：文件必須存放在考生文件夾中，窗體文件名為 vbsj1.frm ，工程文件名為vbsj1.vbp。

(2)在窗體上繪制一個列表框，名為 Lst1，通過屬性窗口向列表框中添加 4 個項目， 分別為“項目 1”、“項目 2”、“項目 3”和“項目 4”。編寫適當的事件過程，使程序運行 后，若雙擊列表框中的某一項，則該項就從列表中消失。程序的運行情況如圖 56-2 所示。

注意：文件必須存放在考生文件夾中，工程文件名為 vbsj2.vbp ，窗體文件名為vbsj2.frm。

二、簡單應用題

(1)在考生文件夾中有工程文件vbsj3.vbp及窗體文件vbsj3.frm。在名為Form1的窗體 上有一個名為Lab1的標簽數組，該數組有4個控件元素，它們的標題分別是Wait、Edit、 Aix和Move，如圖56-3所示。

在程序運行后，將鼠標指針移動到各控件元素上，則鼠標指針的形狀將變成各控件元 素的標題所代表的鼠標指針形狀;離開控件元素，則鼠標指針又變成正常情況下的箭頭形 狀。本程序不完整，請補充完整，并能正確運行。

要求：去掉程序中的注釋符“’”，把程序中的問號“?”改為正確的內容，使其實現上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夾中保存修改后的文件。

(2)在考生文件夾中有一個工程文件 vbsj4.vbp 及其窗體文件 vbsj4.frm。請在名為 Form1 的窗體上繪制兩個名稱分別為 Txt1 和 Txt2 的文本框，文本框的內容分別設置為“計 算機考試”、“Visual Basic”;然后繪制一個名稱為 Labl 的標簽，其高度為 300，寬度為 2500; 再繪制兩個名稱分別為 Opt1 和 Opt2 的單選按鈕，它們的標題分別為“交換”和“連接”; 最后再繪制一個名稱為 Cmd1 的命令按鈕，其標題為“確定”。

編寫適當的事件程序。使得程序運行后，如果選中“交換”單選按鈕并單擊“確定”按鈕，則 Txt1 文本框中內容與 Txt2 文本框中內容進行交換，并在標簽處顯示“交換完成”;如果選中“連接”單選按鈕并單擊“確定”按鈕后，則把交換后的 Txt1 和 Txt2 的內容連接起來，并在標簽處顯示連接的內容，如圖 56-4 所示。保存時，工程文件名為 vbsj4.vbp，窗體文件名為 vbsj4.frm。

注意：不得修改已經給出的程序。在結束程序運行之前，必須選中一個單選按鈕，并單擊“確定”按鈕。退出程序時必須通過單擊窗體右上角的關閉按鈕，否則可能無成績。

三、綜合應用題

在名為 Form1 的窗體上建立一個名為 Txt1 的文本框(其 MultiLine 屬性為 True， ScrollBars 屬性為 2)和兩個名稱分別為 Cmd1 和 Cmd2 的命令按鈕(其標題分別為“讀取” 和“保存”)，如圖 56-5 所示。

要求程序運行后，如果單擊“讀取”按鈕，則讀入 dr1.dat 文件中的 100 個整數，放 入一個數組中(數組下界為 1)，同時在文本框 Txt1 中顯示出來;如果單擊“保存”按鈕，則計算其中前 50 個數之和，并把求和結果在文本框 Txt1 中顯示出來，同時把結果存入考 生文件夾中的文件 dw2.dat 中。

在考生的文件夾下有標準模塊 model.bas，其中的 writedata 過程可以把結果存入指定的文件，考生可以把該模塊文件添加到自己的工程中，直接調用此過程。

注意：文件必須存放在考生文件夾中，窗體文件名為 vbsj5.frm ，工程文件名為vbsj5.vbp，計算結果存入 dw2.dat 文件，否則沒有成績。

一、基本操作題

第 1 小題

【知識點播】①圖片框(PictureBox)主要用于顯示圖片(支持的圖形文件有位圖(bmp)、圖標(ico)、Windows 元文件(wmf))或在其上畫圖，也可用作其他控件的容器，還可在其上直接輸出文本。

②用 Print 方法可以在窗體或圖片框上輸出文本，語法為：object.Print {Spc(n) | Tab(n)}[expression ][charpos]。其中各參數的含義見表 56-1。

③使用 Cls 方法可以清除圖片框上的所有圖形及用 Print 方法輸出的文本。

【審題分析】要實現題中要求的功能，應在顯示按鈕的 Click 事件過程中，用圖片框的 Print 方法輸出字符串計算機 VB 考試，在清除按鈕的 Click 事件過程中，用圖片框的 Cls 方法清除圖片框上的所有內容。

【操作步驟】

步驟 1：新建一個標準 EXE工程，在窗體 Form1 中加入一個圖片框和兩個命令按鈕，分別設置它他們的相關屬性，其屬性及其值見表 56-2。

步驟 2：雙擊窗體 Form1 中的顯示按鈕，在打開的代碼編輯窗口中，輸入代碼。

步驟 3：單擊代碼編輯窗口中的對象下拉列表框，從中選擇 Cmd2，在其 Click 事件過程中輸入代碼：Pic1.Cls。

步驟 4：按要求將文件保存至考生文件夾中。

【考試誤區】在圖片框中顯示文本，應使用 Print 方法，圖片框沒有 Caption 和 Text屬性。

第 2 小題

【知識點播】①列表框控件(ListBox)用于顯示可供單一或多個選擇的列表項，給列表框添加列表項既可以在設計階段通過其 List 屬性設置加入，也可在程序運行時使用AddItem 方法加入。在程序運行時刪除列表框中的項目可以使用 RemoveItem 方法，其語法為：列表框.RemoveItem 索引值，其中，索引值可以指定插入項在列表框中的位置，從 0 開始計數。

【審題分析】雙擊列表框中的某個項目，將觸發其 DblClick 事件，要實現雙擊列表框中的某一項，該項就從列表中消失的功能，只需在 DblClick 事件過程中編寫刪除項目的語句即可。列表框的 ListIndex 屬性可返回當前選擇的項目的索引號，因此刪除選中項目的語句為：Lst1.RemoveItem Lst1.ListIndex。

【操作步驟】

步驟 1：新建一個標準 EXE工程，在窗體 Form1 中加入一個列表框，在屬性設置窗口中將其 Name 屬性設置為 Lst1，在其 List 屬性中添加四個項目，依次為項目 1、項目 2、項目 3和項目 4，注意：每輸入完一項后按鍵換行再輸入下一項。

步驟 2：打開代碼編輯窗口，從窗口上方的對象下拉列表中選擇 Lst1，從過程下拉列表中選擇 DblClick，在該事件過程中輸入代碼。

步驟 3：按要求將文件保存至考生文件夾中。

【考試誤區】本題應編寫列表框控件的 DblClick 事件過程，而非 Click 事件;同時注意，刪除某一列表項使用 RemoveItem，而不是 Cls 方法。

二、簡單應用題

第 1 小題

MousePointer 屬性的可選設置值及含義見表 56-3。

【審題分析】根據題目要求，要使鼠標指針移動到標簽數組各元素上時，鼠標指針的形狀變成各控件元素的標題所代表的鼠標指針形狀，就需在標簽數組的 MouseMove 事件過程中，根據鼠標當前所在標簽數組元素的不同，將窗體的 MousePointer 屬性設置為對應值。題目源程序使用 Select Case 語句來對標簽數組不同索引號(即 Index 屬性值)進行分別處理。要在鼠標指針離開控件元素時，鼠標指針又變成正常情況下的箭頭形狀，需在窗體的MouseMove 事件過程中，設置窗體的 MousePointer 屬性值為 0。

【操作步驟】

步驟 1：打開考生文件中的本題工程文件 vbsj3.vbp，在代碼編輯窗口，去掉程序中的注釋符’，將問號?改為正確的內容。

參考代碼：

Form1.MousePointer = 0

Select Case Index

步驟 2：按要求將文件保存至考生文件夾中。

第 2 小題

【知識點播】+可用于字符串的運算，用于連接兩個字符串。

【審題分析】根據題目要求，本題程序設計思路：在確定按鈕的 Click 事件過程中分別以 Opt1 和 Opt2 是否選中作為 If 語句的條件，當 Opt1 被選中時，將兩個文本框中的內容通過一個中間變 進行交換;當 Opt2 被選中將兩個文本框中的內容連接進來。

【操作步驟】

步驟 1：打開考生文件夾下的本題工程文件 vbs4.vbp。

步驟 2：在窗體 Form1 中加入兩個文本框、一個標簽、兩個單選按鈕和一個命令按鈕，分別設置它們的相關屬性，屬性及其值見表 56-4。

步驟 3：打開代碼編輯窗口輸入如下代碼：

參考代碼：

Private Sub Cmd1_Click()

Dim str As String

If Opt1.Value = True Then

str = Txt1.Text

Txt1.Text = Txt2.Text

Txt2.Text = str

Lab1.Caption = 交換成功

End If

If Opt2.Value = True Then

Lab1.Caption = Txt1.Text + Txt2.Text

End If

End Sub

步驟 4：按要求將文件保存至考生文件夾中。

【考試誤區】在一個容器中的多個單選按鈕只能有一個被選中，由此分出不同分支，理清思路是關鍵。

三、綜合應用題

【審題分析】在讀取按鈕的單擊事件過程中，用 Open 語句以 Input 方式打開數據文件 dr1.dat，通過 For 循環語句(循環變i的初值為 1，終值為 100)將數據文件中的數據用 Input 語句依次讀出并賦值給數組元素 a(i)，同時顯示在文本框中，每個數據項后接 5 個空格(Space(5))以保持一定間隔。在保存按鈕的單擊事件過程中，使用 For 循環語句(循環變i 的初值為 1，終值為 50)將數組中前 50 個元素的值累加到變 Sum 中，循環結束后通過調用標準模塊中的 writedata 過程(以 Sum 為參數)，將結果寫入數據文件 dw2.dat。

【操作步驟】

步驟 1：新建一個標準 EXE工程。

步驟 2：在窗體 Form1 中加入一個文本框和兩個命令按鈕，并分別設置他們的相關屬性，屬性及其值見表 56-5。

步驟 3：選擇【工程】?【添加模塊】命令，打開添加模塊對話框，將考生文件夾下的model.bas 添加到當前工程中。

步驟 4：打開代碼編輯窗口輸入如下代碼：

Dim a(1 To 100) As Integer

Private Sub Cmd1_Click()

Open App.Path & \dr1.dat For Input As #1

Txt1.Text =

For i = 1 To 100

Input #1, a(i)

Txt1.Text = Txt1.Text & a(i) & Space(1)

Next i

Close #1

End Sub

Private Sub Cmd2_Click()

Txt1.Text =

s = 0

For i = 1 To 50

s

Next

= s + a(i)

Txt1.Text = s

writedata dw2.dat, s

End Sub

步驟 5：按要求將文件保存至考生文件夾中。

【考試誤區】本題主要事件過程代碼要求考生自己設計，因此理清程序運行流程是關鍵。

總結

以上是生活随笔為你收集整理的计算机考到贴吧的试题,2014年全国计算机二级VB上机考试试题七的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。