2014年3月計(jì)算機(jī)二級(jí)考試VF臨考預(yù)測(cè)試卷及答案8

　　二、基本操作題

　　(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)行程序，并按要求保存。

　　三、簡(jiǎ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年全國(guó)計(jì)算機(jī)二級(jí)考試VF上機(jī)沖刺試卷匯總

　　考試吧考后首發(fā)2014年3月計(jì)算機(jī)二級(jí)真題及答案通知

　　考試吧推薦：2014年3月計(jì)算機(jī)二級(jí)考前沖刺備考專題