2013年3月全国计算机等级考试二级VB无纸化上机题题库题干及答案解析(4)

全国计算机等级考试二级 VB 上机考试新版题库及解析 2013 年 3 月考试专用 考前复习必看资料 PiaoMo 整理 1 20132013年年3 3月全国计算机等级考试月全国计算机等级考试 二级二级VBVB上机题库题干上机题库题干 第六十一套题干第六十一套题干61 一 基本操作题 请根据以下各小题的要求设计Visual Basic应用程序 包括界面和代码 1 在名称为Form1的窗体上画一个名称为C1 标题 为 改变颜色 的命令按钮 窗体标题为 改变窗体背景色 编写程序 使得单击命令按钮时 将窗体的背景颜色 改为红色 Sum End Sub Private Sub Save Click WriteData Dataout txt Sum End Sub 步骤4 按要求将文件保存至考生文件夹中 特别提示 在多个过程中使用同一个变量 应将其 声明为窗体变量 第七十四套上机答案解析第七十四套上机答案解析74 一 基本操作题 第1小题 知识点拔 Print方法中的分号参数代表输出结束后 不换行继续输出下一个内容 审题分析 本题只需在命令按钮的单击事件过程中 用Print方法将两个文本框中的内容输出到窗体上 操作步骤 步骤1 新建一个 标准EXE 工程 如表1在窗体中画 出控件并设置其相关属性 表1 步骤2 在代码编辑窗口 编写命令按钮的Click事件 过程 参考代码 Private Sub Command1 Click PrintText1 Text 现年 Text2 Text 岁 End Sub 步骤3 按要求将文件保存至考生文件夹中 第2小题 审题分析 根据题意 本题需在命令按钮的单击事 件过程中编写设置水平滚动条相关属性的语句 在滚动条 的Change事件过程中编写 利用滚动条的Value属性值来决 定图片框Width属性值的语句 达到利用滚动条控制图片 框宽度的目的 操作步骤 步骤1 新建一个 标准EXE 工程 在窗体Form1中画 一个图片框和一个水平滚动条 在属性设置窗口中设置其 相关属性 其属性及值如表2所示 表2 步骤2 打开代码编辑窗口 分别编写命令按钮的 Click事件过程和水平滚动条的Change事件过程 参考代码 Private Sub Command1 Click HScroll1 Min 100 HScroll1 Max 1500 HScroll1 LargeChange 100 HScroll1 SmallChange 10 End Sub Private Sub HScroll1 Change Picture1 Width HScroll1 Value End Sub 步骤3 按要求将文件保存至考生文件夹中 二 简单应用题 第1小题 知识点拔 鼠标事件分点击事件和状态事件 点击 事件有单击 Click 和双击 DblClick 不区分左右键 状态事件有按下 MouseDown 移动 MouseMove 和 弹起 MouseUp 能够区分出鼠标的左键 右键和中间键 按下鼠标键事件过程的一般格式为 Private Sub Form MouseDown Button As Integer Shift As Integer X As Single Y As Single End Sub 其中各参数的含义 Button表示被按下的鼠标键 可 以取三个值 1左键 2为右键 4为中间键 Shift表示 Shift键 Ctrl键和Alt键的状态 Shift键为1 Ctrl键为 2 Alt键为4 X Y表示鼠标光标的当前位置 审题分析 本题原程序在Form MouseDown事件过 程中 通过判断Button参数的值分别执行对列表框项目的 增减操作 操作步骤 步骤1 打开考生文件夹中的本题工程文件 sjt3 vbp 如 表3所列在窗体Form1中画出控件并设置它们的属性 表3 步骤2 打开代码编辑窗口 去掉程序中的注释符 将问号 改为正确的内容 参考代码 List1 AddItem Text1 Text For i 0 To List1 ListCount 1 If List1 List i Text1 Text Then List1 RemoveItem i 步骤3 按要求将文件保存至考生文件夹中 第2小题 审题分析 本题程序运行时 单击命令按钮 通过 Array 函数返回一个以四个文本框中的数值为元素的数组 并赋值给数组arr1 然后使用For语句将数组arr1中每个元 素的数据类型转换为整型并赋给数组arr2具有相同下标的 元素 最后以数组arr2为参数调用求最小值的函数过程 FindMin 在FindMin过程中 首先用变量Start 和Finish分别记 录下数组a的下界和上界 用变量Min记录下数组a第一个 元素的值 然后通过For循环让数组a中的每一个元素逐一 与变量Min比较大小 当有数组元素的值大于变量Min时 将其赋值变量Min 最后将变量Min的值作为函数返回值 操作步骤 步骤1 打开考生文件夹下的本题工程文件sjt4 vbp 在代码编辑窗口 去掉程序中的注释符 将问号 改为 正确的内容 参考代码 Start LBound a Finish UBound a Min a Start If a i Min Then Min a i M FindMin arr2 步骤2 按要求将文件保存至考生文件夹中 特别提示 调用自定义Function过程FindMin需传递 参数为数组变量 三 综合操作题 审题分析 本题原程序已提供ReadData和WriteData 两个自定义过程 只需编写 读入数据 计算并输出 和 存盘 命令的单击事件过程 并在事件过程中调用ReadData 和WriteData自定义过程 程序设计思路 在 读入数据 菜 全国计算机等级考试二级 VB 上机考试新版题库及解析 2013 年 3 月考试专用 考前复习必看资料 PiaoMo 整理 31 单项的Click事件过程中 通过调用ReadData过程将数据从 datain1 txt文件读入到数组Arr 窗体变量 中 在 计算并 输出 菜单项的Click事件过程中 利用For循环语句 循环 变量i的初值为1 终值为100 依次将数组Arr中下标为偶 数的元素的值显示在文本框中 条件表达式为 i Mod 2 0 并将其值累加到变量Sum 循环结束后将结果显示在 窗体上 在 存盘 菜单项的Click事件过程中 通过调用 WriteData过程将Sum的值写入数据文件dataout txt 操作步骤 步骤1 打开考生文件下的本题工程文件sjt5 vbp 利 用菜单设计器 如表4中的设置建立菜单项 表4 步骤2 在窗体Form1中画一个文本框 其相关属性 及值如表5 表5 步骤3 在代码编辑窗口 分别编写三个菜单项的 Click事件过程 参考代码 Dim Sum As Integer Private Sub Read Click ReadData End Sub Private Sub Calc Click Dim S As String Sum 0 For i 1 To 100 If i Mod 2 0 Then Sum Sum Arr i S S Sum End Sub Private Sub Save Click WriteData Dataout txt Sum End Sub 步骤4 按要求将文件保存至考生文件夹中 特别提示 在多个过程中使用同一个变量 应将其 声明为窗体变量 第七十五套上机答案解析第七十五套上机答案解析75 一 基本操作题 第1小题 知识点拔 Sum End Sub Private Sub Save Click WriteData Dataout txt Sum End Sub 步骤4 按要求将文件保存至考生文件夹中 特别提示 在多个过程中使用同一个变量 应将其 声明为窗体变量 第七十六套上机答案解析第七十六套上机答案解析76 一 基本操作题 第1小题 知识点拔 Visible属性用来控制控件的可见性 审题分析 本题只需在命令按钮的单击事件过程中 将文本框和标签的Visible属性设置为False 并且在窗体上 使用Print方法输出文本框的内容即可 操作步骤 步骤1 新建一个 标准EXE 工程 如表1在窗体中画 出控件并设置其相关属性 表1 步骤2 在代码编辑窗口 编写命令按钮的Click事件 过程 参考代码 Private Sub Command1 Click Label1 Visible 0 Text1 Visible 0 Print Text1 Text End Sub 步骤3 按要求将文件保存至考生文件夹中 第2小题 知识点拔 滚动条分为水平滚动条 HscrollBar 和垂直滚动条 VscrollBar 两种 常用来 提供简便的定位或用于取代数据的键盘输入 通过调整滚 动条滑块的位置即可改变其Value属性的值 滚动条的Max 属性 Min属性限定了滚动条所能表示的最大值和最小值 即Value属性值的取值范围 在程序中改变Value属性的值 滚动条滑块会随之移动到相应位置 LargeChange属性用于 设置当点击滚动条滑块与两侧箭头间区域时Value属性值的 改变量 SmallChange属性用于设置当点击滚动条两侧箭头 时Value属性值的改变量 滚动条滑块位置改变时将触发 其Change事件 拖动时将触发其Scroll事件 审题分析 要在程序运行时 移动滚动条上的滑块 全国计算机等级考试二级 VB 上机考试新版题库及解析 2013 年 3 月考试专用 考前复习必看资料 PiaoMo 整理 33 就扩大或缩小文本框中的文字 只需在滚动条的Change事 件过程中编写利用滚动条的Value属性值来决定Text1的 FontSize属性的语句即可 操作步骤 步骤1 新建一个 标准EXE 工程 在窗体Form1中加 入一个水平滚动条和一个垂直滚动条 在属性设置窗口中 设置其相关属性 其属性及值如表2所示 表2 步骤2 双击窗体Form1上的水平滚动条 打开代码 编辑窗口 输入以下代码 参考代码 Private Sub HScroll1 Change Text1 FontSize HScroll1 Value End Sub 步骤3 按要求将文件保存至考生文件夹中 二 简单应用题 第1小题 审题分析 在添加项目菜单的单击事件中通过输入 对话框输入要添加的项目内容 在文本框中显示的同时将 其用AddItem添加到列表框中 在删除项目菜单中通过输 入对话框中输入要删除的项目 并显示在文本框中 利用 For循环语句逐一判断列表框中的各项是否与文本框中的内 容一致 若一致则用RemoveItem方法删除该项目 ListCount属性可返回列表框中当前的列表项总数 由于循 环的初值为0 故终值就应为Lst1 ListCount 1 操作步骤 步骤1 打开考生文件夹中的本题工程文件 sjt3 vbp 如 表3所列在窗体Form1中画出控件并设置它们的属性 表3 步骤2 利用菜单设计器 如 表4中的设置建立菜单项 表4 步骤3 打开代码编辑窗口 去掉程序中的注释符 将问号 改为正确的内容 参考代码 List1 AddItem Text1 Text For i 0 To List1 ListCount 1 If List1 List i Text1 Text Then List1 RemoveItem i 步骤3 按要求将文件保存至考生文件夹中 第2小题 审题分析 本题程序运行时 单击命令按钮 通过 Array 函数返回一个以四个文本框中的数值为元素的数组 并赋值给数组arr1 然后使用For语句将数组arr1中每个元 素的数据类型转换为整型并赋给数组arr2具有相同下标的 元素 最后以数组arr2为参数调用排序过程Sort 本题原程序已提供 按升序排列 命令按钮的单击事件 过程 只需完善自定义过程Sort 在过程Sort中 原程序利 用变量Start和Finish分别记录下数组a的下界和上界 故第 一个 处应为LBound 第两个 处应为UBound 原程序 利用一个嵌套的For循环来一一比较数组中相邻两元素的大 小 并始终使前一元素沿用最大值 冒泡法 其中外循 环的循环变量i由大到小 故第三个 处应为Finish或者 UBound a 外循环的循环变量j由小到大 故第4个 处 应为i 1 根据前述第5个 处应为 操作步骤 步骤1 打开考生文件夹下的本题工程文件sjt4 vbp 在代码编辑窗口 去掉程序中的注释符 将问号 改为 正确的内容 参考代码 Start LBound a Finish UBound a For i UBound a To 2 Step 1 For j 1 To i 1 If a j a j 1 Then 步骤2 按要求将文件保存至考生文件夹中 特别提示 调用自定义Function过程FindMin需传递 参数为数组变量 三 综合操作题 审题分析 本题原程序已提供ReadData和WriteData 两个自定义过程 只需编写 读入数据 计算并输出 和 存盘 命令的单击事件过程 并在事件过程中调用ReadData 和WriteData自定义过程 程序设计思路 在 读入数据 菜 单项的Click事件过程中 通过调用ReadData过程将数据从 datain1 txt文件读入到数组Arr 窗体变量 中 在 计算并 输出 菜单项的Click事件过程中 利用For循环语句 循环 变量i的初值为1 终值为100 依次将数组Arr中大于等于 50的元素的值显示在文本框中 条件表达式为 Arr i 50 并将其值累加到变量Sum 循环结束后将结果显示在 窗体上 在 存盘 菜单项的Click事件过程中 通过调用 WriteData过程将Sum的值写入数据文件dataout txt 操作步骤 步骤1 打开考生文件下的本题工程文件sjt5 vbp 利 用菜单设计器 如表5中的设置建立菜单项 表5 步骤2 在窗体Form1中画一个文本框 其相关属性 及值如表76 6 表76 6 步骤3 在代码编辑窗口 分别编写三个菜单项的 Click事件过程 参考代码 Dim Sum As Integer Private Sub Read Click ReadData End Sub Private Sub Calc Click Dim S As String Sum 0 For i 1 To 100 If Arr i 50 Then Sum Sum Arr i S S Sum End Sub Private Sub Save Click WriteData Dataout txt Sum End Sub 步骤4 按要求将文件保存至考生文件夹中 全国计算机等级考试二级 VB 上机考试新版题库及解析 2013 年 3 月考试专用 考前复习必看资料 PiaoMo 整理 34 特别提示 在多个过程中使用同一个变量 应将其 声明为窗体变量 第七十七套上机答案解析第七十七套上机答案解析77 一 基本操作题 第1小题 知识点拔 Visible属性用来控制控件的可见性 审题分析 本题只需在命令按钮的单击事件过程中 将标签的Visible属性设置为True 并且其标签的Caption属 性等于文本框的内容 同时将文本框的Visible属性设置为 False 操作步骤 步骤1 新建一个 标准EXE 工程 如表1在窗体中画 出控件并设置其相关属性 表1 步骤2 在代码编辑窗口 编写命令按钮的Click事件 过程 参考代码 Private Sub Command1 Click Label1 Visible True Label1 Caption Text1 Text Text1 Visible False End Sub 步骤3 按要求将文件保存至考生文件夹中 第2小题 知识点拔 滚动条分为水平滚动条 HscrollBar 和垂直滚动条 VscrollBar 两种 常用来 提供简便的定位或用于取代数据的键盘输入 通过调整滚 动条滑块的位置即可改变其Value属性的值 滚动条的Max 属性 Min属性限定了滚动条所能表示的最大值和最小值 即Value属性值的取值范围 在程序中改变Value属性的值 滚动条滑块会随之移动到相应位置 LargeChange属性用于 设置当点击滚动条滑块与两侧箭头间区域时Value属性值的 改变量 SmallChange属性用于设置当点击滚动条两侧箭头 时Value属性值的改变量 滚动条滑块位置改变时将触发 其Change事件 拖动时将触发其Scroll事件 审题分析 要在程序运行时 移动滚动条上的滑块 就扩大或缩小文本框 只需在滚动条的Change事件过程中 编写利用滚动条的Value属性值来决定Text1的Width和 Height属性的语句即可 操作步骤 步骤1 新建一个 标准EXE 工程 在窗体Form1中加 入一个水平滚动条和一个垂直滚动条 在属性设置窗口中 设置其相关属性 其属性及值如表2所示 表2 步骤2 双击窗体Form1上的水平滚动条 打开代码 编辑窗口 输入以下代码 参考代码 Private Sub HScroll1 Change Text1 Width HScroll1 Value 1 2 Text1 Height Me HScroll1 Value End Sub 步骤3 按要求将文件保存至考生文件夹中 二 简单应用题 第1小题 审题分析 在窗体的单击事件中通过判断单选按钮 的选中情况来执行不同分支 若添加项目按钮被选中 则 通过输入对话框输入要添加的项目内容 在文本框中显示 的同时将其用AddItem添加到列表框中 若删除项目按钮 被选中 则通过输入对话框中输入要删除的项目 并显示 在文本框中 利用For循环语句逐一判断列表框中的各项是 否与文本框中的内容一致 若一致则用RemoveItem方法删 除该项目 ListCount属性可返回列表框中当前的列表项总 数 由于循环的初值为0 故终值就应为Lst1 ListCount 1 操作步骤 步骤1 打开考生文件夹中的本题工程文件 sjt3 vbp 如 表3所列在窗体Form1中画出控件并设置它们的属性 表3 步骤2 打开代码编辑窗口 去掉程序中的注释符 将问号 改为正确的内容 参考代码 List1 AddItem Text1 Text For i 0 To List1 ListCount 1 If List1 List i Text1 Text Then List1 RemoveItem i 步骤3 按要求将文件保存至考生文件夹中 第2小题 审题分析 本题程序运行时 单击命令按钮 通过 Array 函数返回一个以四个文本框中的数值为元素的数组 并赋值给数组arr1 然后使用For语句将数组arr1中每个元 素的数据类型转换为整型并赋给数组arr2具有相同下标的 元素 最后以数组arr2为参数调用排序过程Sort 本题原程序已提供 按降序排列 命令按钮的单击事件 过程 只需完善自定义过程Sort 在过程Sort中 原程序利 用变量Start和Finish分别记录下数组a的下界和上界 故第 一个 处应为LBound 第两个 处应为UBound 原程序 利用一个嵌套的For循环来一一比较数组中相邻两元素的大 小 并始终使前一元素沿用最大值 冒泡法 其中外循 环的循环变量i由大到小 故第三个 处应为Finish或者 UBound a 外循环的循环变量j由小到大 故第4个 处 应为i 1 根据前述第5个 处应为 操作步骤 步骤1 打开考生文件夹下的本题工程文件sjt4 vbp 在代码编辑窗口 去掉程序中的注释符 将问号 改为 正确的内容 参考代码 Start LBound a Finish UBound a For i Finish To 2 Step 1 For j 1 To i 1 If a j a j 1 Then 步骤2 按要求将文件保存至考生文件夹中 特别提示 调用自定义Function过程FindMin需传递 参数为数组变量 三 综合操作题 审题分析 本题原程序已提供ReadData和WriteData 两个自定义过程 只需编写 读入数据 计算并输出 和 存盘 命令的单击事件过程 并在事件过程中调用ReadData 和WriteData自定义过程 程序设计思路 在 读入数据 菜 单项的Click事件过程中 通过调用ReadData过程将数据从 全国计算机等级考试二级 VB 上机考试新版题库及解析 2013 年 3 月考试专用 考前复习必看资料 PiaoMo 整理 35 datain1 txt文件读入到数组Arr 窗体变量 中 在 计算并 输出 菜单项的Click事件过程中 利用For循环语句 循环 变量i的初值为1 终值为100 依次将数组Arr中小于50的 元素的值显示在文本框中 条件表达式为 Arr i 50 并将其值累加到变量Sum 循环结束后将结果显示在窗体 上 在 存盘 菜单项的Click事件过程中 通过调用 WriteData过程将Sum的值写入数据文件dataout txt 操作步骤 步骤1 打开考生文件下的本题工程文件sjt5 vbp 利 用菜单设计器 如表4中的设置建立菜单项 表4 步骤2 在窗体Form1中画一个文本框 其相关属性 及值见表77 5 表77 5 步骤3 在代码编辑窗口 分别编写三个菜单项的 Click事件过程 参考代码 Dim Sum As Integer Private Sub Read Click ReadData End Sub Private Sub Calc Click Dim S As String Sum 0 For i 1 To 100 If Arr i 50 Then Sum Sum Arr i S S Sum End Sub Private Sub Save Click WriteData Dataout txt Sum End Sub 步骤4 按要求将文件保存至考生文件夹中 特别提示 在多个过程中使用同一个变量 应将其 声明为窗体变量 第七十八套上机答案解析第七十八套上机答案解析101 一 基本操作题 第1小题 知识点播 用Visual Basic开发应用程序的一般 步骤 首先建立用户界面 然后设置窗体及控件属性 最 后编写代码 添加控件的方法有两种 一是先选中工具 箱中要添加的控件 然后在窗体上按下鼠标左键并拖动到 一定位置后松开 二是通过直接双击工具箱中相应控件的 图标来添加控件 设置控件属性的方法也有两种 一是 在设计阶段通过对象的属性窗口来设置 二是通过程序代 码在程序运行时来设置 文本框 Text 通常用于接 收用户输入的字符串数据或用于显示输出信息 其Text属 性用于设置或返回文本框中显示的文本 控件的Height 和Width属性用于设置控件在屏幕上的大小 即高和宽 通过属性设置窗口中的Font属性可设置控件标题文本的 字体 字号 字形等 在程序设计时Font属性可返回一个 Font对象 Font对象包含有格式化文本所需要的信息 窗体的标题由其Caption属性设置 窗体的MaxButton 属性 MinButton 属性决定其标题栏是否显示最大化 最小化按 钮 True表示显示 False表示不显示 此外 通过修改窗 体的BorderStyle属性 用于设置边框样式 也可实现窗体 标题栏是否显示最大化 最小化按钮的效果 其中值设置 为3时窗体具有固定大小 包含左侧控制框和标题栏 但 没有最大化 最小化按钮 审题分析 本题只需按要求建立程序界面并设置 窗体和文本框相关属性即可 操作步骤 步骤1 新建一个 标准EXE 工程 步骤2 单击工具箱中的TextBox控件图标 在窗体 Form1上按下鼠标左键并拖动到一定位置后松开 画出一 个文本框 如图7所示 步骤3 选定窗体中的文本框 在属性窗口中设置其 相关属性 如图8所示 属性及值如表1所示 图7 图8 表1 步骤4 在文本框的属性窗口中点击 Font 属性右侧 的按钮 打开 字体 对话框 在其中设置 字体 为 黑体 字号 为 四号 步骤5 单击窗体无控件区域 在属性窗口中设置窗 体相关属性 属性及值如表1所示 步骤6 选择 文件 保存工程 命令 打开 文件另存为 对话框 如图9所示 在该对话框的 保存在 下拉列表中选择考生文件夹 并在 文件名 文本框中输入 vbsj1 frm 单击 保存 按钮 即保存好窗体文件 在接下 来的 工程另存为 对话框中 在 文件名 文本框中输入 vbsj1 vbp 如图10所示 并单击 保存 按钮 即保存好工 程文件 图9 图10 第2小题 知识点播 焦点是接收用户鼠标或键盘输入的 能力 当对象具有焦点时 可接收用户的输入 对象的 SetFocus方法用于将焦点移到指定的对象上 审题分析 本题其实就是在两个命令按钮的单击 事件过程中 通过使用SetFocus方法使对应文本框获得焦 点 操作步骤 步骤1 新建一个 标准EXE 工程 在窗体Form1中 画两个文本框和两个命令按钮 分别设置其相关属性 属 性及值如表2所示 程序界面如图11所示 表2 全国计算机等级考试二级 VB 上机考试新版题库及解析 2013 年 3 月考试专用 考前复习必看资料 PiaoMo 整理 36 图11 步骤2 双击 左 命令按钮 打开代码编辑窗口 在 按钮的Click事件过程中输入如图12中所示代码 图12 步骤3 从代码编辑窗口的 对象 下拉列表中选择 cmdRight 从 事件 下拉列表中选择Click 编写以下事件 过程 参考代码 Private Sub cmdRight Click txtRight SetFocus End Sub 步骤4 按要求将文件保存至考生文件夹中 二 简单应用题 第1小题 知识点播 Alignment属性用于确定文本框中文 本的放置方式 其值可以设置为0 靠左 默认 1 靠 右 或2 居中 控件数组是一组具有共同名称和类型 的控件 它们拥有共同的事件 数组中的每个控件都有唯 一的索引号 Index 即下标 容器 如窗体和框架 中的单选按钮 OptionButton 组常用于提供多个选项间 的唯一选择 其Value属性用于设置或返回每个单选按钮的 选中状态 值为False表示未选 值为True表示选中 Format 数值表达式 格式字符串 函数的功能是按 格 式字符串 指定的格式输出 数值表达式 的值 在格式字符 串中用0表示数字位 0的个数决定了显示区域的长度 如 果要显示的数值的位数小于格式字符串指定的区段长度 则多余的位以0补齐 如果要显示的数值的位数大于指定 的区段长度 则数值照原样显示 表示显示小数点 小 数点与0结合使用 可以放在显示区段的任何位置 根据 格式字符串的位置 小数部分多余的数字按四舍五入处理 Sin N 正弦函数用于返回N的正弦值 Cos N 余弦函数用 于返回N的余弦值 其中参数N应为弧度 审题分析 本题可通过利用If Else 语句来判断 第一个单选按钮是否被选中 若是则进行正弦运算 否则 进行余弦运算 为实现 第4位截去 的功能 可将运算值减 去0 0005后再使用Format函数进行格式输出 操作步骤 步骤1 打开考生文件夹中的本题工程文件 vbsj3 vbp 程序界面如图13所示 图13 步骤2 依次选中窗体中的两个文本框 将其 Alignment属性值设置为1 Right Justify 步骤3 双击窗体中的 计算 命令按钮 在打开的代 码编辑窗口中编写其单击事件过程 参考代码 Private Sub cmdCal Click If optFun 0 Value True Then txtResult Text Format Sin Val txtInput Text 3 14159 180 0 0005 0 000 Else txtResult Text Format Cos Val txtInput Text 3 14159 180 0 0005 0 000 End If End Sub 步骤4 按键运行程序 在左侧文本框中输入 40 选择不同选项 单击 计算 按钮 结果如图14所示 图14 步骤5 单击窗体右上角的关闭按钮以结束程序 步骤6 按要求将文件保存至考生文件夹中 提示 本题程序运行时 单击窗体右上角的关闭 按钮将输出计算结果到文件out3 txt中 并以其判断程序编 写是否正确 第2小题 知识点播 组合框 ComboBox 将文本框与列 表框的特性组合在一起 既可在组合框的文本框部分输入 信息 也可在列表框部分选择项目 ListIndex属性可返回 其当前所选项目的索引号 Trim函数用于删除字符串左 右两边的空格 Right 函数用于取出已有字符串最右边 指定个数的字符串 Left 函数用于取出已有字符串最左 边指定个数的字符串 Mid 字符串 起始位置 个数 函 数用于从已有字符串中取出从指定位置开始的含指定个数 字符的字符串 审题分析 本题源程序的中心设计思想是 将文 本框txtInput中的字符串按组合框中所选要求进行截取并放 入文本框txtResult中 源程序以组合框列表项的索引号 即ListIndex属性值 作为Select Case语句的判断表达式 故第1个 处应为cboLong ListIndex 组合框中第三项要求 截取第3 6个字符 其实就是从字符串的第3个字符开始 截取4个字符 故Mid函数的第2 3个参数应为3和4 最后 的 处是将截取结果显示在文本框中 故应为tmpStr 操作步骤 步骤1 打开考生文件中的本题工程文件vbsj4 vbp 在代码编辑窗口 去掉程序中的注释符 将问号 改 为正确的内容 参考代码 Select Case cboLong ListIndex tmpStr Mid Trim txtInput Text 3 4 txtResult Text tmpStr 步骤2 按要求将文件保存至考生文件夹中 三 综合操作题 知识点播 Type语句用于在模块级别中定义一 个用户自己的数据类型 其本质上是一个数据类型集合 它含有一个至一个以上的成员 每个成员可以被定义为不 同的数据类型 声明自定义类型变量后 可通过 变量名 成员名 来访问自定义变量中的元素 用Open语句打开 随机文件 其语法格式为 Open FileName for Random as FileNumber Len 记录长度 记录长度是一条记录实际所 占字节数 可用Len 记录变量名 函数获取 Get 语句用于 从文件中读出某记录号的记录 格式为 Get FileNumber RecordNuber Var Put 语句用于把记录按指 定记录号写入文件 格式为 Put FileNumber RecordNuber Var LOF函数可返回一个用 Open 语句打开的文件的大小 该大小以字节为单位 返 回值为Long数据类型 Do循环语句的功能是 当指定的 循环条件 为True时 使用While关键词 或直到指定的 循环条件 变为True之前 使用Until关键词 重复执行一 组语句 即循环体 审题分析 本题源程序设计思路 在 写通信录 命令按钮的单击事件过程中 先用Open语句打开考生文件 夹下的随机文件out5 txt 并通过计算得到随机文件现有记 录数 存入变量RecNum 然后在Do循环中 为自定义数 据类型变量Pers的各元素赋值 用Put语句将该变量的值写 全国计算机等级考试二级 VB 上机考试新版题库及解析 2013 年 3 月考试专用 考前复习必看资料 PiaoMo 整理 37 入打开的随机文件中 记录号为RecNum 1 并通过输入 对话框询问是否要再输入新记录 Do循环以输入对话框中 返回值的大写为 Y 作为循环条件 在 读通信录 命令按钮的单击事件过程中 先用 Open语句打开考生文件夹下的随机文件out5 txt 并通过表 达式 LOF 1 Len Pers 计算得到随机文件现有记录数 存入变量RecNum 然后利用For循环语句 初值为1 终值 为RecNum的值 用Get语句读入随机文件中相应记录号 的记录 赋值给变量Pers 并将变量Pers各元素的值用Print 方法显示在窗体上 操作步骤 步骤1 打开考生文件中的本题工程文件vbsj5 vbp 在代码编辑窗口 去掉程序中的注释符 将问号 改 为正确的内容 参考代码 RecNum RecNum 1 Put 1 RecNum Pers Loop While UCase asp Y RecNum LOF 1 Len Pers Get 1 i Pers 步骤2 运行程序 单击 写通信录 命令按钮 按照 提示依次输入 LiuXiaoqiang 028 87348765 430065 DengQinghua 021 26874321 300120 步骤3 运行程序 单击 读通信录 命令按钮 在窗 体上显示全部记录 共5个 步骤4 按要求将文件保存至考生文件夹中 第七十九套上机答案解析第七十九套上机答案解析102 一 基本操作题 第1小题 知识点播 通用对话框 CommonDialog 提供诸 如打开文件 保存文件 设置打印选项 选择颜色和字体 显示帮助等操作的一组标准对话框 该控件运行时不可见 Action属性用于设置被打开对话框的类型 当通用对话框 显示为 打开 或 另存为 类型时 其FileName属性用于返 回或设置所选的文件的路径和文件名 Filter 过滤器 属 性在对话框显示时提供一个可供选择过滤器列表 从而指 定在对话框的文件列表中显示文件的类型 例如 过滤器 为 txt 表示显示所有的文本文件 它的语法为 对象名 Filter 描述 文件扩展名 使用管道符 将描述与过滤 器隔开 同样使用管道符将多个过滤器相互分隔 FilterIndex属性返回或设置 打开 或 另存为 对话框中一个 缺省的过滤器 其中第一个过滤器的索引号是1 在VB6中开始使用新方法来打开不同对话框 同时 也保留了对Action属性的支持 表1列出了不同Action属性 值代表的对话框类型及其在VB6中的对应方法 表1 审题分析 要在单击按钮时弹出 打开文件 对话 框 只需在 打开 按钮的Click事件过程中调用通用对话框 的ShowOpen方法即可 操作步骤 步骤1 新建一个 标准EXE 工程 在窗体Form1中 加入一个命令按钮 其相关属性设置如表2所示 表2 步骤2 选择 工程 部件 命令 将弹出的 部件 对话框如图6所示 从列表中选中 MicroSoft Common Dialog Control6 0 项目 单击 确定 按钮 图6 步骤3 双击工具箱新添加的通用对话框 CommonDialog 图标 在窗体中加入一个通用对话框 其相关属性设置如表2所示 也可右击窗体中的通用对话 框 选择 属性 命令 在打开的 属性页 对话框中设置 其相关属性 如图7所示 图7 步骤4 双击窗体Form1中的 打开 按钮 在打开的 代码编辑窗口中 输入如下代码 参考代码 Private Sub cmdOpen Click cdlOpen ShowOpen End Sub 步骤5 按要求将文件保存至考生文件夹中 第2小题 知识点播 文本框的Text属性可返回或设置文 本框中显示的内容 SelLength属性可返回或设置文本框中 当前选定的字符数 SelStart属性可返回或设置所选文本的 起始点 该起始点位于起始文本的左侧 SelText属性可返 回含有当前所选择的字符串 Right 函数用于取出已有 字符串最右边指定个数的字符串 Left 函数用于取出已 有字符串最左边指定个数的字符串 Mid 字符串 起始位 置 个数 函数用于从已有字符串中取出从指定位置开始的 含指定个数字符的字符串 若不指定个数将返回字符串中 从参数 起始位置 到字符串尾端的所有字符 审题分析 本题在 复制 按钮的单击事件过程中 需将文本框txtSrc的SelText属性值赋予文本框txtObj 在 删 除 按钮的单击事件过程中 需将文本框txtSrc被选文本左 右两侧的文本分别取出 连接 用连字符 后重新赋 予文本框txtSrc 操作步骤 步骤1 新建一个 标准EXE 工程 在窗体Form1中 画两个文本框和两个命令按钮 其相关属性设置如表3所 示 表3 全国计算机等级考试二级 VB 上机考试新版题库及解析 2013 年 3 月考试专用 考前复习必看资料 PiaoMo 整理 38 步骤2 在代码编辑窗口 分别编写 复制 和 删除 按钮的单击事件过程 参考代码 Private Sub cmdCopy Click txtObj Text txtSrc SelText End Sub Private Sub cmdDel Click txtSrc Text Left txtSrc Text txtSrc SelStart Mid txtSrc Text txtSrc SelStart txtSrc SelLength 1 End Sub 步骤3 按要求将文件保存至考生文件夹中 二 简单应用题 第1小题 知识点播 计时器控件用于实现在规则的时间间 隔触发其Timer事件 执行有关事件过程代码 来完成对应 功能 Interval属性用于设置触发计时器的Timer事件的时 间间隔 单位为毫秒 值为0时计时器不启用 Enabled属 性控制计时器是否开始启用 值为True时表示启用 值为 False时表示不启用 审题分析 本题通过计时器的Timer事件来控制直 线控件的位置 从而实现钟表上的指针旋转的功能 为使 计时器的Timer事件每秒激活一次需将计时器的Interval属 性值设置为1000 为使程序刚运行时钟表指针不动需将 Enabled属性值设置为False 在 开始 按钮的单击事件过程 中 通过设置计时器的Enabled属性值为True来启动计时器 在 停止 按钮的单击事件过程中 通过设置计时器的 Enabled属性值为False来停止计时器 操作步骤 步骤1 打开考生文件中的本题工程文件vbsj3 vbp 在属性设置窗口 设置计时器的Interval属性值为 1000 Enabled属性值为False 步骤2 在代码编辑窗口 编写 开始 和 停止 按钮 的单击事件过程 参考代码 Private Sub cmdStart Click tmrClock Enabled True End Sub Private Sub cmdStop Click tmrClock Enabled False End Sub 步骤3 按要求将文件保存至考生文件夹中 第2小题 知识点播 滚动条分为水平滚动条 HscrollBar 和垂直滚动条 VscrollBar 两种 常用来 提供简便的定位或用于取代数据的键盘输入 通过调整滚 动条滑块的位置即可改变其Value属性的值 滚动条的Max 属性 Min属性限定了滚动条所能表示的最大值和最小值 即Value属性值的取值范围 在程序中改变Value属性的值 滚动条滑块会随之移动到相应位置 LargeChange属性用于 设置当点击滚动条滑块与两侧箭头间区域时Value属性值的 改变量 SmallChange属性用于设置当点击滚动条两侧箭头 时Value属性值的改变量 滚动条滑块位置改变时将触发 其Change事件 审题分析 本题要求在单击 开始 按钮时 汽车 向右运动 其实质是在 开始 按钮的单击事件过程中启动 计时器 故第1个 处应改为True 要通过移动滚动条上的 滚动框来改变汽车的运动速度 需在滚动条的Change事件 过程中 将滚动条当前Value属性值赋予计时器的Interval 属性 第2个 处应改为Timer1 汽车向右移动是在计时器 的Timer事件过程中 通过不断增加图片框的Left属性值来 实现的 故第3个 处应改为Picture1 Left 操作步骤 步骤1 打开考生文件中的本题工程文件vbsj5 vbp 在代码编辑窗口 去掉程序中的注释符 将问号 改 为正确的内容 参考代码 Timer1 Enabled True Timer1 Interval HScroll1 Value Picture1 Left Picture1 Left 10 步骤2 按要求将文件保存至考生文件夹中 三 综合操作题 知识点播 过程是构成程序的一个模块 常用 来完成一个相对独立的功能 Function过程也叫函数过程 一般用于调用后不仅要执行一组代码完成相应操作 还需 返回一个有用值的情况 Function函数的参数有两种传递 方式 按值传递 Byval 和按址传递 Byref 默认为按 址传递 调用Function函数常放在赋值符右端 For循环通常用于知道次数的循环 在不知道明确 的循环次数的情况下 我们可以用条件来控制循环 While 循环和Do循环就是用条件来控制的循环 While Wend语 句的一般语法格式 While 条件 语句块 Wend 功能 在给定的条件为真 True 时 执行循环中 的 语句块 素数的判断准则就是看该数除了1和其本身外是否 别无其他约数 审题分析 程序设计思路 要找出小于给定数的 最大素数 可以定义一个初值比给定数小1的整型变量n 通过调用函数isprime n 以其返回值不是素数 即Not isprime n 作为While循环语句的循环条件 在循环体中 加入语句 n n 1实现每执行循环体一次变量n的值减1 当 循环结束时n的值即为一个最大素数 由于本题要求找出三个小于给定数的最大素数 故 可通过For循环重复执行三次上述查找最大素数的语句 并 将每次查找结果在对应标签中显示出来 操作步骤 步骤1 打开本题对应工程文件vbsj5 vbp 步骤2 双击窗体Form1上的 计算 按钮 打开代码 编辑窗口 在其Click事件过程中输入如下代码 参考代码 Dim j As Integer Dim n As Integer n Val txtInput Text 1 For j 0 To 2 While Not IsPrime n n n 1 Wend lblResult j Caption n n n 1 Next 步骤3 运行程序 在 给定的素数 对应的文本框中 输入12379 并执行 查找 命令 将找到满足条件的三个素 数显示在标签中 然后单击关闭按钮结束程序的运行 步骤4 按要求将文件保存至考生文件夹中 考试误区 正确使用循环控制结构是解决此题的 关键 主要考点 循环控制结构的应用 过程调用 第八十套上机答案解析第八十套上机答案解析103 一 基本操作题 第1小题 知识点播 运算符用来强制两个表达式作字符串 连接 审题分析 本题只需在命令按钮的单击事件过程 中 用Print方法将两个文本框中的内容输出到窗体上 操作步骤 步骤1 新建一个 标准EXE 工程 按表1在窗体中画 全国计算机等级考试二级 VB 上机考试新版题库及解析 2013 年 3 月考试专用 考