二、基本操作題

　　(1)根據題意，新建“標準EXE”工程，在窗體空白處單擊右鍵，選擇菜單編輯器添加以下菜單項：

　　單擊“確定”按鈕，單擊 按鈕運行程序，并按要求保存即可。

　　(2)根據題意，新建“標準EXE”工程，在窗體中畫一個框架控件和一個文本框控件，將框架的名稱設置為Frame1、Caption屬性設置為框架、Height、Width屬性分別設置為2 500、3 500，將文本框的Text屬性設置為文本框，Left、Top屬性分別設置為500、1 000。

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

　　三、簡單應用題

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

　　文本框中的。補充后的代碼如下：

　　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

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

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

　　Privat(Sub Command1 Click()

　　Dim str As String

　　str="我喜歡的運動是"

　　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

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

　　相關推薦：

　　2014年全國計算機二級考試VF上機沖刺試卷匯總

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

　　考試吧推薦：2014年3月計算機二級考前沖刺備考專題