2. 簡單應(yīng)用(2小題,每題20分,計40分)
注意:下面出現(xiàn)的“考生文件夾”均為%USER%
***********************************************************************
(1)在考生目錄下有一個工程文件sjt3.vbp,窗體文件中已給出所有控件和部分程序,如圖所示。
要求:
1)利用屬性窗口設(shè)置適當(dāng)?shù)膶傩,使text1、text2中數(shù)據(jù)右對齊;
2)請編寫適當(dāng)?shù)某绦蛲瓿梢韵鹿δ埽涸赥ext1中輸入40(度數(shù)),選擇一個單選按鈕,單擊“計算”按鈕,則根據(jù)所選擇的單選按鈕, 計算出相應(yīng)的正弦、余弦值(保留3位小數(shù),第4位截去,π取3.14159),并顯示在Text2中。
注意:
考生不得修改窗體文件中已經(jīng)存在的程序,在結(jié)束程序運行之前,必須進行一種計算,在Text1中輸入的必須是40, 必須用窗體右上角的關(guān)閉按鈕結(jié)束程序,否則無成績。最后,程序按原文件名存盤。
解題思路:
啟動Visual Basic系統(tǒng),打開考生文件夾下需編輯的工程文件sjt3.vbp,相應(yīng)的窗體文件名為sjt3.frm。
由于所提供的窗體控件不完整,通過屬性窗口將文本框的對齊格式(Alignment屬性)均設(shè)為1。
由于所提供的窗體程序不完整,需添加事件過程。
單擊“計算”按鈕(即運行Click事件過程),在該Click事件過程中加入語句:
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
請把這些文件復(fù)制到c:\wexam\26990001中,然后打開sjt3.vbp文件并運行。
**********************************************************************
(2)在考生文件夾下有一個工程文件sjt4.vbp,窗體上已經(jīng)給出所有控件。程序運行時,單擊“開始”按鈕,則汽車圖標(biāo)向右運動;單擊“停止”按鈕則汽車停止運動;移動滾動條上的滾動框,可以改變汽車的運動速度(滾動框向右移動,速度減慢)。如圖所示。
要求:
去掉程序中的注釋符,把程序中的 ?改為正確的內(nèi)容。
提示:
窗體上有一個計時器,計時器的事件過程每執(zhí)行一次,汽車向右移動10,程序通過改變計時器控件的Interval屬性來改變汽車的運動速度。
注意:
不得修改控件的屬性。最后,按原文件名存盤。
解題思路:
啟動Visual Basic系統(tǒng),打開考生文件夾下需編輯的工程文件sjt4.vbp,相應(yīng)的窗體文件名為sjt4.frm。
由于所提供的窗體程序不完整,在“開始”按鈕的Private Sub Command1_Click()事件過程中,有一處地方需要修改。
1) 將語句
'Timer1.Enabled = ?
改為
Timer1.Enabled = True
在滾動框的Private Sub HScroll1_Change()事件過程中,有一處地方需要修改。
1) 將語句
'?.Interval = HScroll1.Value
改為
Timer1.Interval = HScroll1.Value
在計時器的Private Sub Timer1_Timer()事件過程中,有一處地方需要修改。
1) 將語句
'Picture1.Left = ? + 10
改為
Picture1.Left = Picture1.Left + 10
參考文件:c:\wexam\26990001\hlpsys\參考答案\sjt4.vbp、sjt4.frm、sjt4.frx、sjt4.vbw
請把這些文件復(fù)制到c:\wexam\26990001中,然后打開sjt4.vbp文件并運行。
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |