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

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

(1) 在名稱為Form1的窗體上放置兩個(gè)列表框，名稱分別為L(zhǎng)ist1和List2。在List1中添加“第一題”、“第二題”……“第八題”，并設(shè)置MultiSelect屬性為2(要求在控件屬性中設(shè)置實(shí)現(xiàn))。再放置一個(gè)名稱為Cmd1，標(biāo)題為“復(fù)制”的命令按鈕。程序運(yùn)行后，如果單擊“復(fù)制”按鈕，將List1中選中的內(nèi)容(至少兩項(xiàng))復(fù)制到List2中。如果選擇的項(xiàng)數(shù)少于2項(xiàng)，用消息框提示“請(qǐng)選擇至少兩項(xiàng)”。如圖17-1所示。

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

(2) 在名稱為Form1的窗體上放置一個(gè)名稱為Text1的文本框。程序運(yùn)行后，用戶在文本框中輸入的英文字母一律用大寫顯示(要求焦點(diǎn)在最右端)。如圖17-2所示。

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

在窗體上建立好控件后，先設(shè)置控件屬性，再編寫事件過程。 自列表框中添加項(xiàng)目可以用事件AddItem事件，也可以在屬性窗口中進(jìn)行，但題目中要求是在屬性窗口添加所以選擇利用屬性實(shí)現(xiàn)的。列表框的Text屬性為最后一次選中的表項(xiàng)的文本，且每次一定要不少于兩次，少于的話會(huì)用msgbox給出提示。解題步驟： 第一步：建立界面并設(shè)置控件屬性。程序中用到的控件及其屬性見表AG-A。 表 AG-A 控　件