<b id="glvx9"></b> 
| 第 1 頁：單選題 |
| 第 5 頁：操作題 |
| 第 6 頁：參考答案 |
二、基本操作題
(1)根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，在窗體空白處單擊右鍵，選擇菜單編輯器添加以下菜單項(xiàng)：
單擊“確定”按鈕，單擊 按鈕運(yùn)行程序，并按要求保存即可。
(2)根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，在窗體中畫一個(gè)框架控件和一個(gè)文本框控件，將框架的名稱設(shè)置為Frame1、Caption屬性設(shè)置為框架、Height、Width屬性分別設(shè)置為2 500、3 500，將文本框的Text屬性設(shè)置為文本框，Left、Top屬性分別設(shè)置為500、1 000。
單擊 按鈕運(yùn)行程序，并按要求保存。
三、簡單應(yīng)用題
(1)向列表框中添加項(xiàng)目可以用AddItem方法，也可以在屬性窗口中設(shè)置。但題目中要求程序運(yùn)行后自動(dòng)添加，所以這里應(yīng)該用代碼實(shí)現(xiàn)。列表框的Text屬性為最后一次選中的表項(xiàng)的文本，也就是要顯示在
文本框中的。補(bǔ)充后的代碼如下：
Private Sub Form_Load()
List1.AddItem"Temp1" ’加入元素l
List1.Addhem"Temp2" ’加入元素2
List1.AddItem"Temp3"
List1.AddItem"Temp4"
last1.AddItem"Temp5"
End Sub
Private Sub Command1Click()
Text1_Text=List1.Text’將List1中選中的文本賦值給Text1的文本
End St,b
單擊 按鈕運(yùn)行程序，并按要求保存。
(2)單擊命令按鈕觸發(fā)Click事件，本題程序中主要是判斷復(fù)選按鈕的狀態(tài)和在標(biāo)簽上顯示復(fù)選按鈕的Caption屬性值，判斷復(fù)選按鈕的狀態(tài)可以通過Value屬性來實(shí)現(xiàn)。如果復(fù)選按鈕被選中，則Value值為1， 否則Value值為0。把復(fù)選按鈕的Caption屬性值賦給標(biāo)簽的Caption屬性即可顯示相應(yīng)的文字。補(bǔ)充后的代碼如下：
Privat(Sub Command1 Click()
Dim str As String
str="我喜歡的運(yùn)動(dòng)是"
If Cheek1.Value Then
str=str+Check1.Caption
Else
str=str
End If
If Cheek2 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
單擊 按鈕運(yùn)行程序，并按要求保存。
相關(guān)推薦：
2014年全國計(jì)算機(jī)二級考試VF上機(jī)沖刺試卷匯總
| 北京 | 天津 | 上海 | 江蘇 | 山東 |
| 安徽 | 浙江 | 江西 | 福建 | 深圳 |
| 廣東 | 河北 | 湖南 | 廣西 | 河南 |
| 海南 | 湖北 | 四川 | 重慶 | 云南 |
| 貴州 | 西藏 | 新疆 | 陜西 | 山西 |
| 寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
| 黑龍江 | 內(nèi)蒙古 |