注意：下面出現的“考生文件夾”均為%USER%

　　***********************************************************************

　　(1)在名稱為Form1的窗體上畫一個計時器，其名稱為Timer1;再畫一個圖像框，其名稱為Image1，在該圖像框中裝入一個圖形文件pic.ico;然后畫一個水平滾動條， 其名稱為HScroll1， Min屬性值為100，Max屬性值為1200，LargeChange屬性值為100，SmallChange屬性值為25，編寫適當的事件過程。 程序運行后，可以使圖像框閃爍，其閃爍速度可以通過滾動條調節。

　　提示：

　　圖像框的閃爍可以通過圖像框交替地顯示和隱藏來實現。

　　要求：

　　程序中不得使用變量，每個事件過程中只能寫一條語句。

　　注意：

　　存盤時必須存放在考生文件夾下，工程文件名為sjt3.vbp，窗體文件名

　　為sjt3.frm。

　　解題思路：

　　啟動Visual Basic系統，創建一個Form1窗體。

　　在該窗體上畫一個計時器控件，通過其屬性窗口將名稱設為Timer1。畫一個圖像框，通過其屬性窗口將名稱設為Image1，通過Picture屬性將圖形文件pic.ico裝入。畫一個水平滾動條，通過其屬性窗口將名稱設為HScroll1，Min屬性設為100，Max屬性設為1200，LargeChange屬性設為100，SmallChange屬性設為25。

　　點擊滾動條(即運行Change事件過程)，在Change事件過程中加入語句：Timer1.Interval =HScroll1.Value。還需在計時器的Timer事件過程中加入語句：Image1.Visible = Not Image1.Visible，即完

　　成了圖像框交替地顯示和隱藏功能。

　　參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt3.vbp、sjt3.frm、sjt3.frx、sjt3.vbw

　　請把這些文件復制到c:\wexam\26990001中，然后打開sjt3.vbp文件并運行。

　　**********************************************************************

　　(2)在考生目錄下有一個工程文件sjt4.vbp，包含了所有控件和部分程序，如圖所示。

　　要求：

　　1)利用屬性窗口設置適當的屬性:

　　為List1列表框添加3個項目：宋體、黑體、楷體_GB2312;Text1文本框設置初始值為“計算機”;Hscroll1水平滾動條設置最小值和最大值分別為10和50。

　　2)去掉程序中的注釋符，把程序中的 ?改為正確的內容， 完成以下功能：如果在列表框中選擇一種字體，然后移動滾動條中的滾動框，則可使文本框中的文字按所選擇的字體顯示，并可隨著滾動框的移動放大或縮小;如果不選擇字體直接移動滾動框，則顯示一個信息框，提示“請選擇字體”。

　　注意：

　　去掉程序中的注釋符，把程序中的 ?改為正確的內容， 使其實現上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。

　　解題思路：

　　啟動Visual Basic系統，打開考生文件夾下需編輯的工程文件sjt4.vbp，相應的窗體文件名為sjt4.frm。

　　由于所提供的窗體控件不完整，通過屬性窗口向列表框中添加項目(List屬性)，添加的項目分別為：宋體、黑體、楷體_GB2312，每個項目為一行。通過屬性窗口將文本內容(Text屬性)設為“計算機”。通過屬性窗口將水平滾動條最小值(Min屬性)設為10，最大值(Max屬性)設為50。

　　由于所提供的窗體程序不完整，在水平滾動條的Private Sub HScroll1_Change()事件過程中，有二處地方

　　需要修改。

　　1) 將語句

　　'Text1.FontSize = ?

　　改為

　　Text1.FontSize = HScroll1.Value

　　2) 將語句

　　'Text1.FontName = ?

　　改為

　　Text1.FontName = List1.Text

　　參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt4.vbp、sjt4.frm、sjt4.frx、sjt4.vbw

　　請把這些文件復制到c:\wexam\26990001中，然后打開sjt4.vbp文件并運行。

　　相關推薦：

　　2012年計算機等考四級數據庫工程師備考筆記匯總

　　2012年計算機等級考試二級VB重點知識匯總

　　2012年下半年計算機等級考試報名時間及入口匯總