| 第 1 頁：基本操作題 |
| 第 3 頁：簡單應(yīng)用題 |
| 第 5 頁：綜合應(yīng)用題 |
二、簡單應(yīng)用題
3(1)在考生文件夾中有工程文件sj3.vbp及其窗體文件sj3.frm，該程序是不完整的，請在有"?"的地方填入正確內(nèi)容，然后刪除"?"及代碼前的所有注釋符(即'號)，但不能修改其他部分。存盤時不得改變文件名和文件夾。
本題描述如下：
在窗體上有一個文本框，名稱為Text1，一個列表框，名稱為List1，一個命令按鈕，名稱為 Command1、標題為"復(fù)制"。要求程序運行后，在列表框中自動建立5個列表項，分別為"Temp1"、"Temp2"、"Temp3"、"Temp4"，"Temp5"如果選擇列表框中的一項，則單擊"復(fù)制"按鈕時，可以把該項復(fù)制到文本框中，如圖18-3所示。
圖18-3
(2)在考生文件夾中有工程文件sj4.vbp及其窗體文件sj4.frm ，該程序是不完整的，請在有"?"的地方填入正確內(nèi)容，然后刪除"?"及代碼前的所有注釋符(即'號)但不能修改其他部分。存盤時不得改變文件名和 文件夾。
在窗體上有4個復(fù)選框，名稱分別為Check1、Check2、Check3和Check4，標題分別為"足球"、"籃球"、"羽毛球"和"排球"，一個標簽，名稱為Label1，還有一個命令按鈕，名稱為Command1，標題為"選擇結(jié)果"。要求程序運行后，如果選中某個復(fù)選框，當單擊"選擇結(jié)果"命令按鈕時，則顯示相應(yīng)的信息。例如，如果選中"足球"和"羽毛球"復(fù)選框，單擊"選擇結(jié)果"命令按鈕后，在標簽上顯示"我喜歡的運動是足球羽毛球"，如圖18-4所示。
圖18-4
參考解析：
(1)向列表框中添加項目可以用AddItem方法，也可以在屬性窗口中設(shè)置。但題目中要求程序運行后自動添加，所以這里應(yīng)該用代碼實現(xiàn)。列表框的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事件，本題程序中主要是判斷復(fù)選按鈕的狀態(tài)和在標簽上顯示復(fù)選按鈕的Caption屬性值，判斷復(fù)選按鈕的狀態(tài)可以通過Value屬性來實現(xiàn)。如果復(fù)選按鈕被選中，則Value值為1，否則Value值為0。把復(fù)選按鈕的Caption屬性值賦給標簽的Caption屬性即可顯示相應(yīng)的文字。補充后的代碼如下：
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
單擊按鈕運行程序，并按要求保存。
相關(guān)推薦：
| 北京 | 天津 | 上海 | 江蘇 | 山東 |
| 安徽 | 浙江 | 江西 | 福建 | 深圳 |
| 廣東 | 河北 | 湖南 | 廣西 | 河南 |
| 海南 | 湖北 | 四川 | 重慶 | 云南 |
| 貴州 | 西藏 | 新疆 | 陜西 | 山西 |
| 寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
| 黑龍江 | 內(nèi)蒙古 |
