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

在名稱(chēng)為Form1，標(biāo)題為“列表框練習(xí)”的窗體上畫(huà)一個(gè)名稱(chēng)為L(zhǎng)ist1的列表框，表項(xiàng)內(nèi)容依次輸入“環(huán)球時(shí)報(bào)”、“人物”、“探索”和“讀者”；再畫(huà)2個(gè)標(biāo)題分別為“復(fù)制”和“移去”的命令按鈕。如圖2所示。

要求：編寫(xiě)適當(dāng)?shù)氖录^(guò)程，使得單擊“復(fù)制”按鈕，可以將選中的列表項(xiàng)內(nèi)容復(fù)制到已有列表項(xiàng)的尾部；單擊“移去”按鈕，可以將選中的列表項(xiàng)內(nèi)容刪除。

注意：存盤(pán)時(shí)，將文件保存至考生文件夾下，窗體文件名為sjt2.frm，工程文件名為sjt2.vbp。要求程序中不得使用變量，每個(gè)事件過(guò)程中只能寫(xiě)一條語(yǔ)句。

[操作步驟] 第1步：新建一個(gè)標(biāo)準(zhǔn)EXE工程，修改窗體Form1的Caption屬性為“列表框練習(xí)”。 第2步：在窗體上畫(huà)一個(gè)列表框控件，在其List屬性中依次輸入“環(huán)球時(shí)報(bào)”、“人物”、“探索”和“讀者”，每一項(xiàng)在List屬性中占一行。 第3步：在窗體上畫(huà)兩個(gè)命令按鈕控件，將第一個(gè)命令按鈕的Caption屬性修改為“復(fù)制”，將第二個(gè)命令按鈕的Caption屬性修改為“移去”。 第4步：編寫(xiě)程序。 Private Sub Command1_Click() List1.AddItem List1

本題考查基本控件列表框和命令按鈕的使用。列表框的列表項(xiàng)由它的List屬性控制，可以通過(guò)屬性窗口沒(méi)置列表項(xiàng)，也可以用程序代碼增減列表項(xiàng)。 增加列表項(xiàng)的方法是： 列表框名.AddItem列表項(xiàng)文本, [列表項(xiàng)下標(biāo)] 省略“列表項(xiàng)下標(biāo)”則將新表項(xiàng)添加到列表項(xiàng)尾部。 移去列表項(xiàng)的方法是： 列表框名.RemoveItem列表項(xiàng)下。 當(dāng)前被選中的列表項(xiàng)的文本內(nèi)容可以從列表框的Text屬性獲得，當(dāng)前被選中的列表項(xiàng)的下標(biāo)可從列表框的ListIndex屬性獲得。