二、簡單應用題

　　3(1)在考生文件夾中有工程文件sj3.vbp及其窗體文件sj3.frm，該程序是不完整的，請在有"?"的地方填入正確內容，然后刪除"?"及代碼前的所有注釋符(即'號)，但不能修改其他部分。存盤時不得改變文件名和文件夾。

　　本題描述如下：

　　在窗體上有一個文本框，名稱為Text1，一個列表框，名稱為List1，一個命令按鈕，名稱為 Command1、標題為"復制"。要求程序運行后，在列表框中自動建立5個列表項，分別為"Temp1"、"Temp2"、"Temp3"、"Temp4"，"Temp5"如果選擇列表框中的一項，則單擊"復制"按鈕時，可以把該項復制到文本框中，如圖18-3所示。

　　圖18-3

　　(2)在考生文件夾中有工程文件sj4.vbp及其窗體文件sj4.frm ，該程序是不完整的，請在有"?"的地方填入正確內容，然后刪除"?"及代碼前的所有注釋符(即'號)但不能修改其他部分。存盤時不得改變文件名和 文件夾。

　　在窗體上有4個復選框，名稱分別為Check1、Check2、Check3和Check4，標題分別為"足球"、"籃球"、"羽毛球"和"排球"，一個標簽，名稱為Label1，還有一個命令按鈕，名稱為Command1，標題為"選擇結果"。要求程序運行后，如果選中某個復選框，當單擊"選擇結果"命令按鈕時，則顯示相應的信息。例如，如果選中"足球"和"羽毛球"復選框，單擊"選擇結果"命令按鈕后，在標簽上顯示"我喜歡的運動是足球羽毛球"，如圖18-4所示。

　　圖18-4

　　參考解析：

　　(1)向列表框中添加項目可以用AddItem方法，也可以在屬性窗口中設置。但題目中要求程序運行后自動添加，所以這里應該用代碼實現。列表框的Text屬性為最后一次選中的表項的文本，也就是要顯示在文本框中的。補充后的代碼如下：

　　Private Sub Form_Load()

　　List1.AddItem "Temp1" '加入元素1

　　List1.AddItem "Temp2" '加入元素2

　　List1.AddItem "Temp3"

　　List1.AddItem "Temp4"

　　List1.AddItem "Temp5"

　　End Sub

　　Private Sub Command1_Click()

　　Text1.Text = List1.Text '將List1中選中的文本賦值給Text1的文本

　　End Sub

　　單擊按鈕運行程序，并按要求保存。

　　(2) 單擊命令按鈕觸發(fā)Click事件，本題程序中主要是判斷復選按鈕的狀態(tài)和在標簽上顯示復選按鈕的Caption屬性值，判斷復選按鈕的狀態(tài)可以通過Value屬性來實現。如果復選按鈕被選中，則Value值為1，否則Value值為0。把復選按鈕的Caption屬性值賦給標簽的Caption屬性即可顯示相應的文字。補充后的代碼如下：

　　Private Sub Command1_Click()

　　Dim str As String

　　str = "我喜歡的運動是"

　　If Check1.Value Then

　　str = str + Check1.Caption

　　Else

　　str = str

　　End If

　　If Check2.Value Then

　　str = str + Check2.Caption

　　Else

　　str = str

　　End If

　　If Check3.Value Then

　　str = str + Check3.Caption

　　Else

　　str = str

　　End If

　　If Check4.Value Then

　　str = str + Check4.Caption

　　Else

　　str = str

　　End If

　　Label1.Caption = str

　　End Sub

　　Private Sub Form_Load()

　　Label1.Caption = ""

　　End Sub

　　單擊按鈕運行程序，并按要求保存。

　　相關推薦：

　　2015年計算機二級考試《VB》考前練習題匯總

　　2015年計算機二級考試《VB》考前預測試卷匯總

　　2015年9月計算機等級考試各科目考前必做試題

　　2015年計算機二級《C語言》沖刺試題及答案匯總