第 1 頁(yè):基本操作 |
第 2 頁(yè):簡(jiǎn)單應(yīng)用 |
第 3 頁(yè):綜合應(yīng)用 |
注意:下面出現(xiàn)的“考生文件夾”均為%USER%
(1)在名稱(chēng)為Form1的窗體上畫(huà)二個(gè)圖片框,名稱(chēng)分別為P1、P2,高度均為1900,寬度均為 1700,通過(guò)屬性窗口把圖片文件pic1.bmp放入P1中,把圖片文件pic2.jpg放入 P2中;再畫(huà)一個(gè)命令按鈕,名稱(chēng)為C1,標(biāo)題為“交換圖片”(如圖所示)。 編寫(xiě)適當(dāng)?shù)氖录^(guò)程,使得在運(yùn)行時(shí),如果單擊命令按鈕,則在P1中顯示Pic2.jpg,在P2中顯示Pic1.bmp。程序中不得使用任何變量,也不能使用第三個(gè)圖片框。
*注意:
存盤(pán)時(shí)必須存放在考生文件夾下,工程文件名為sjt3.vbp,窗體文件名為sjt3.frm。
解題思路:
啟動(dòng)Visual Basic系統(tǒng),創(chuàng)建一個(gè)Form1窗體。
在該窗體上畫(huà)二個(gè)圖片框控件,通過(guò)其屬性窗口將名稱(chēng)分別設(shè)為P1、P2,高(Height屬性)均設(shè)為1900,寬(Width屬性)均設(shè)為1700,通過(guò)Picture屬性將pic1.bmp裝入P1圖片框中、pic2.jpg裝入P1圖片框中。畫(huà)一個(gè)命令按鈕控件,通過(guò)其屬性窗口將名稱(chēng)設(shè)為C1,標(biāo)題(Caption屬性)設(shè)為“交換圖片”。
單擊“交換圖片”按鈕(即運(yùn)行Click事件過(guò)程),在該Click事件過(guò)程中加入語(yǔ)句:
Private Sub C1_Click()
P1.Picture = LoadPicture("pic2.jpg")
P2.Picture = LoadPicture("pic1.bmp")
End Sub
參考文件:c:\wexam\26990001\hlpsys\參考答案\sjt3.vbp、sjt3.frm、sjt3.frx、sjt3.vbw
請(qǐng)把這些文件復(fù)制到c:\wexam\26990001中,然后打開(kāi)sjt3.vbp文件并運(yùn)行。
(2)在考生文件夾下有一個(gè)工程文件 sjt4.vbp,請(qǐng)?jiān)诖绑w上畫(huà)二個(gè)復(fù)選框,名稱(chēng)分別為 Ch1、Ch2,標(biāo)題分別為“程序設(shè)計(jì)”、“數(shù)據(jù)庫(kù)原理”;然后畫(huà)一個(gè)文本框,名稱(chēng)為T(mén)ext1;再畫(huà)一個(gè)命令按鈕,名稱(chēng)為C1,標(biāo)題為“確定” (如圖所示)。請(qǐng)編寫(xiě)適當(dāng)?shù)氖录^(guò)程,使得在運(yùn)行時(shí),選中復(fù)選框并單擊“確定”按鈕, 就可以按照下表的要求把結(jié)果顯示在文本框中。存盤(pán)時(shí),工程文件名為sjt4.vbp,窗體文件名為sjt4.frm。
注意:
考生不得修改窗體文件中已經(jīng)存在的程序,退出程序時(shí)必須通過(guò)單擊窗體右上角的關(guān)閉按鈕。在結(jié)束程序運(yùn)行之前,必須進(jìn)行產(chǎn)生下表一個(gè)結(jié)果的操作。
解題思路:
啟動(dòng)Visual Basic系統(tǒng),打開(kāi)考生文件夾下需編輯的工程文件sjt4.vbp,相應(yīng)的窗體文件名為sjt4.frm。
由于所提供的窗體控件不完整,需在該窗體上畫(huà)二個(gè)復(fù)選框控件,通過(guò)其屬性窗口將名稱(chēng)分別設(shè)為Ch1、Ch2,標(biāo)題(Caption屬性)分別設(shè)為“程序設(shè)計(jì)”、“數(shù)據(jù)庫(kù)原理”。畫(huà)一個(gè)文本框控件,通過(guò)其屬性窗口將名稱(chēng)設(shè)為T(mén)ext1。畫(huà)一個(gè)命令按鈕控件,通過(guò)其屬性窗口將名稱(chēng)設(shè)為C1,標(biāo)題(Caption屬性)設(shè)為“確定”。
單擊“確定”按鈕(即運(yùn)行Click事件過(guò)程),在該Click事件過(guò)程中加入語(yǔ)句:
Private Sub C1_Click()
Text1.Text = "我選的課是"
If Ch1.Value Then
Text1.Text = Text1.Text + Ch1.Caption
End If
If Ch2.Value = 1 Then
Text1.Text = Text1.Text + Ch2.Caption
End If
End Sub
參考文件:c:\wexam\26990001\hlpsys\參考答案\sjt4.vbp、sjt4.frm、sjt4.vbw、out4.txt
請(qǐng)把這些文件復(fù)制到c:\wexam\26990001中,然后打開(kāi)sjt4.vbp文件并運(yùn)行。
相關(guān)推薦:
2012年計(jì)算機(jī)等考四級(jí)數(shù)據(jù)庫(kù)工程師備考筆記匯總
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |