2013年計(jì)算機(jī)二級(jí)VB上機(jī)模擬試題及答案（5）

　　1. 基本操作(2小題，每小題15分，共計(jì)30分)

　　注意：下面出現(xiàn)的“考生文件夾”均為%USER%

　　**********************************************************************

　　請根據(jù)以下各小題的要求設(shè)計(jì)Visual Basic應(yīng)用程序(包括界面和代碼)。

　　(1)在名稱為Form1 的窗體上畫一個(gè)名稱check1的復(fù)選框數(shù)組(Index屬性從0開始)，含三個(gè)復(fù)選框，其標(biāo)題分別為“語文”、“數(shù)學(xué)”、“體育”，利用屬性窗口設(shè)置適當(dāng)?shù)膶傩裕�使“語文”未選，“數(shù)學(xué)”被選中，“體育”為灰色，再把窗體的標(biāo)題設(shè)置為“選課”，如圖所示。

　　注意：

　　存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名為sjt1.frm。

　　解題思路：

　　啟動(dòng)Visual Basic系統(tǒng)，創(chuàng)建一個(gè)Form1窗體。

　　在該窗體上畫一個(gè)復(fù)選框控件，通過對復(fù)選框控件的復(fù)制產(chǎn)生復(fù)選框控件數(shù)組，共有三個(gè)復(fù)選框，標(biāo)題(Caption屬性)分別設(shè)為“語文”、“數(shù)學(xué)”、“體育”，“數(shù)學(xué)”的Value屬性設(shè)為1,“體育”的Value屬性設(shè)為2。激活Form1窗體，通過其屬性窗口將標(biāo)題(Caption屬性)設(shè)為“選課”。

　　參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt1.vbp、sjt1.frm、sjt1.vbw

　　請把這些文件復(fù)制到c:\wexam\26990001中，然后打開sjt1.vbp文件并運(yùn)行。

　　**********************************************************************

　　(2)在名稱為Form1的窗體上畫兩個(gè)文本框，名稱分別為Text1、Text2，再畫兩個(gè)命令按鈕，名稱分別為Command1、Command2，標(biāo)題分別為“復(fù)制”、“刪除”。程序運(yùn)行時(shí)，在Text1中輸入一串字符，并用鼠標(biāo)拖拽的方法選擇幾個(gè)字符，然后單擊“復(fù)制”按鈕，則被選中的字符被復(fù)制到Text2中(如圖所示)。若單擊“刪除”按鈕，則被選擇的字符從Text1中被刪除。請編寫兩個(gè)命令按鈕的Click過程完成上述功能。

　　注意：

　　要求程序中不得使用變量，事件過程中只能寫一條語句。

　　存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm。

　　解題思路：

　　啟動(dòng)Visual Basic系統(tǒng)，創(chuàng)建一個(gè)Form1窗體。

　　在該窗體上畫二個(gè)文本框控件，通過其屬性窗口將名稱分別設(shè)為Text1、Text2。畫二個(gè)命令按鈕控件，通過其屬性窗口將名稱分別設(shè)為Command1、Command2，標(biāo)題(Caption屬性)分別設(shè)為“復(fù)制”、“刪除”。

　　單擊“復(fù)制”按鈕(即運(yùn)行Click事件過程)，在該Click事件過程中加入語句：

　　Private Sub Command1_Click()

　　Text2 = Text1.SelText

　　End Sub

　　單擊“刪除”按鈕(即運(yùn)行Click事件過程)，在該Click事件過程中加入語句：

　　Private Sub Command2_Click()

　　Text1.SelText = ""

　　End Sub

　　參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt2.vbp、sjt2.frm、sjt2.vbw

　　請把這些文件復(fù)制到c:\wexam\26990001中，然后打開sjt2.vbp文件并運(yùn)行。