2. 簡單應用(2小題，每題20分，計40分)

　　注意：下面出現的“考生文件夾”均為%USER%

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

　　直滾動條的情況與此類似。

　　已經給出了全部控件和程序，但程序不完整，請去掉程序中的注釋符，把程序中的 ?改為正確的內容。

　　注意：

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

　　解題思路：

　　啟動Visual Basic系統，打開考生文件夾下需編輯的工程文件sjt3.vbp，相應的窗體文件名為sjt3.frm。

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

　　1) 將語句

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

　　改為

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

　　2) 將語句

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

　　改為

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

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

　　1) 將語句

　　'? = HScroll1.Value

　　改為

　　Shape1.Left = HScroll1.Value

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

　　1) 將語句

　　'Shape1.Top = ?

　　改為

　　Shape1.Top = VScroll1

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

　　請把這些文件復制到c:\wexam\26990001中，然后打開sjt3.vbp文件并運行。

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

　　已經給出了程序，但不完整，請去掉程序中的注釋符，把程序中的?改為正確的內容。

　　注意：

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

　　解題思路：

　　啟動Visual Basic系統，打開考生文件夾下需編輯的工程文件sjt4.vbp，相應的窗體文件名為sjt4.frm。

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

　　1) 將語句

　　'Timer1.? = True

　　改為

　　Timer1.Enabled = True

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

　　1) 將語句

　　'? = False

　　改為

　　Timer1.Enabled = False

　　2) 將語句

　　'd = ? - Image1.Top

　　改為

　　d = d - Image1.Top

　　3) 將語句

　　't = ?

　　改為

　　t = t + 1

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

　　請把這些文件復制到c:\wexam\26990001中，然后打開sjt4.vbp文件并運行。

　　相關推薦：

　　2012年計算機等考四級數據庫工程師備考筆記匯總

　　2012年計算機等級考試二級VB重點知識匯總

　　2012年下半年計算機等級考試報名時間及入口匯總