2012年計算機(jī)二級VB上機(jī)試題及解題思路第47套

　　2. 簡單應(yīng)用(2小題，每題20分，計40分)

　　注意：下面出現(xiàn)的“考生文件夾”均為%USER%

　　(1)在考生文件夾下有一個工程文件sjt3.vbp。窗體上有名稱為Timer1的定時器，以及名稱為Line1和Line2的兩條水平直線。請用名稱為Shape1的形狀控件，在兩條直線之間畫一個寬和高都相等的形狀，其顯示形式為圓，并設(shè)置適當(dāng)屬性使其滿足以下要求：

　　1)圓的頂端距窗體Form1頂端的距離為360;

　　2)圓的顏色為紅色(紅色對應(yīng)的值為：&H000000FF& 或&HFF&)，如圖所示。

　　程序運行時，Shape1將在Line1和Line2之間運動。當(dāng)Shape1的頂端到達(dá)Line1時，會自動改變方向而向下運動;當(dāng)Shape1的底部到達(dá)Line2時，會改變方向而向上運動。

　　文件中給出的程序不完整，請去掉程序中的注釋符，把程序中的?改為正確內(nèi)容，使其實現(xiàn)上述功能。

　　注意：

　　不能修改程序的其他部分和已給出控件的屬性。最后將修改后的文件按原文件名存盤。

　　解題思路：

　　啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt3.vbp，相應(yīng)的窗體文件名為sjt3.frm。

　　由于所提供的窗體控件不完整，需在該窗體上畫一個形狀控件，通過其屬性窗口將名稱設(shè)為Shape1，F(xiàn)illStyle屬性0，Top屬性設(shè)為360，顏色(FillColo屬性)設(shè)為紅色(對應(yīng)的值為：&H000000FF& 或&HFF&)。

　　由于所提供的窗體程序不完整，在Private Sub Form_Load()事件過程中，有一處地方需要修改。

　　1) 將語句

　　’Timer1.Enabled = ?

　　改為

　　Timer1.Enabled = True

　　在計時器的Private Sub Timer1_Timer()事件過程中，有二處地方需要修改。

　　1) 將語句

　　’If Shape1.Top <= ? Then

　　改為

　　If Shape1.Top <= Line1.Y1 Then

　　2) 將語句

　　’If Shape1.Top + ? >= Line2.Y1 Then

　　改為

　　If Shape1.Top + Shape1.Height >= Line2.Y1 Then

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

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

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

　　1)單擊“讀數(shù)據(jù)”按鈕，可將考生文件夾下in4.dat文件中的100個整數(shù)讀到數(shù)組a 中;

　　2)單擊“計算”按鈕，則根據(jù)從名稱為Combo1的組合框中選中的項目，對數(shù)組a 中的數(shù)據(jù)計算平均值，并將計算結(jié)果四舍五入取整后顯示在文本框Text1中。

　　“讀數(shù)據(jù)”按鈕的Click事件過程已經(jīng)給出，請為“計算”按鈕編寫適當(dāng)?shù)氖录�過程實現(xiàn)上述功能。

　　注意：

　　不得修改已經(jīng)存在的控件和程序，在結(jié)束程序運行之前，必須進(jìn)行一次計算，且必須用窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無成績。最后，程序按原文件名存盤。

　　解題思路：

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

　　由于所提供的窗體程序不完整，需在“計算”命令按鈕的Click事件過程中加入語句：

　　Private Sub Command2_Click()

　　’考生編寫

　　Select Case Combo1.ListIndex

　　Case 0

　　Text1 = even()

　　Case 1

　　Text1 = odd()

　　Case 2

　　Text1 = all()

　　End Select

　　End Sub

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

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

　　相關(guān)推薦：

　　2012年計算機(jī)等考四級數(shù)據(jù)庫工程師備考筆記匯總

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

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