| 第 1 頁(yè)：基本操作題 |
| 第 3 頁(yè)：簡(jiǎn)單應(yīng)用題 |
| 第 5 頁(yè)：綜合應(yīng)用題 |
二、簡(jiǎn)單應(yīng)用題
3(1)在考生文件夾下有工程文件sj3.vbp及窗體文件sj3.frm，該程序是不完整的，請(qǐng)?jiān)谟??"的地方添入正確的內(nèi)容，然后刪除"?"及代碼前的所有注釋符(即'號(hào))，但不能修改其他部分。存盤(pán)時(shí)不得改變文件名和文件夾。
本題描述如下：在窗體上畫(huà)一個(gè)名稱(chēng)為T(mén)ext1的文本框和兩個(gè)命令按鈕，其名稱(chēng)分別為Command1和Command2、標(biāo)題分別"大寫(xiě)A"和"小寫(xiě)a"。要求程序運(yùn)行后，如果單擊"大寫(xiě)A"命令按鈕，則彈出對(duì)話框，輸入要顯示的個(gè)數(shù)，根據(jù)輸入的數(shù)值在文本框中顯示相應(yīng)數(shù)量的大寫(xiě)字符串A;如果單擊"小寫(xiě)a"命令按鈕，也彈出對(duì)話框，輸入要顯示的個(gè)數(shù)，根據(jù)輸入的數(shù)值在文本框中顯示相應(yīng)數(shù)量的小寫(xiě)字符串a(chǎn)。
程序運(yùn)行時(shí)的窗體界面如圖37-3所示。
圖37-3
(2)在考生文件夾下有工程文件sj4.vbp及窗體文件sj4.frm，請(qǐng)?jiān)谟??"的地方正確內(nèi)容，然后刪除"?"及代碼前的所有注釋符(即'號(hào))，但不能修改其他部分。編寫(xiě)程序使程序運(yùn)行時(shí)滿(mǎn)足下列的條件。存盤(pán)時(shí)不得改變文件名和文件夾。
本題描述如下：在窗體上有一個(gè)名稱(chēng)為HScroll1的水平滾動(dòng)條(Min為400，Max為2000)和3個(gè)名稱(chēng)分別為Command1、Command2和Command3、標(biāo)題分別為"減200"、"顯示"和"加200"的命令按鈕。程序運(yùn)行后，如果單擊"減200"命令按鈕，則滾動(dòng)塊向左滾動(dòng)200單位;如果單擊"顯示"命令按鈕，則顯示當(dāng)前滾動(dòng)條的值;如果單擊"加200"命令按鈕，則滾動(dòng)塊向右滾動(dòng)200單位。程序運(yùn)行時(shí)效果如圖37-4所示。
圖37-4
參考解析：
(1)本題主要考查考生對(duì)For循環(huán)、文本框內(nèi)容的顯示和InputBox()函數(shù)的理解。
InputBox()函數(shù)用于顯示一個(gè)輸入框，提示用戶(hù)輸入一個(gè)數(shù)據(jù)，該函數(shù)返回值默認(rèn)為字符串類(lèi)型，其常用語(yǔ)法格式為：InputBox(Prompt[,Title][,Default])。其中，Prompt字符串為輸入框上顯示的提示文本;Title字符串在輸入框的標(biāo)題欄上顯示;Default字符串為輸入框的缺省文本。
根據(jù)題意，將一個(gè)文本框控件和兩個(gè)命令按鈕添加到窗體中，文本框的名稱(chēng)為T(mén)ext1，Text屬性為空，命令按鈕的名稱(chēng)分別為Command1和Command2\Caption屬性分別為"大寫(xiě)A"和"小寫(xiě)a"。雙擊Command1進(jìn)入代碼窗口，補(bǔ)充后的代碼如下：
Private Sub Command1_Click()
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)寫(xiě)入大寫(xiě)字母"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("輸入個(gè)數(shù)")) '讀取輸入的個(gè)數(shù)
str = ""
For i = 1 To a
str = str + "a" '循環(huán)寫(xiě)入大寫(xiě)字母"a"
Next i
Text1.Text = str '在Text1中顯示結(jié)果
End Sub
單擊
按鈕運(yùn)行程序，并按要求保存。
(2)滾動(dòng)條常用于取代數(shù)據(jù)的鍵盤(pán)輸入，通過(guò)調(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)條的名稱(chēng)為HScroll1、Min屬性為400、Max屬性為2000，命令按鈕的名稱(chēng)分別為Command1、Command2和Command3，Caption屬性分別為"減200""顯示"和"加200"。雙擊Command1進(jìn)入代碼窗口，編寫(xiě)如下代碼：
Private Sub Command1_Click()
If HScroll1.Value - 200 < HScroll1.Min Then '如果移動(dòng)后小于最小值
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 '如果移動(dòng)后大于最大值
HScroll1.Value = HScroll1.Max '則Hscroll1的值為最大值
Else '否則
HScroll1.Value = HScroll1.Value + 200 'hscroll1的值加200
End If
End Sub
單擊按鈕運(yùn)行程序，并按要求保存。
相關(guān)推薦：
2015年計(jì)算機(jī)二級(jí)考試《VB》考前練習(xí)題匯總
| 北京 | 天津 | 上海 | 江蘇 | 山東 |
| 安徽 | 浙江 | 江西 | 福建 | 深圳 |
| 廣東 | 河北 | 湖南 | 廣西 | 河南 |
| 海南 | 湖北 | 四川 | 重慶 | 云南 |
| 貴州 | 西藏 | 新疆 | 陜西 | 山西 |
| 寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
| 黑龍江 | 內(nèi)蒙古 |
