三、簡單應用題

　　(1)本題主要考查考生對For循環(huán)、文本框內容的顯示和InputBox()函數(shù)的理解。

　　InputBox()函數(shù)用于顯示一個輸入框，提示用戶輸入一個數(shù)據(jù)，該函數(shù)返回值默認為字符串類型，其常

　　用語法格式為：InputBox(PromptE，Title][，Default])。其中，Prompt字符串為輸入框上顯示的提示文本;Title字符串在輸入眶的標題欄上顯示;Default字符串為輸入框的缺省文本。

　　根據(jù)題意，將一個文本框控件和兩個命令按鈕添加到窗體中，文本框的名稱為Text1、Text屬性為空，命令按鈕的名稱分別為Command1和Command2、Caption屬性分別為“大寫A”和“小寫a”。雙擊Corn—mand1講入代碼窗口，補充后的代碼如下.

　　Private Sub Command1Click()

　　Dim a As Integer

　　Dim str As String

　　Dim i As Integer

　　a=Val(InputBox("輸入個數(shù)")) ’讀取輸入的個數(shù)

　　str=""

　　For i=1 To a

　　str=str+"A" ’循環(huán)寫入大寫字母“A”

　　Next i

　　Text1.Text=str’在Text1中顯示結果

　　End Sub

　　Private Sub Command2 Click()

　　Dim a As In,eger

　　Dim str As String

　　Dim i As Inleger

　　a=Val(InputBox("輸入個數(shù)")) ’讀取輸入的個數(shù)

　　str=""

　　For i=1 To a

　　str=str+"a" ’循環(huán)寫入小寫字母“a”

　　Next i

　　Text1.Text=str’在Text1中顯示結果

　　End Sub

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

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

　　根據(jù)題意，將一個水平滾動條控件和3個命令按鈕添加到窗體中，水平滾動條的名稱為HScroll1、Min

　　屬性為400、Max屬性為2 000，命令按鈕的名稱分別為Command1、Command2和Command3，Caption屬性分別為“減200”、“顯示”和“加200”。雙擊Command1進入代碼窗口，編寫如下代碼：

　　相關推薦：

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

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

　　考試吧推薦：2014年3月計算機二級考前沖刺備考專題