二、簡單應(yīng)用題

　　3(1)在考生文件夾下有工程文件sj3.vbp及窗體文件sj3.frm，該程序是不完整的，請在有"?"的地方添入正確的內(nèi)容，然后刪除"?"及代碼前的所有注釋符(即'號)，但不能修改其他部分。存盤時不得改變文件名和文件夾。

　　本題描述如下：在窗體上畫一個名稱為Text1的文本框和兩個命令按鈕，其名稱分別為Command1和Command2、標(biāo)題分別"大寫A"和"小寫a"。要求程序運行后，如果單擊"大寫A"命令按鈕，則彈出對話框，輸入要顯示的個數(shù)，根據(jù)輸入的數(shù)值在文本框中顯示相應(yīng)數(shù)量的大寫字符串A;如果單擊"小寫a"命令按鈕，也彈出對話框，輸入要顯示的個數(shù)，根據(jù)輸入的數(shù)值在文本框中顯示相應(yīng)數(shù)量的小寫字符串a(chǎn)。

　　程序運行時的窗體界面如圖37-3所示。

　　圖37-3

　　(2)在考生文件夾下有工程文件sj4.vbp及窗體文件sj4.frm，請在有"?"的地方正確內(nèi)容，然后刪除"?"及代碼前的所有注釋符(即'號)，但不能修改其他部分。編寫程序使程序運行時滿足下列的條件。存盤時不得改變文件名和文件夾。

　　本題描述如下：在窗體上有一個名稱為HScroll1的水平滾動條(Min為400，Max為2000)和3個名稱分別為Command1、Command2和Command3、標(biāo)題分別為"減200"、"顯示"和"加200"的命令按鈕。程序運行后，如果單擊"減200"命令按鈕，則滾動塊向左滾動200單位;如果單擊"顯示"命令按鈕，則顯示當(dāng)前滾動條的值;如果單擊"加200"命令按鈕，則滾動塊向右滾動200單位。程序運行時效果如圖37-4所示。

　　圖37-4

　　參考解析：

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

　　InputBox()函數(shù)用于顯示一個輸入框，提示用戶輸入一個數(shù)據(jù)，該函數(shù)返回值默認為字符串類型，其常用語法格式為：InputBox(Prompt[,Title][,Default])。其中，Prompt字符串為輸入框上顯示的提示文本;Title字符串在輸入框的標(biāo)題欄上顯示;Default字符串為輸入框的缺省文本。

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

　　Private Sub Command1_Click()

　　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中顯示結(jié)果

　　End Sub

　　Private Sub Command2_Click()

　　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中顯示結(jié)果

　　End Sub

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

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

　　根據(jù)題意，將一個水平滾動條控件和3個命令按鈕添加到窗體中，水平滾動條的名稱為HScroll1、Min屬性為400、Max屬性為2000，命令按鈕的名稱分別為Command1、Command2和Command3，Caption屬性分別為"減200""顯示"和"加200"。雙擊Command1進入代碼窗口，編寫如下代碼：

　　Private Sub Command1_Click()

　　If HScroll1.Value - 200 < HScroll1.Min Then '如果移動后小于最小值

　　HScroll1.Value = HScroll1.Min '則HScroll1的值為最小值

　　Else '否則

　　HScroll1.Value = HScroll1.Value - 200 'HScroll1的值減200

　　End If

　　End Sub

　　Private Sub Command2_Click()

　　Cls '先清空窗體

　　Print HScroll1.Value '在窗口上顯示HScroll1的當(dāng)前值

　　End Sub

　　Private Sub Command3_Click()

　　If HScroll1.Value + 200 > HScroll1.Max Then '如果移動后大于最大值

　　HScroll1.Value = HScroll1.Max '則Hscroll1的值為最大值

　　Else '否則

　　HScroll1.Value = HScroll1.Value + 200 'hscroll1的值加200

　　End If

　　End Sub

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

　　相關(guān)推薦：

　　2015年計算機二級考試《VB》考前練習(xí)題匯總

　　2015年計算機二級考試《VB》考前預(yù)測試卷匯總

　　2015計算機二級考試《VB》模擬練習(xí)題及解析匯總