2013计算机二级vb真考题库操作题（三）

2013计算机二级VB真 考 题 库 操 作 题(三)第68套题解析题目一：基本操作题(1)【考点分析】本题考点有：菜单编辑器的使用(名称，标题，内缩符号)和文本框的Name属性。【解题思路】用菜单编辑器来设置菜单的名称，标题，内缩符号。另外，清除文本框中的内容将文本框的Text属性值设为空即可。【操作步骤】步骤1：建立界面，添加一个名称为Textl的文本框，然后用菜单编辑器建立如下表3.212所示的菜单。表 3.212标题操作显示清除名称OpDisClea内缩符号011步骤2：编写程序代码。参考答案Private Sub Dis_Click()Textl.Tex1 等级考试End SubPrivate Sub Clea_Click()Textl.Text=HEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。(2)【考点分析】本题考点有：文本框的Name、Text属性，列表框的的Name、List Listindex属 性,Additem方法和Db法ick事件。【解题思路】在列表框的DbICIick事件中，通过Additem方法将文本框中的字符串添加到列表框中。【操作步骤】步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.213。表3.213控件列表框3文本框。属性Nam e*3ListName*3Text*3设置值LldAAAAs BBBBs C C C C、DDDD-Text步骤2：编写程序代码。参考答案Private Sub Ll_DblClick()LI.Additem Textl.TextEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。题目二：简单应用题(1)【考点分析】本题考点有：标签的Name、Text、Height、Widths Caption属性,框架的Name、Caption属性,命令按钮的Name、Caption属性，单选按钮的Name、Caption,Value属性，Sub()函数过程以及If判断语句。【解题思路】在窗体上添加相应的控件并通过属性窗口设置其属性。通过If语句判断单选按钮的Value属性是否为T ru e,即某个单选按钮是否被选中来显示标签的内容。一般地，我们认为Value属性是单选按钮的默认属性。【操作步骤】步骤1：打开本题工程文件，添加控件并设置控件的属性。程序中用到的控件及属性见表3.214 和 3.215。表 3.214表 3.215控件框架1框架2标签属性Name Cap ionName Cap ionName Hcij：ht Width设置值Fl交通工具F2到达目标Labi3753000控件单选按钮1单选按钮2单选按钮3单选按钮4属性Name C ptionName CaptionNameCaptionName Caption置设值Opl匕 机Op2火车Op3广州Op4昆明步骤2：分析并编写程序代码。程序提供代码Private Sub Fun()需要考生编写的内容End SubPrivate Sub Form_Unload(Cancel As Integer)Open App.Path&out3.txt For Output As#1Print#1,Opl.Value,Op2.Value,0p3.Value,Op4.Value,Labl.CaptionClose#1End SubPrivate Sub Opl_Click()FunEnd SubPrivate Sub Op2_Click()FunEnd SubPrivate Sub Op3_Click()FunEnd SubPrivate Sub Op4_Click()FunEnd Sub程序结束参考答案If Opl And Op3 ThenLabi.Caption=坐飞机去广州”Elself Opl And Op4 ThenLabi.Caption=坐飞机去昆明”Elself Op2 And Op3 ThenLabi.Caption=坐火车去广州”Elself Op2 And Op4 ThenLabi.Caption=坐火车去昆明”End If步骤3：调试并运行程序，关闭程序后按题目要求存盘。(2)【考点分析】本题考点有：文本框的Name、Text属性，命令按钮的Name、Caption属性，单选按钮的Name、Caption Value属 性,连 接 符 以 及 If判断语句。【解题思路】在窗体上添加相应的控件并通过属性窗口设置其属性。选择 交换”单选按钮并单击命令按钮时，通 过 个 标 签 Caption属性作为中间变量将文本框1和文本框2的内容交换，并将标签的Caption属性设为 交换成功；选择 连接 单选按钮并单击命令按钮时，用&“连接符将文本框1和文本框2中的内容顺序连接起来。【操作步骤】步骤1：打开本题工程文件，添加控件并设置控件的属性。程序中用到的控件及属性见表3.216 和表 3.217。表 3.2后控件文本框文本框2。单选按钮2单选按钮2。属性Name*Tex忤Name-Text*3Name*-Caption*Name*Captiorv设置值TextP等级考试”T e x 3计算机0O p l。交换”,Op2连接0表3.12 控件标签0命令按钮。属性Name*Height*WidthName*Caption*设置值Labi。37532000CW确定。步骤2：分析并编写程序代码。程序提供代码Private Sub Cl_Click()需要考生编面的内容End SubPrivate Sub Form_Unload(Cancel As Integer)Open out4.txt For Output As#1Print#1,Opl.Value,Op2.Value,Textl.Text,Text2.Text,Labi.CaptionClose#1End Sub程序结束参考答案If O pl ThenLabi.Caption=Textl.TextTextl.Text=Text2.TextText2.Text=Labi.CaptionLabi.Caption=交换成功”日 self Op2 ThenLabi.Caption=Textl.Text&Text2.TextEnd If步骤3：调试并运行程序，关闭程序后按题目要求存盘。题目三？综合应用题【考点分析】本题考点有：Sub()函数，lnt()函数，文件操作，App.Path相对路径，数组的定义和应用，窗体的Print方法和For循环语句。【解 题 思 路】在“读 入 数 据 命 令 按 钮 中，通 过 调 用 Sub过 程 来 实 现 对 datainl.txt和“datain2.txt”文件的读数据操作。单击 计算 按钮，利用For循环实现将把一个数组的元索的第n个元素除以10截尾取整，再把第二个数组的第n个元素除以10截尾取整，两者相乘后的结果做为第三个数组的第n个元素，数字取整用lnt()函数来实现；并用窗体的Print方法将结果显示在窗体上。单击 存盘 按钮，将结果存在Dataout.txt文件中。【操作步骤】步骤1：打开本题工程文件，添加控件并设置控件的属性。程序中用到的控件及属性见表3.218o表 3.218。控件命令按钮命令按钮22命令按钮3P属性Name*Captiorv Name*-Caption*Name*Caption*设置值CW读入数据+C2Q计算。C3c存盘”步骤2：分析并编写程序代码。程序提供代码Option Base 1Dim Arrl(20)As IntegerDim Arr2(20)As IntegerDim Sum As IntegerSub ReadDatal()Open App.Path&datainl.txt For Input As#1For i=1 To 20Input#1,Arrl(i)Next iClose#1End SubSub ReadData2()Open App.Path&datain2.txt For Input As#1For i=1 To 20Input#1,Arr2(i)Next iClose#1End SubSub WriteData(Filename As String,Num As Integer)Open App.Path&Filename For Output As#1Print#1,NumClose#1End SubPrivate Sub Cl_Click()要求考生编号的内容End SubPrivate Sub C2_Click(),要求考生编号的内容End SubPrivate Sub C3_Click()要求考生编号的内容End Sub程序结束参考答案Private Sub Cl_Click()ReadDatalReadData2End SubPrivate Sub C2_Click()Dim Arr3(20)As IntegerSum=0For i=1 To 20Arr3(i)=lnt(Arrl(i)/10)*lnt(Arr2(i)/10)Sum=Sum+Arr3(i)Next iPrint Sum=SumEnd SubPrivate Sub C3_Click()WriteData DataOut.txt,SumEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。第69套题解析题目一：基本操作题(1)【考点分析】本题考点有：菜单编辑器的使用(名称，标题，内缩符号)和窗体的Print、Cis方法。【解题思路】用菜单编辑器来设置菜单的名称，标题，内缩符号。在窗体上显示 等级考试 用窗体的Print方法，清除内容则窗体的用Cis方法。【操作步骤】步骤L建立界面，然后用菜单编辑器建立如下表3.219所示的菜单。表 3.219标题操作显示清除名称OpDisClea内缩符号011步骤2：编写程序代码。参考答案Private Sub Dis_Click()Print”辱级考试”End SubPrivate Sub Clea_Click()CisEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。(2)【考点分析】本题考点有：标签的Name、Caption属性，列表框的的Name、List、ListCount属性和DbICIick事件。【解题思路】在列表框的DbICIick事件中，通过列表框的ListCount属性得出列表框的项目数，并通过标签的Caption属性显示项目数。【操作步骤】步骤1：建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.220。表 3.220步骤2：编写程序代码T参考答案Private Sub Ll_DblClick()控件列表框标签属性Name L istNameCaption设置值L1abcd hijk gfbd、smn LabiLabi.Caption=LI.ListCountEnd Sub步 骤3：调 试 并 运 行 程 序，关 闭 程 序 后 按 题 目 要 求 存 盘。题 目 二：简 单 应 用 题(1)【考 点 分 析】本 题 考 点 有：文 本 框 的Name、属 性，框 架 的Name、Caption属 性，单选按 钮 的Name、Caption Value属 性 以 及If判 断 语 句。【解题思路】在窗体上添加相应的控件并通过属性窗口设置其属性。通过If语句判断单选按钮的Value属性是否为True,即某个单选按钮是否被选中来显示标签的内容。一般地，我们认为Value属 性 是 单 选 按 钮 的 默 认 属 性。另 外，单 击 文 本 框 将 触 发 文 本 框 的Click事 件。【操 作 步 骤】步骤1：打开本题工程文件，添加控件并设置控件的属性。程序中用到的控件及属性见表3.221 和 3.222。表 3.22 W控件框 架 2框 架22文本框严属性Nam红Caption上Name*Caption*Name*3设置值F2交通工具，、F2