四、綜合應(yīng)用題

　　本題主要考查滾動條的屬性和IF語句的使用。

　　滾動條常用于取代數(shù)據(jù)的鍵盤輸入，通過調(diào)整滾動條滑塊的位置即可改變其Value屬性的值。滾動條的Max屬性、Min屬性限定了滾動條所能表示的最大值和最小值，即Value屬性值的取值范圍，在程序中改變Value屬性的值，滾動條滑塊會隨之移動到相應(yīng)位置。

　　InputBox()函數(shù)用于顯示一個輸入框，提示用戶輸入一個數(shù)據(jù)，該函數(shù)返回值默認為字符串類型。在代碼窗口編寫如下代碼：

　　Private Sub Command1_Click()

　　Dim a As Integer

　　a=Val(InputBox("請輸入數(shù)值"))

　　’通過輸入對話框輸入數(shù)值

　　If a>HScroll1.Max Then

　　’如果數(shù)值大于滾動條的最大值

　　C1s

　　Print"輸入的數(shù)值太大"

　　’在窗件上顯示“輸入的數(shù)值太大”

　　Elself a　　’如果數(shù)值小于滾動條的最小值

　　Cls

　　Print"輸入的數(shù)值太小"

　　’在窗件上顯示“輸入的數(shù)值太小”

　　Else

　　C1s

　　HScroll1.Value=a

　　’如果在范圍內(nèi)，則將滾動條移動指定的距離

　　End If

　　End Sub

　　單擊 按鈕運行程序，并按要求保存。

　　相關(guān)推薦：

　　2014年計算機等級考試時間調(diào)整通知

　　2014年全國計算機二級VB上機考試試題匯總

　　2014計算機等級《二級VB》上機預測題及答案匯總

　　考試吧考后首發(fā)2014年3月計算機等考真題及答案通