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

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

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

　　(1)在考生文件夾下有一個(gè)工程文件sjt3.vbp，窗體上有一個(gè)矩形和一個(gè)圓，還有垂直和水平滾動(dòng)條各一個(gè)。程序運(yùn)行時(shí)，移動(dòng)某個(gè)滾動(dòng)條的滾動(dòng)塊，可使圓做相應(yīng)方向的移動(dòng)。滾動(dòng)條刻度值的范圍是圓可以在矩形中移動(dòng)的范圍。以水平滾動(dòng)條為例，滾動(dòng)塊在最左邊時(shí)，圓靠在矩形的左邊線上，見(jiàn)圖(a);滾動(dòng)塊在最右邊時(shí)，圓靠在矩形的右邊線上，見(jiàn)圖(b)。垂

　　直滾動(dòng)條的情況與此類似。

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

　　注意：

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

　　解題思路：

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

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

　　1) 將語(yǔ)句

　　'HScroll1.Max = Shape2.Width + Shape2.Left - Shape1.?

　　改為

　　HScroll1.Max = Shape2.Width + Shape2.Left - Shape1.Width

　　2) 將語(yǔ)句

　　'VScroll1.Max = Shape2.Height + ? - Shape1.Height

　　改為

　　VScroll1.Max = Shape2.Height + Shape2.Top - Shape1.Height

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

　　1) 將語(yǔ)句

　　'? = HScroll1.Value

　　改為

　　Shape1.Left = HScroll1.Value

　　在垂直滾動(dòng)條的Private Sub VScroll1_Change()事件過(guò)程中，有一處地方需要修改

　　1) 將語(yǔ)句

　　'Shape1.Top = ?

　　改為

　　Shape1.Top = VScroll1

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

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

　　(2)在考生文件夾下有一個(gè)工程文件sjt4.vbp。窗體中已經(jīng)給出了所有控件，如圖所示。運(yùn)行時(shí)，單擊“發(fā)射”按鈕，航天飛機(jī)圖標(biāo)將向上運(yùn)動(dòng)，速度逐漸加快，全部進(jìn)入云中后則停止，并把飛行距離(用坐標(biāo)值表示)、所用時(shí)間(單位為秒)分別顯示在標(biāo)簽Label1和Label2中;單擊“保存”按鈕，則把飛行距離、所用時(shí)間存入考生文件夾下的out4.txt文件中。

　　已經(jīng)給出了程序，但不完整，請(qǐng)去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。

　　注意：

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

　　解題思路：

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

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

　　1) 將語(yǔ)句

　　'Timer1.? = True

　　改為

　　Timer1.Enabled = True

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

　　1) 將語(yǔ)句

　　'? = False

　　改為

　　Timer1.Enabled = False

　　2) 將語(yǔ)句

　　'd = ? - Image1.Top

　　改為

　　d = d - Image1.Top

　　3) 將語(yǔ)句

　　't = ?

　　改為

　　t = t + 1

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

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