二、簡單應(yīng)用題
第 1 小題
【知識點播】①KeyPreview 屬性用于設(shè)置是否在控件的鍵盤事件之前激活窗體的鍵盤事件,鍵盤事件有 KeyDown、KeyUp 和 KeyPress。②KeyDown(KeyCode As Integer,Shift as Integer)事件是在對象具有焦點時,按下鍵盤上的鍵時觸發(fā)該對象的事件,其中 KeyCode 參數(shù)是表示所按鍵的位置信息的代碼,Shift 參數(shù)代表按鍵時 Shift、Ctrl、Alt 鍵的狀態(tài)。
【審題分析】本題程序設(shè)計思路:在窗體的 KeyDown 事件過程中,先后用兩個 If 語句判斷當(dāng)前鍵盤上按下的是否是鍵或鍵,若是鍵則通過輸入框輸入內(nèi)容,顯示在文本框中,并添加到列表框中;若是鍵則通過輸入框輸入內(nèi)容,顯示在文本框中, 利用 For 循環(huán)語句逐一判斷列表框中的各項是否與文本框中的內(nèi)容一致,若一致則刪除該項目。ListCount 屬性可返回列表框中當(dāng)前的列表項總數(shù),由于循環(huán)的初值為 0,故終值就應(yīng)為 Lst1.ListCount-1。
【操作步驟】
步驟 1:打開考生文件中的本題工程文件 vbsj3.vbp,按表 53-2 在窗體中畫出控件并設(shè)置其相關(guān)屬性。
表 53-2
步驟 2:在代碼編輯窗口,去掉程序中的注釋符"’",將問號"?"改為正確的內(nèi)容。
參考代碼:
Lst1.AddItem Txt1.Text
For i = 0 To Lst1.ListCount - 1
If Lst1.List(i) = Txt1.Text Then
Lt1.RemoveItem i
步驟 3:按要求將文件保存至考生文件夾中。
第 2 小題
【知識點播】①Trim 函數(shù)用于刪除字符串左右兩邊的空格;②Right()函數(shù)用于取出已有字符串最右邊指定個數(shù)的字符串;③Left()函數(shù)用于取出已有字符串最左邊指定個數(shù)的字符串;④Mid(字符串,起始位置[,個數(shù)])函數(shù)用于從已有字符串中取出從指定位置開始的含指定個數(shù)字符的字符串。
【審題分析】本題源程序的中心設(shè)計思想是:將文本框 Txt1 中的字符串按組合框中所選要求進行截取并放入文本框 Txt2 中。源程序以組合框列表項的索引號(即 ListIndex 屬性值)作為 Select Case 語句的判斷表達式,故第 1 個?處應(yīng)為 Cbo1.ListIndex;組合框中第三項要求截取第 3~6 個字符,其實就是從字符串的第 3 個字符開始,截取 4 個字符, 故 Mid 函數(shù)的第 2、3 個參數(shù)應(yīng)為 3 和 4;最后的?處是將截取結(jié)果顯示在文本框中,故應(yīng)為 tmpStr。
【操作步驟】
步驟 1:打開考生文件中的本題工程文件 vbsj4.vbp,在代碼編輯窗口,去掉程序中的注釋符"’",將問號"?"改為正確的內(nèi)容。
參考代碼:
Select Case Cbo1.ListIndex
tmpStr = Mid(Trim(Txt1.Text), 3, 4)
Txt2.Text = tmpStr
步驟 2:按要求將文件保存至考生文件夾中。
編輯推薦:
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |