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

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

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

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

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

　　注意：

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

　　解題思路：

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

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

　　1) 將語句

　　’Line1.Y2 = ?

　　改為

　　Line1.Y2 = Y

　　2) 將語句

　　’Line1.X2 = Line1.?

　　改為

　　Line1.X2 = Line1.X1

　　3) 將語句

　　’Line1.Y2 = y0 - ?

　　改為

　　Line1.Y2 = y0 - 750

　　4) 將語句

　　’? = "鼠標位置不對"

　　改為

　　Label1 = "鼠標位置不對"

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

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

　　(2)在考生目錄下有一個工程文件sjt4.vbp，窗體如圖所示。其功能是單擊“輸入數據”按鈕，則可輸入一個整數n( 要求：8<=n<=12);單擊“計算”按鈕，則計算1!+2!+3!+ … +n!，并將計算結果顯示在文本框中;單擊

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

　　文件中已經給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把程序中的 ?改為正確的內容，并編寫“計算”按鈕的Click事件過程。

　　注意：

　　不得修改已經存在的內容和控件屬性，在結束程序運行之前，必須用“存盤”按鈕存儲計算結果，否則無成績。最后把修改后的文件按原文件名存盤。

　　解題思路：

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

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

　　單擊“計算”按鈕(即運行Click事件過程)，在該Click事件過程中加入語句：

　　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

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

　　1) 將語句

　　’If n > ? Or n < 8 Then

　　改為

　　If n > 12 Or n < 8 Then

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

　　1) 將語句

　　’s = ?

　　改為

　　s = 1

　　2) 將語句

　　’f = ?

　　改為

　　f = s

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

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

　　相關推薦：

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

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

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