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ù)某绦蛲瓿梢韵鹿δ埽涸赥ext1中輸入40(度數(shù))，選擇一個(gè)單選按鈕，單擊“計(jì)算”按鈕，則根據(jù)所選擇的單選按鈕， 計(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。

　　由于所提供的窗體控件不完整，通過(guò)屬性窗口將文本框的對(duì)齊格式(Alignment屬性)均設(shè)為1。

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

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

　　Private Sub Command1_Click()

　　If Option1.Item(0) = True Then

　　Text2.Text = Format(Sin(Val(Text1.Text) * 3.14159 / 180), "0.000")

　　End If

　　If Option1.Item(1) = True Then

　　Text2.Text = Format(Cos(Val(Text1.Text) * 3.14159 / 180), "0.000")

　　End If

　　End Sub

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

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

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

　　(2)在考生文件夾下有一個(gè)工程文件sjt4.vbp，窗體上已經(jīng)給出所有控件。程序運(yùn)行時(shí)，單擊“開(kāi)始”按鈕，則汽車圖標(biāo)向右運(yùn)動(dòng);單擊“停止”按鈕則汽車停止運(yùn)動(dòng);移動(dòng)滾動(dòng)條上的滾動(dòng)框，可以改變汽車的運(yùn)動(dòng)速度(滾動(dòng)框向右移動(dòng)，速度減慢)。如圖所示。

　　要求：

　　去掉程序中的注釋符，把程序中的 ?改為正確的內(nèi)容。

　　提示：

　　窗體上有一個(gè)計(jì)時(shí)器，計(jì)時(shí)器的事件過(guò)程每執(zhí)行一次，汽車向右移動(dòng)10，程序通過(guò)改變計(jì)時(shí)器控件的Interval屬性來(lái)改變汽車的運(yùn)動(dòng)速度。

　　注意：

　　不得修改控件的屬性。最后，按原文件名存盤。

　　解題思路：

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

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

　　1) 將語(yǔ)句

　　'Timer1.Enabled = ?

　　改為

　　Timer1.Enabled = True

　　在滾動(dòng)框的Private Sub HScroll1_Change()事件過(guò)程中，有一處地方需要修改。

　　1) 將語(yǔ)句

　　'?.Interval = HScroll1.Value

　　改為

　　Timer1.Interval = HScroll1.Value

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

　　1) 將語(yǔ)句

　　'Picture1.Left = ? + 10

　　改為

　　Picture1.Left = Picture1.Left + 10

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

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