在各領(lǐng)域中，我們最少不了的就是試題了，試題可以幫助主辦方了解考生某方面的知識(shí)或技能狀況。什么樣的試題才能有效幫助到我們呢？下面是小編幫大家整理的計(jì)算機(jī)二級(jí)VB上機(jī)試題及答案，希望對(duì)大家有所幫助。

【資料圖】

（1）在名為Form1的窗體上繪制一個(gè)名為Cmd1的命令按鈕，其標(biāo)題為“移動(dòng)按鈕”。編寫(xiě)適當(dāng)?shù)氖录^(guò)程，使得程序運(yùn)行時(shí)，每單擊命令按鈕一次，該按鈕向右移動(dòng)50，注意：程序中不得使用變量，事件過(guò)程中只能寫(xiě)一條語(yǔ)句；文件必須存放在考生文件夾中，工程文件名為vbsj1.vbp，窗體文件名為vbsj1.frm。

（2）在 Form1 的窗體上繪制一個(gè)名為 Lab1 的"標(biāo)簽框，設(shè)置相關(guān)屬性，使標(biāo)簽有框 架。然后建立一個(gè)名為 mnuOp 的主菜單，其標(biāo)題為“操作”，該菜單有兩個(gè)名稱分為 mnuOpDis 和 mnuOpHide 的菜單項(xiàng)，其標(biāo)題分別為“顯示”和“隱藏”。編寫(xiě)適當(dāng)?shù)氖录^(guò)程，程序運(yùn)行后，若單擊“操作”菜單中的“顯示”命令，則在標(biāo)簽框中顯示“二級(jí) Visual Basic”；如果單擊“隱藏”命令，則隱藏標(biāo)簽框。注意：程序中不得使用任何變量；文件必須存放在考生文件夾中，工程文件名為vbsj2.vbp，窗體文件名為 vbsj2.frm。

第1小題

【審題分析】要實(shí)現(xiàn)本題要求的功能，只需在命令按鈕的單擊事件過(guò)程中，設(shè)置命令按鈕的 Left 屬性值增加50。

【操作步驟】

步驟1：新建一個(gè)"標(biāo)準(zhǔn) EXE"工程，在窗體中畫(huà)一個(gè)名 Cmd1 命令按鈕，并設(shè)置其Caption 屬性值為"移動(dòng)按鈕"。

步驟2：打開(kāi)代碼編輯窗口，編寫(xiě)命令按鈕的 Click 事件過(guò)程。

參考代碼：

Private Sub Cmd1_Click（）

Cmd1.Left = Cmd1.Left + 50

End Sub

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

第2小題

【審題分析】本題需用菜單設(shè)計(jì)器建立菜單，并編寫(xiě)"顯示"和"隱藏"菜單項(xiàng)的單擊事件過(guò)程。

【操作步驟】

步驟1：新建一個(gè)"標(biāo)準(zhǔn) EXE"工程，在窗體 Form1 中畫(huà)一個(gè)標(biāo)簽，在屬性設(shè)置窗口中將其 Name 屬性值設(shè)置為 Lab1，Caption 屬性設(shè)置為空白，BorderStyle 屬性設(shè)置為 1-Fixed Single。

步驟2：選擇【工具】、【菜單編輯器】命令，打開(kāi)菜單設(shè)計(jì)器，按表 53-1 中的設(shè)置建立菜單項(xiàng)。

表 53-1

步驟3：打開(kāi)代碼編輯窗口，編寫(xiě)以下事件過(guò)程：

參考代碼：

Private Sub mnuOpDis_Click（）

Lab1.Visible = True

Lab1.Caption = "二級(jí) Visual Basic"

End Sub

Private Sub mnuOpHide_Click（）

Lab1.Visible = False

End Sub

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