[問(wèn)答題] 有一個(gè)工程文件ylc6.vbp，它的功能是在文本框中輸入一個(gè)整數(shù)，單擊“移動(dòng)”按鈕后，如果輸入的是正數(shù)，滾動(dòng)條中的滾動(dòng)框向右移動(dòng)與該數(shù)相等的刻度，但如果超過(guò)了滾動(dòng)條的最大刻度，則不移動(dòng)，并且顯示“文本框中的數(shù)值太大”；如果輸入的是負(fù)數(shù)，則滾動(dòng)框向左移動(dòng)與該數(shù)相等的刻度，但如果超過(guò)了滾動(dòng)條的最小刻度，則不移動(dòng)，并且顯示“文本框中的數(shù)值太小”，如圖18所示。

題目中提供的“移動(dòng)”按鈕控件Command1的Click事件的源代碼如下：

Private Sub Command1_Click()

Dim nCount As Integer

nCount=CInt(Text1.Text)

If(nCount＞=)Then

HScroll1.Value=HScroll1.Max

Else

If (nCount＜=HScroll1.Min) Then

=HScroll1.Min

MsgBox("文本框中的數(shù)字太小")

Else

HScroll1.Value=

End If

End If

End Sub

注意：不能修改程序中的其他部分，不能修改控件的屬性，最后把修改后的程序以原來(lái)的文件名存盤。存盤時(shí)必須存放在考生文件夾下。

操作步驟 (1)在Visual Basic集成環(huán)境中選擇“文件”→“打開(kāi)工程”命令，在對(duì)話框中選擇 ylc6.vbp工程文件，單擊“確定”按鈕打開(kāi)。 (2)選擇工具箱中的TextBox控件，在窗口上拖動(dòng)，創(chuàng)建該控件命名為Text1，設(shè)置屬性為空。 (3)選擇工具箱中的CommandButton控件，在窗口中拖動(dòng)并畫(huà)出該控件。在屬性編輯框命名為Command1，標(biāo)題設(shè)置為“移動(dòng)”。 (4)選擇工具箱中的HScrollBar控件，在窗口上拖動(dòng)創(chuàng)建該控件，命名為HScroll1，在屬性窗口根據(jù)題目的要求

(1)本題考查考生對(duì)HScrollBar相關(guān)屬性的設(shè)置，包括對(duì)HScrollBar控件的最大、最小值的設(shè)置，滾動(dòng)設(shè)置，以及判斷語(yǔ)句的運(yùn)用和實(shí)現(xiàn)顯示用戶提示信息。 (2)注意HScrollBar控件的最大、最小值設(shè)置，滾動(dòng)條的值設(shè)置，CommandButton控件的Click事件處理的功能。 (3)在每次單擊“移動(dòng)”按鈕后，將文本框中的數(shù)值與HScrollBar的Max屬性值和Min屬性值進(jìn)行比較。若超出HScrollBar的值域范圍則彈出太大或太小提示信息，否則移動(dòng)滾動(dòng)條。