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

　　本題主要考查滾動(dòng)條的屬性和IF語句的使用。

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

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

　　Private Sub Command1_Click()

　　Dim a As Integer

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

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

　　If a>HScroll1.Max Then

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

　　C1s

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

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

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

　　Cls

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

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

　　Else

　　C1s

　　HScroll1.Value=a

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

　　End If

　　End Sub

　　單擊 按鈕運(yùn)行程序，并按要求保存。

　　相關(guān)推薦：

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

　　2014年全國計(jì)算機(jī)二級(jí)VB上機(jī)考試試題匯總

　　2014計(jì)算機(jī)等級(jí)《二級(jí)VB》上機(jī)預(yù)測題及答案匯總

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