二、簡單應用題

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

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

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

　　圖37-3

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

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

　　圖37-4

　　參考解析：

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

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

　　根據題意，將一個文本框控件和兩個命令按鈕添加到窗體中，文本框的名稱為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("輸入個數")) '讀取輸入的個數

　　str = ""

　　For i = 1 To a

　　str = str + "A" '循環寫入大寫字母"A"

　　Next i

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

　　End Sub

　　Private Sub Command2_Click()

　　Dim a As Integer

　　Dim str As String

　　Dim i As Integer

　　a = Val(InputBox("輸入個數")) '讀取輸入的個數

　　str = ""

　　For i = 1 To a

　　str = str + "a" '循環寫入大寫字母"a"

　　Next i

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

　　End Sub

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

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

　　根據題意，將一個水平滾動條控件和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的當前值

　　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

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

　　相關推薦：

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

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

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