[問答題] 注意：下面出現(xiàn)的“考生文件夾”均為c:wexam25160001。 (1)在考生文件夾中有工程文件sjt3.vbp及其窗體文件sjt3.frm，該程序是不完整的，請在有號的地方填入正確內(nèi)容，然后刪除及所有注釋符(即’號)，但不能修改其他部分。存盤時不得改變文件名和文件夾。 本題描述如下： 在窗體上有一個列表框，名稱為List1，一個文本框，名稱為Text1，和一個命令按鈕，名稱為C1，標(biāo)題為“復(fù)制”。要求程序運行后，在列表框中自動建立4個列表項，分別為“Item1”、“Item2”、“Item3”、“Item4”如果選擇列表框中的一項，則單擊“復(fù)制”按鈕時，可以把該項復(fù)制到文本框中，如圖1-3所示。 (2)在考生文件夾中有工程文件sjt4.vbp及其窗體文件sjt4.frm，該程序是不完整的，請在有號的地方填入正確內(nèi)容，然后刪除及所有注釋符(即’號)但不能修改其他部分。存盤時不得改變文件名和文件夾。 在窗體有3個復(fù)選框，名稱分別為Ch1、Ch2和Ch3，標(biāo)題分別為“體育”、“音樂”、“美術(shù)”，還有一個命令按鈕，名稱為C1，標(biāo)題為“顯示”。要求程序運行后，如果選中某個復(fù)選框，當(dāng)單擊“顯示”命令按鈕時，則顯示相應(yīng)的信息。例如，如果選中“體育”和“美術(shù)”復(fù)選框，單擊“顯示”命令按鈕后，在窗體上顯示“我的愛好是體育美術(shù)”，如圖1-4所示。

第二步：編寫程序代碼。 程序提供的代碼： Option Explicit Private Sub C1_Click() Dim i As Integer ’ For i = To List1.ListCount-1 If List1.Selected(i) = True Then ’ = List1.List(i) End If Next i End Sub Private Sub Form_Load() List 1.AddItem "Item1" List

在窗體上建立好控件后，先設(shè)置控件屬性，再編寫事件過程。 向列表框中添加項目可以用AddItem方法，也可以在屬性窗口中進行。但題目中要求是程序運行后自動添加，所以利用代碼實現(xiàn)。列表框的Text屬性為最后一次選中的表項的文本。解題步驟： 第一步；建立界面并設(shè)置控件屬性。程序中用到的控件及屬性設(shè)置見表1-2。