[問答題] 注意：下面出現(xiàn)的“”均為C：wexam25160002。

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

(1) 在名稱為Form1的窗體上畫一個名稱為Command1的命令按鈕，標(biāo)題為“打開文件”，再畫一個名稱為CD1的通用對話框。程序運行后，如果單擊命令按鈕，則彈出打開文件對話框。請按下列要求設(shè)置屬性并編寫代碼：

設(shè)置適當(dāng)屬性，使對話框的標(biāo)題為“打開文件”；設(shè)置適當(dāng)屬性，使對話框的“文件類型”下拉式組合框中有二行：“文本文件”、“所有文件”，如圖23-1所示，默認(rèn)的類型是“所有文件”；編寫代碼，使得單擊按鈕可以彈出打開文件對話框。要求：程序中不得使用變量，事件過程中只能寫一條語句。

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

(2) 在名稱為Form1的窗體上畫一個命令按鈕，名稱為Command1，標(biāo)題為“移動本按鈕”，如圖 23-2所示。要求編寫適當(dāng)?shù)氖录^程，使得程序運行時，每單擊按鈕一次， 按鈕向左移動100。要求：程序中不得使用變量，事件過程中只能寫一條語句。

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

在窗體上建立好控件后，先設(shè)置控件屬性，再編寫事件過程。 在Visual Basic中，命令按鈕的名稱由Caption屬性設(shè)置。通用對話框的屬性可以在屬性窗口中直接設(shè)置。將 CommonDialog的Name屬性設(shè)置為CD1，文件類型在CommonDialog的Filter屬性中設(shè)置，其格式為： 文件說明|文件類型 本題應(yīng)在Filter屬性中設(shè)置為：文本文件|*.txt|所有文件|*.*。解題步驟： 第一步：建立界面并設(shè)置控件屬性。程序中用到的控件及屬性設(shè)置見表23-1。