2013年計算機二級VB上機模擬試題及答案（1）

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

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

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

　　(1)在名稱為Form1的窗體上畫一個名稱為Text1的文本框，其高、寬分別為400、2000。請在屬性框中設(shè)置適當(dāng)?shù)膶傩詽M足以下要求：

　　1)Text1的字體為“黑體”，字號為“四號”;

　　2)窗體的標題為“輸入”，不顯示最大化按鈕和最小化按鈕。運行后的窗體如圖所示。

　　注意：

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

　　解題思路：

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

　　在該窗體上畫一個文本框控件，通過其屬性窗口將名稱設(shè)為Text1，高(Height屬性)設(shè)為400，寬(Width屬性)設(shè)為2000，點擊Font屬性在彈出的字體對話框中將字體設(shè)為“黑體”，大小設(shè)為“四號”。激活Form1窗體，通過其屬性窗口將標題(Caption屬性)設(shè)為“輸入”，最大化按鈕(MaxButton屬性)設(shè)為False，最小化按鈕(MinButton屬性)設(shè)為False。

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

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

　　(2)在名稱為Form1的窗體上畫一個名稱為Image1的圖象框，利用屬性窗口裝入考生目錄下的圖象文件 pic1.bmp，并設(shè)置適當(dāng)屬性使其中的圖象可以適應(yīng)圖象框大小;再畫兩個命令按鈕，名稱分別為Command1、Command2，

　　標題分別為“向右移動”、“向下移動”。請編寫適當(dāng)?shù)氖录�過程， 使得在運行時，每單擊“向右移動”按鈕一次，圖象框向右移動100;每單擊“向下移動”按鈕一次，圖象框向下移動100。運行時的窗體如圖所示。要求程序中不得使用變量，事件過程中只能寫一條語句。

　　注意：

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

　　解題思路：

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

　　在該窗體上畫一個圖象框控件，通過其屬性窗口將名稱設(shè)為Image1，通過其Picture屬性將pic1.jpg裝入圖片框，Stretch屬性設(shè)為True。畫二個命令按鈕控件，通過其屬性窗口將名稱分別設(shè)為Command1、Command2，標題(Caption屬性)設(shè)為“向右移動”、“向下移動”。

　　單擊“向右移動”按鈕(即運行Click事件過程)，在該Click事件過程中加入語句：

　　Private Sub Command1_Click()

　　Image1.Left = Image1.Left + 100

　　End Sub

　　單擊“向下移動”按鈕(即運行Click事件過程)，在該Click事件過程中加入語句：

　　Private Sub Command2_Click()

　　Image1.Top = Image1.Top + 100

　　End Sub