2012年計算機二級VB上機試題及解題思路第43套

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

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

　　(1)在名稱為Form1的窗體上畫一個名稱為Text1的文本框;畫二個標題分別為“對齊方式”、“字體”，名稱分別為Frame1、Frame2的框架;在Frame1框架中畫三個單選按鈕，標題分別為“左對齊”、“居中”、“右對齊”

　　，名稱分別為Option1、Option2、Option3;在Frame2框架中畫二個單選按鈕，標題分別為“宋體”、“黑體”，名稱分別為Option4、Option5。

　　要求：

　　編寫五個單選按鈕的 Click事件過程，使程序運行時，單擊這些單選按鈕，可以對文本框中的文字實現(xiàn)相應的操作(如圖所示)。

　　注意：

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

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

　　解題思路：

　　啟動Visual Basic系統(tǒng)，創(chuàng)建一個Form1窗體。

　　在該窗體上畫一個文本框控件，通過其屬性窗口將名稱設(shè)為Text1。畫二個框架控件，通過其屬性窗口將名稱分別設(shè)為Frame1、Frame2，標題(Caption屬性)分別設(shè)為“對齊方式”、“字體”。在Frame1框架中畫三個單選按鈕控件，通過其屬性窗口將名稱分別設(shè)為Option1、Option2、Option3，標題(Caption屬性)分別設(shè)為“左對齊”、“居中”、“右對齊”。在Frame2框架中畫二個單選按鈕控件，通過其屬性窗口將名稱分別設(shè)為Option4、Option5，標題(Caption屬性)分別設(shè)為“宋體”、“黑體”。

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

　　Private Sub Option1_Click()

　　Text1.Alignment = 0

　　End Sub

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

　　Private Sub Option2_Click()

　　Text1.Alignment = 2

　　End Sub

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

　　Private Sub Option3_Click()

　　Text1.Alignment = 1

　　End Sub

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

　　Private Sub Option4_Click()

　　Text1.Font = "宋體"

　　End Sub

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

　　Private Sub Option5_Click()

　　Text1.Font = "黑體"

　　End Sub

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

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

　　(2)在考生文件夾下有一個工程文件sjt4.vbp。 其窗體上有一個圓，相當于一個時鐘，當程序運行時通過窗體的Activate 事件過程在圓上產(chǎn)生12個刻度點，并完成其他初始化工作;另有長、短2條(紅色、藍色)直線，名稱分別為Line1和Line2， 表示兩個指針。程序運行時，單擊“開始”按鈕，則每隔0.5秒Line1(長指針)順時針轉(zhuǎn)動一個刻度，Line2(短指針)順時針轉(zhuǎn)動1/12個刻度(即長指針轉(zhuǎn)動一圈，短指針轉(zhuǎn)動一個刻度)，單擊“停止”按鈕，兩個指針停止轉(zhuǎn)動，如圖所示。

　　在窗體文件中已經(jīng)給出了全部控件，但程序不完整，要求去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。

　　提示：

　　程序中的符號常量x0、y0是圓心到窗體左上角的距離，radius是圓的半徑。

　　注意：

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

　　解題思路：

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

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

　　1) 將語句

　　'?

　　改為

　　Timer1.Enabled = False

　　在窗體的Private Sub Form_Activate()事件過程中，有二處地方需要修改。

　　1) 將語句

　　'For k = 0 To 359 Step ?

　　改為

　　For k = 0 To 359 Step 360 / 12

　　2) 將語句

　　'x = radius * Cos(k * 3.14159 / 180) + ?

　　改為

　　x = radius * Cos(k * 3.14159 / 180) + x0

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

　　1) 將語句

　　'Line1.? = y0 - len1 * Sin(a * 3.14159 / 180)

　　改為

　　Line1.Y2 = y0 - len1 * Sin(a * 3.14159 / 180)

　　2) 將語句

　　'b = ? - 30 / 12

　　改為

　　b = b - 30 / 12

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

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

　　相關(guān)推薦：

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

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

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