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

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

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

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

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

　　要求：

　　編寫五個(gè)單選按鈕的 Click事件過(guò)程，使程序運(yùn)行時(shí)，單擊這些單選按鈕，可以對(duì)文本框中的文字實(shí)現(xiàn)相應(yīng)的操作(如圖所示)。

　　注意：

　　要求程序中不得使用變量，每個(gè)事件過(guò)程中只能寫一條語(yǔ)句。

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

　　解題思路：

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

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

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

　　Private Sub Option1_Click()

　　Text1.Alignment = 0

　　End Sub

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

　　Private Sub Option2_Click()

　　Text1.Alignment = 2

　　End Sub

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

　　Private Sub Option3_Click()

　　Text1.Alignment = 1

　　End Sub

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

　　Private Sub Option4_Click()

　　Text1.Font = "宋體"

　　End Sub

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

　　Private Sub Option5_Click()

　　Text1.Font = "黑體"

　　End Sub

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

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

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

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

　　提示：

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

　　注意：

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

　　解題思路：

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

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

　　1) 將語(yǔ)句

　　'?

　　改為

　　Timer1.Enabled = False

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

　　1) 將語(yǔ)句

　　'For k = 0 To 359 Step ?

　　改為

　　For k = 0 To 359 Step 360 / 12

　　2) 將語(yǔ)句

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

　　改為

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

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

　　1) 將語(yǔ)句

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

　　改為

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

　　2) 將語(yǔ)句

　　'b = ? - 30 / 12

　　改為

　　b = b - 30 / 12

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

　　請(qǐng)把這些文件復(fù)制到c:\wexam\26990001中，然后打開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í)間及入口匯總