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

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

　　(1)在考生目錄下有一個(gè)工程文件sjt3.vbp。窗體上有個(gè)鐘表圖案，其中代表指針的直線的名稱是Line1， 還有一個(gè)名稱為L(zhǎng)abel1的標(biāo)簽，和其他一些控件(如圖 1所示)。在運(yùn)行時(shí)，若用鼠標(biāo)左鍵單擊圓的邊線，則指針指

　　向鼠標(biāo)單擊的位置(如圖 2所示);若用鼠標(biāo)右鍵單擊圓的邊線，則指針恢復(fù)到起始位置(如圖 1所示);若鼠標(biāo)左鍵或右鍵單擊其他位置，則在標(biāo)簽上顯示“鼠標(biāo)位置不對(duì)”。

　　文件中已經(jīng)給出了所有控件和程序，但程序不完整，請(qǐng)去掉程序中的注釋符，把程序中的 ? 改為正確的內(nèi)容。程序中的oncircle函數(shù)的作用是判斷鼠標(biāo)單擊的位置是否在圓的邊線上( 判斷結(jié)果略有誤差 )，是則返回True，否則返回False。 符號(hào)常量x0、y0是圓心距窗體左上角的距離;符號(hào)常量radius是圓的半徑。

　　注意：

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

　　解題思路：

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

　　由于所提供的窗體程序不完整，在鼠標(biāo)單擊的Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)事件過(guò)程中，有四處地方需要修改。

　　1) 將語(yǔ)句

　　’Line1.Y2 = ?

　　改為

　　Line1.Y2 = Y

　　2) 將語(yǔ)句

　　’Line1.X2 = Line1.?

　　改為

　　Line1.X2 = Line1.X1

　　3) 將語(yǔ)句

　　’Line1.Y2 = y0 - ?

　　改為

　　Line1.Y2 = y0 - 750

　　4) 將語(yǔ)句

　　’? = "鼠標(biāo)位置不對(duì)"

　　改為

　　Label1 = "鼠標(biāo)位置不對(duì)"

　　參考文件：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，窗體如圖所示。其功能是單擊“輸入數(shù)據(jù)”按鈕，則可輸入一個(gè)整數(shù)n( 要求：8<=n<=12);單擊“計(jì)算”按鈕，則計(jì)算1!+2!+3!+ … +n!，并將計(jì)算結(jié)果顯示在文本框中;單擊

　　“存盤(pán)”按鈕， 則把文本框中的結(jié)果保存到考生目錄下的 out4.dat文件中。

　　文件中已經(jīng)給出了所有控件和程序，但程序不完整，請(qǐng)去掉程序中的注釋符，把程序中的 ?改為正確的內(nèi)容，并編寫(xiě)“計(jì)算”按鈕的Click事件過(guò)程。

　　注意：

　　不得修改已經(jīng)存在的內(nèi)容和控件屬性，在結(jié)束程序運(yùn)行之前，必須用“存盤(pán)”按鈕存儲(chǔ)計(jì)算結(jié)果，否則無(wú)成績(jī)。最后把修改后的文件按原文件名存盤(pán)。

　　解題思路：

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

　　由于所提供的窗體程序不完整，需添加事件過(guò)程。

　　單擊“計(jì)算”按鈕(即運(yùn)行Click事件過(guò)程)，在該Click事件過(guò)程中加入語(yǔ)句：

　　Private Sub Command2_Click()

　　Dim s As Long, k As Integer

　　s = 0

　　For k = 1 To n

　　s = s + f(k)

　　Next

　　Text1 = s

　　End Sub

　　在“輸入數(shù)據(jù)”按鈕的Private Sub Command1_Click()事件過(guò)程中，有一處地方需要修改。

　　1) 將語(yǔ)句

　　’If n > ? Or n < 8 Then

　　改為

　　If n > 12 Or n < 8 Then

　　在函數(shù)的Function f(n As Integer) As Long事件過(guò)程中，有二處地方需要修改。

　　1) 將語(yǔ)句

　　’s = ?

　　改為

　　s = 1

　　2) 將語(yǔ)句

　　’f = ?

　　改為

　　f = s

　　參考文件：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ù)工程師備考筆記匯總

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

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