2013年計(jì)算機(jī)二級(jí)VB上機(jī)模擬試題及答案（5）

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

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

　　***********************************************************************

　　(1)在考生目錄下有一個(gè)工程文件sjt3.vbp，包含了所有控件和部分程序，如圖所示。

　　要求：

　　1)利用屬性窗口設(shè)置適當(dāng)?shù)膶傩�，使Text1、Text2中數(shù)據(jù)右對(duì)齊;

　　2)請(qǐng)編寫適當(dāng)?shù)某绦蛲瓿梢韵鹿δ埽?在Text1中輸入40(度數(shù))，選擇組合框中的一個(gè)項(xiàng)目，單擊“計(jì)算”按鈕，則根據(jù)所選擇的項(xiàng)目，計(jì)算出相應(yīng)的正弦、余弦值(保留3位小數(shù)，第4位截去，π取3.14159)，并顯示在Text2中。

　　注意：

　　考生不得修改窗體文件中已經(jīng)存在的程序， 在結(jié)束程序運(yùn)行之前，必須進(jìn)行一種計(jì)算;在Text1中輸入的必須是40;必須用窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無(wú)成績(jī)。最后，按原文件名存盤。

　　解題思路：

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

　　對(duì)該窗體上的二個(gè)文本框，通過(guò)其屬性窗口將Alignment屬性都設(shè)為1。

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

　　Private Sub Command1_Click()

　　Const PI = 3.14159

　　Select Case Combo1.Text

　　Case "sin": a = Sin(CInt(Text1.Text) * PI / 180)

　　Case "cos": a = Cos(CInt(Text1.Text) * PI / 180)

　　Case "tg": a = Tan(CInt(Text1.Text) * PI / 180)

　　Case "ctg": a = 1 / Tan(CInt(Text1.Text) * PI / 180)

　　End Select

　　Text2 = Int(a * 1000) / 1000

　　End Sub

　　另外特別注意需在Text1中輸入的值必須是40，而且結(jié)束程序時(shí)必須用窗體右上角的關(guān)閉按鈕來(lái)結(jié)束程序，否則該部分將沒(méi)有成績(jī)。

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

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

　　**********************************************************************

　　(2)在考生文件夾下有一個(gè)工程文件sjt4.vbp，窗體上已經(jīng)畫出所有控件。程序的作用是構(gòu)成一個(gè)簡(jiǎn)單的時(shí)鐘。剛運(yùn)行時(shí)，不計(jì)時(shí)，選擇一個(gè)單選按鈕后，再單擊“計(jì)時(shí)”按鈕，則開(kāi)始計(jì)時(shí)，并根據(jù)所選的單選按鈕決定是每秒顯示一次秒數(shù)，還是每10秒顯示一次秒數(shù)。Text2 用于顯示秒，如圖所示。窗體文件中已經(jīng)給出了程序，但不完整，請(qǐng)去掉程序中的注釋符，把程序中的 ?改為正確的內(nèi)容。

　　注意：

　　不得修改已經(jīng)給出的程序。最后把修改后的文件按原文件名存盤。

　　解題思路：

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

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

　　1) 將語(yǔ)句

　　'num = ?

　　改為

　　num = num + 1

　　2) 將語(yǔ)句

　　'Text2.Text = Text2.Text + ?

　　改為

　　Text2.Text = Text2.Text + 10

　　3) 將語(yǔ)句

　　'Text1.Text = Text1.Text + ?

　　改為

　　Text1.Text = Text1.Text + 1

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

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

　　**********************************************************************