[多項(xiàng)選擇題] 請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)Visual Basic應(yīng)用程序(包括界面和代碼)。

1．在考生文件夾下打開工程sjt3.vbp，在窗體Form1上建立一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1，標(biāo)題為“計(jì)算”的命令按鈕(如圖2—1所示)。程序運(yùn)行后，單擊“計(jì)算”命令按鈕，通過(guò)在對(duì)話框輸入整數(shù)10，放入整形變量a中，然后計(jì)算a!，(提示：運(yùn)算結(jié)果應(yīng)放入Long型變量中)，在文本框中顯示結(jié)果，并把結(jié)果存入文件out3.txt中。在考生文件夾中有一個(gè)標(biāo)準(zhǔn)模塊mode.bas，該模塊中提供了保存文件的過(guò)程putdata，考生可以直接調(diào)用。

注意：保存時(shí)必須存放在考生文件夾下，窗體文件名為sjt3.frm，工程文件名為sjt3.vbp。

2．在名稱為Form1的窗體上畫一個(gè)驅(qū)動(dòng)器列表框，其名稱為Driver1，再畫一個(gè)目錄列表框，其名稱為Dir1；然后添加一個(gè)文件列表框，名稱為File1。請(qǐng)?jiān)O(shè)置適當(dāng)?shù)目丶傩院途帉戇m當(dāng)?shù)氖录^(guò)程，使得在運(yùn)行時(shí)，實(shí)現(xiàn)驅(qū)動(dòng)器列表框、目錄列表框和文件列表框的同步操作，且在列表框中只顯示后綴名為exe的文件；如果雙擊文件列表框中的文件，則執(zhí)行該文件(如圖2—2所示)。程序中不得使用任何變量。已知；可以用Shell函數(shù)來(lái)運(yùn)行可執(zhí)行文件。

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

① 首先將模塊文件mode.bas添加到工程中，模塊中包含的過(guò)程如下： Sub putdata(t_filename As String,t_str As Variant) Dim stile As String sfile＝"."&& t filename Open App. Path && sfile For Output As #A Print #A,t_str Close #A End Sub ② 編寫命令按鈕的事件過(guò)程： Private Sub CommandA_Click