二、简单应用题
第 1 小题
【知识点播】①KeyPreview 属性用于设置是否在控件的键盘事件之前激活窗体的键盘事件,键盘事件有 KeyDown、KeyUp 和 KeyPress。②KeyDown(KeyCode As Integer,Shift as Integer)事件是在对象具有焦点时,按下键盘上的键时触发该对象的事件,其中 KeyCode 参数是表示所按键的位置信息的代码,Shift 参数代表按键时 Shift、Ctrl、Alt 键的状态。
【审题分析】本题程序设计思路:在窗体的 KeyDown 事件过程中,先后用两个 If 语句判断当前键盘上按下的是否是键或键,若是键则通过输入框输入内容,显示在文本框中,并添加到列表框中;若是键则通过输入框输入内容,显示在文本框中, 利用 For 循环语句逐一判断列表框中的各项是否与文本框中的内容一致,若一致则删除该项目。ListCount 属性可返回列表框中当前的列表项总数,由于循环的初值为 0,故终值就应为 Lst1.ListCount-1。
【操作步骤】
步骤 1:打开考生文件中的本题工程文件 vbsj3.vbp,按表 53-2 在窗体中画出控件并设置其相关属性。
表 53-2
步骤 2:在代码编辑窗口,去掉程序中的注释符"’",将问号"?"改为正确的内容。
参考代码:
Lst1.AddItem Txt1.Text
For i = 0 To Lst1.ListCount - 1
If Lst1.List(i) = Txt1.Text Then
Lt1.RemoveItem i
步骤 3:按要求将文件保存至考生文件夹中。
第 2 小题
【知识点播】①Trim 函数用于删除字符串左右两边的空格;②Right()函数用于取出已有字符串最右边指定个数的字符串;③Left()函数用于取出已有字符串最左边指定个数的字符串;④Mid(字符串,起始位置[,个数])函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串。
【审题分析】本题源程序的中心设计思想是:将文本框 Txt1 中的字符串按组合框中所选要求进行截取并放入文本框 Txt2 中。源程序以组合框列表项的索引号(即 ListIndex 属性值)作为 Select Case 语句的判断表达式,故第 1 个?处应为 Cbo1.ListIndex;组合框中第三项要求截取第 3~6 个字符,其实就是从字符串的第 3 个字符开始,截取 4 个字符, 故 Mid 函数的第 2、3 个参数应为 3 和 4;最后的?处是将截取结果显示在文本框中,故应为 tmpStr。
【操作步骤】
步骤 1:打开考生文件中的本题工程文件 vbsj4.vbp,在代码编辑窗口,去掉程序中的注释符"’",将问号"?"改为正确的内容。
参考代码:
Select Case Cbo1.ListIndex
tmpStr = Mid(Trim(Txt1.Text), 3, 4)
Txt2.Text = tmpStr
步骤 2:按要求将文件保存至考生文件夹中。
编辑推荐:
北京 | 天津 | 上海 | 江苏 | 山东 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
广东 | 河北 | 湖南 | 广西 | 河南 |
海南 | 湖北 | 四川 | 重庆 | 云南 |
贵州 | 西藏 | 新疆 | 陕西 | 山西 |
宁夏 | 甘肃 | 青海 | 辽宁 | 吉林 |
黑龙江 | 内蒙古 |