一、基本操作題

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

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

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

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

二、簡單應(yīng)用題

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

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

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

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

編寫適當(dāng)?shù)氖录绦颉Ｊ沟贸绦蜻\行后，如果選中“交換”單選按鈕并單擊“確定”按鈕，則 Txt1 文本框中內(nèi)容與 Txt2 文本框中內(nèi)容進行交換，并在標(biāo)簽處顯示“交換完成”;如果選中“連接”單選按鈕并單擊“確定”按鈕后，則把交換后的 Txt1 和 Txt2 的內(nèi)容連接起來，并在標(biāo)簽處顯示連接的內(nèi)容，如圖 56-4 所示。保存時，工程文件名為 vbsj4.vbp，窗體文件名為 vbsj4.frm。

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

三、綜合應(yīng)用題

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

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

在考生的文件夾下有標(biāo)準(zhǔn)模塊 model.bas，其中的 writedata 過程可以把結(jié)果存入指定的文件，考生可以把該模塊文件添加到自己的工程中，直接調(diào)用此過程。

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

一、基本操作題

第 1 小題

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

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

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

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

【操作步驟】

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

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

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

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

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

第 2 小題

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

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

【操作步驟】

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

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

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

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

二、簡單應(yīng)用題

第 1 小題

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

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

【操作步驟】

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

參考代碼：

Form1.MousePointer = 0

Select Case Index

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

第 2 小題

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

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

【操作步驟】

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

步驟 2：在窗體 Form1 中加入兩個文本框、一個標(biāo)簽、兩個單選按鈕和一個命令按鈕，分別設(shè)置它們的相關(guān)屬性，屬性及其值見表 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：按要求將文件保存至考生文件夾中。

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

三、綜合應(yīng)用題

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

【操作步驟】

步驟 1：新建一個標(biāo)準(zhǔn) EXE工程。

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

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

步驟 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：按要求將文件保存至考生文件夾中。

【考試誤區(qū)】本題主要事件過程代碼要求考生自己設(shè)計，因此理清程序運行流程是關(guān)鍵。

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。