2014計(jì)算機(jī)等級(jí)《二級(jí)VB》上機(jī)考試預(yù)測(cè)題及答案5

　　三、簡(jiǎn)單應(yīng)用題

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

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

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

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

　　Private Sub Command1Click()

　　Dim a As Integer

　　Dim str As String

　　Dim i As Integer

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

　　str=""

　　For i=1 To a

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

　　Next i

　　Text1.Text=str’在Text1中顯示結(jié)果

　　End Sub

　　Private Sub Command2 Click()

　　Dim a As In,eger

　　Dim str As String

　　Dim i As Inleger

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

　　str=""

　　For i=1 To a

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

　　Next i

　　Text1.Text=str’在Text1中顯示結(jié)果

　　End Sub

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

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

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

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

　　相關(guān)推薦：

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

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

　　考試吧推薦：2014年3月計(jì)算機(jī)二級(jí)考前沖刺備考專題