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

　　2. 簡(jiǎn)單應(yīng)用(2小題，每題20分，計(jì)40分)

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

　　(1)在考生文件夾下有一個(gè)工程文件sjt3.vbp。窗體上有名稱(chēng)為T(mén)imer1的定時(shí)器，以及名稱(chēng)為L(zhǎng)ine1和Line2的兩條水平直線(xiàn)。請(qǐng)用名稱(chēng)為Shape1的形狀控件，在兩條直線(xiàn)之間畫(huà)一個(gè)寬和高都相等的形狀，其顯示形式為圓，并設(shè)置適當(dāng)屬性使其滿(mǎn)足以下要求：

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

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

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

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

　　注意：

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

　　解題思路：

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

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

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

　　1) 將語(yǔ)句

　　’Timer1.Enabled = ?

　　改為

　　Timer1.Enabled = True

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

　　1) 將語(yǔ)句

　　’If Shape1.Top <= ? Then

　　改為

　　If Shape1.Top <= Line1.Y1 Then

　　2) 將語(yǔ)句

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

　　改為

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

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

　　請(qǐng)把這些文件復(fù)制到c:\wexam\26990001中，然后打開(kāi)sjt3.vbp文件并運(yùn)行。

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

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

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

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

　　注意：

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

　　解題思路：

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

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

　　Private Sub Command2_Click()

　　’考生編寫(xiě)

　　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

　　請(qǐng)把這些文件復(fù)制到c:\wexam\26990001中，然后打開(kāi)sjt4.vbp文件并運(yùn)行。

　　相關(guān)推薦：

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

　　2012年計(jì)算機(jī)等級(jí)考試二級(jí)VB重點(diǎn)知識(shí)匯總

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