等级考试二级VB上机试题50套解析
计算机二级VB语言程序设计考试题及答案
计算机二级VB语言程序设计考试题及答案计算机二级VB语言程序设计考试题及答案1.在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：PrivateSubCommand1_Click()n=Val(Text1.Text)Ifn2=n/2Thenf=f1(n)Elsef=f2(n)EndIfPrintf;nEndSubPublicFunctionf1(ByRefx)x=x*xf1=x+xEndFunctionPublicFunctionf2(ByValx)x=x*xf2=x+x+xEndFunction程序运行后，在文本框中输入3，然后单击命令按钮，窗体上显示的是(D)(单)A.7236B.10836C.726D.2732.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()c="1234"Fori=1To4c1=Trim(Str())Printc1NextiEndSub程序运行后，单击命令按钮，要求在窗体上显示如下内容1121231234则在下划线处应填入的内容为(B)(单)A.Right(c1,i)B.Left(c1,i)C.Mid(c1,i,1)D.Mid(c1,i,i)3.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：PrivateSubCommand1_Click()n=Val(Text1.Text)Fori=2TonForj=2Tosqr(i)IfiModj=0ThenExitForNextjIfj>Sqr(i)ThenPrintiNextiEndSub该事件过程的功能是(C)(单)A.输出n以内的奇数B.输出n以内的'偶数C.输出n以内的素数D.输出n以内能被j整除的数4.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：PrivateFunctionf(mAsInteger)IfmMod2=0Thenf=mElsef=1EndIfEndFunctionPrivateSubCommand1_Click()DimiAsIntegers=0Fori=1To5s=s+f(i)NextPrintsEndSub程序运行后，单击命令按钮，在窗体上显示的是(C)(单)A.11B.10C.9D.85.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Dimarray1(10,10)AsIntegerDimiAsInteger,jAsIntegerFori=1To3Forj=2To4array1(i,j)=i+jNextjNextiText1.Text=array1(2,3)+array1(3,4)EndSub程序运行后，单击命令按钮，在文本框中显示的值是(D)(单)A.15B.14C.13D.126.VisualBasic应用程序中标准模块文件的扩展名是【BAS或.BAS】(注意不要写点)。
国家二级VB机试(上机操作)模拟试卷142(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷142(题后含答案及解析) 题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题1．在名称为Form1、标题为“欢迎”的窗体上画1个名称为Label1的标签，其标题内容为“欢迎使用本系统”，标题文字字体和字号分别为“宋体”、“三号”，标签大小能根据标题内容自动调整，效果如图所示。
程序执行时，窗体的最大化按钮不可用(如图所示)，请设置相应属性。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
正确答案：[操作步骤]步骤1：新建一个窗体，在属性窗口中设置窗体的属性，按照表4．3所示在属性窗口中设置相应属性，其运行效果如图4．3所示。
步骤2：在窗体上添加一个标签控件，在属性窗口中设置标签的属性，按照表4．4所示在属性窗口中设置相应属性，其运行效果如图4．4所示。
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
2．在名称为Form1的窗体上，画1个名称为Label1的标签，其标题为“横坐标X”，且能根据标题内容自动调整标签的大小；再画1个名称为Text1的文本框，其中的文字显示为空白；再画1个名称为Picture1的图片框，大小适中即可。
要求：编写适当的事件过程，使得程序运行时，如果鼠标在图片框中移动，则能在文本框Text1中显示鼠标在图片框中的当前位置的横坐标，运行情况如图所示。
注意：要求程序中不得使用变量，事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：[操作步骤]步骤1：新建一个窗体，在窗体上添加一个标签控件，在属性窗口中设置标签的属性，按照表4．5所示在属性窗口中设置相应属性，其运行效果如图4．5所示。
步骤2：在窗体上添加一个文本框控件，在属性窗口中设置文本框的属性，按照表4．6所示在属性窗口中设置相应属性，其运行效果如图4．6所示。
国家二级VB机试(上机操作)模拟试卷600(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷600(题后含答案及解析)题型有：1.jpg /> 步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案PriVate Sub Commandl_Click( ) Text2=Textl．SelLength End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【易错提示】SelLength属性与SelStart和SelText属性容易混淆，SelStart属性是返回／设置选定文本的起始点，SelText属性是返回／设置当前选定文本的字符串。
解析：selLength属性用于返回／设置选定的字符数，通过文本框的Name 和Caption属性设置文本框的名称和标题，通过命令按钮的Name和Cap．tion 属性设置命令按钮的名称和标题。
简单应用题3．在考生文件夹下有一个工程文件sjt3．vbp。
程序运行后，单击“读入数据”按钮，可将考生文件夹下in3．1xt文件中的所有英文单词读入，并在Textl 文本框中显示；单击“插入列表框”按钮，则按顺序将每个单词作为一项添加到List1列表框中(如图所示)。
在in3．txt文件中，每个单词之间用一个空格字符隔开，最后一个单词的后面没有空格。
已经给出了所有控件和程序，但程序不完整。
要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。
最后用原来的文件名保存工程文件和窗体文件。
正确答案：【操作步骤】步骤l：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符“′”，将问号改为正确的内容。
参考答案(阴影部分是需考生填入的内容) Private Sub Commandl_C1ick( ) Dim st$．ch$ Open App．Path＆＂＼in3．txt＂For In—put As#’打开文件Do While Not EOF(1)′文件指针是否到达文件末尾Input#1，ch′达到文件末尾返回true．否则返回false st=st＆ch′将读出的数据加到原有数据末尾Loop Close#1′关闭文件Textl=st′将内容显示在文本框中End Sub Private Sub Command2_Click( ) Dim st$，word$，C$ St=Textl n=Len(St) For k=1 TO n c=Mid(st，k，1)′从st 中依次取出1个字符进行比较If c＜＞＂＂Then word=word＆C E1Se Listl．AddItem word word=＂＂将word清空，为下一次作准备End If Next LiStl．AddItem word End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
国家二级VB机试(上机操作)模拟试卷463(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷463(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1，标题为“矩形与直线”的窗体上画一个名称为Line1的直线，其X1、Y1属性分别为200、100，X2、Y2属性分别为2200，1600。
再画一个名称为Shape1的矩形，并设置适当属性，使Line1成为它的对角线，如图3－19所示。
注意：存盘时，将文件保存至考生文件夹下，窗体文件名为sjt1．ffm，工程文件名为sjt1．vbp。
(2)在名称为Form1，标题为“列表框练习”的窗体上，画一个名称为Lst1的列表框，并输入若干列表项，再画一个标题为“删除”，名称为Command1的命令按钮，如图3－20所示。
请编写适当的事件过程，使得单击“删除”按钮，就删除选中的列表项；双击某个列表项，则把该列表项内容添加到列表的最后。
注意：存盘时，将文件保存至考生文件夹下，窗体文件名为sjt2．frm，工程文件名为sjt2．vbp。
要求程序中不得使用变量，每个事件过程中只能写一条语句。
正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Form1中加入一个Shape形状和直线。
按表4－13设置其相关属性。
步骤2：按要求将文件保存至考生文件夹中。
第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Form1中加入一个命令按钮和列表框。
按表4－14设置其相关属性。
步骤2：在打开的代码编辑窗口中，编写命令按钮的Click事件和列表框的双击DblClick事件代码。
参考代码：Private Sub Command1 Click( ) List1．RemoveItem List1．ListIndex End Sub Private Sub List1 DblClick( ) List1．AddItem List1．Text End Sub 步骤3：按要求将文件保存至考生文件夹中。
计算机的等级考试二级VB上机试题50套解析
、第 50 套 上机考试试题 一、基本操作题 （1）在名称为Form1的窗体上绘制一个文本框，名称为Txt1，字体为“宋体”，文本 框中的初始内容为“二级Visual Basic”；再绘制一个命令按钮，名称为Cmd1，标题为“改 变字体为楷体”。
请编写适当事件过程，使得在运行时，单击命令按钮，则把文本框中文 字的字体改为楷体，如图50-1所示。
图 50-1 注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 vbsj1.vbp ，窗体文件名为vbsj1.frm 。
（2）在名称为Form1的窗体上绘制一个名称为Cmd1的命令按钮，其标题为“移动”， 位于窗体的左上部。
编写适当的事件过程，使程序运行后，每单击一次窗体，都使得命令 按钮同时向右、向下移动100。
程序的运行情况如图50-2所示。
图 50-2注意：不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为vbsj2.vbp ，窗体文件名为vbsj2.frm 。
二、简单应用题（1）在名称为 Form1 的窗体中绘制一个名称为 Lab1 的标签，其标题为“0”，BorderStyle 属性为 1；再添加一个名称为 Tmr1 的计时器。
请设置适当的控件属性，并编写适当的事 件过程，使得在运行时，每隔 1 秒钟标签中的数字加 1。
程序运行时效果如图 50-3 所示。
注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为vbsj3.vbp ，窗体文件名为 vbsj3.frm 。
图 50-3 （2）在考生文件夹中有一个工程文件 vbsj4.vbp 及窗体文件 vbsj4.frm 。
在名称为 Form1 的窗体上有一个名称为 Cmd1 的命令按钮，其标题为“下一个”。
要求在窗体上建立一个 单选按钮数组 Opt1，含 4 个单选按钮，标题分别为“A”、“B”“C”和“D”，初始状态 下，“A”为选中状态。
程序运行效果如图 50-4 所示。
全国计算机 二级 VB上机操作题 题目答案及解析
85 （1）【考点分析】本题考点有：文本框的Name、Height、Width、Font、FontSize属性，窗体的Caption、MaxButton、MinButton属性。
【解题思路】根据题意添加控件并设置相应属性。
不显示窗体的最大化和最小化按钮只需将其MaxButton和MinButton属性设为False即可。
【操作步骤】步骤1：建立界面，添加控件并设置控件的属性。
程序中用到的控件及属性见表3.275。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
（2）【考点分析】本题考点有：图像框的Name、Picture、Stretch属性，命令按钮的Name、Caption属性。
【解题思路】图像框（Image）的Picture属性用于在设计阶段设置在图像框中显示的图片，它的Stretch（自动伸缩）属性用来设定载入其中的图片是否需要自动调整大小，以适应图像框的大小。
本题要在单击按钮时实现"向右移动"或"向下移动"的功能，应在程序中动态设置图像框的Left和Top属性。
【操作步骤】步骤1：建立界面，添加并设置控件的属性。
程序中用到的控件及属性见表3.276。
4 步骤2：编写程序代码。
参考答案Private Sub Command1_Click()Image1.Left = Image1.Left + 100End SubPrivate Sub Command2_Click()Image1.Top = Image1.Top + 100End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。
（1）【考点分析】本题考点有：命令按钮的Caption属性和Click事件，直线控件的X1、X2、Y1、Y2属性，形状控件的Shape属性，Sin( )函数，Cos( )函数以及计时器的Enabled属性和Timer事件。
【解题思路】Sin( )函数和Cos( )函数分别返回变量的正弦和余弦值；通过X1、X2、Y1、Y2属性来设置直线的端点。
国家二级VB机试(上机操作)模拟试卷100(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷100(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Forml的窗体上画一个标签，名称为L1，标题为“业余爱好”，再画一个名称为Chl的复选框数组，含三．个复选框，它们的Index属性分别为0、1、2，标题依次为“体育”、“音乐”、“美术”，请设置复选框的属性，使其初始状态见表3一1。
运行后的窗体如图3-11所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。
(2)在名称为Forml的窗体上画一个文本框，名称为Text1；再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个菜单项，名称分别为Show和Hide，标题分别为“显示”、“隐藏”，请编写适当的事件过程，使得在运行时，单击“隐藏”菜单项，则文本框消失；单击“显示”菜单项，则文本框显示出来。
运行后的窗体如图3-12所示。
要求程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：第1小题本题只需按要求画出控件数组，并设置其Value属性。
【操作步骤】步骤1：新建一个“标准EXE”工程。
步骤2：在窗体Forml中加入一个标签和一个复选框，并用“复制”和“粘贴”的方法，生成包含三个元素的复选框数组。
步骤3：分别设置窗体和复选框数组中各元素的相关属性，其属性及值如表4．5所示。
步骤4：按要求将文件保存至考生文件夹中。
第2小题本题需用菜单设计器建立菜单，并编写“显示”和“隐藏”菜单项的单击事件过程控制文本框的visible属性变化。
【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Forml中画一个文本框，在属性设置窗口中将其Name属性值设置为Text1。
计算机二级VB上机操作练习题及答案
计算机二级VB上机操作练习题及答案计算机二级VB上机操作练习题及答案Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，下面店铺为为大家带来计算机二级VB上机操作练习题及答案，希望大家喜欢！一、基本操作题(1)在名称为Forml、标题为“球类项目”且没有最大化和最小化按钮的窗体上画1个名称为Combol的组合框。
组合框中的文本内容为空，表项内容有“乒乓球”、“羽毛球”和“网球”3项。
运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl.vbp，窗体文件名为sjtl.frm。
(2)在名称为Forml、标题为“转换”的窗体上，画1个名称为Shapel、边框宽度为3的形状。
再画两个标题分别为“椭圆”和“圆”的命令按钮。
如下图所示。
要求：编写适当的事件过程，使得单击“椭圆”按钮时，Shapel 的形状变换为椭圆;单击“圆”按钮时，Shapel的形状变换为圆。
程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjr2.vbp，窗体文件名为sjr2.frm。
二、简单应用题(1)考生文件夹中有工程文件sjt3.vbv。
窗体上显示有一个列表框和一个文本框，且列表框中已有若干列表项。
程序的功能是，程序运行时，当用户在列表框中单击并选中某个列表项时，该项的内容将显示到文本框中，用户可以在文本框中对相关内容进行编辑，按回车键后，能够用编辑好的内容替换被选中的列表项，并自动清空文本框;当双击某个列表项时，则从列表框中删除该列表项;当用户直接在文本框中键入文本并按回车键后，则把该文本添加为列表框的一个新列表项，添加完成后，将文本框清空。
运行窗体如图所示。
要求：程序已经给出，但不完整，请将其中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序。
最后程序按原文件名存盘。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
第50 套上机考试试题一、基本操作题（1）在名称为Form1的窗体上绘制一个文本框，名称为Txt1，字体为“宋体”，文本框中的初始内容为“二级Visual Basic”；再绘制一个命令按钮，名称为Cmd1，标题为“改变字体为楷体”。
请编写适当事件过程，使得在运行时，单击命令按钮，则把文本框中文字的字体改为楷体，如图50-1所示。
图50-1注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为vbsj1.vbp，窗体文件名为vbsj1.frm。
（2）在名称为Form1的窗体上绘制一个名称为Cmd1的命令按钮，其标题为“移动”，位于窗体的左上部。
编写适当的事件过程，使程序运行后，每单击一次窗体，都使得命令按钮同时向右、向下移动100。
程序的运行情况如图50-2所示。
图50-2注意：不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为vbsj2.vbp，窗体文件名为vbsj2.frm。
二、简单应用题（1）在名称为Form1 的窗体中绘制一个名称为Lab1 的标签，其标题为“0”，BorderStyle 属性为1；再添加一个名称为Tmr1 的计时器。
请设置适当的控件属性，并编写适当的事件过程，使得在运行时，每隔1 秒钟标签中的数字加1。
程序运行时效果如图50-3 所示。
注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为vbsj3.vbp，窗体文件名为vbsj3.frm。
图50-3（2）在考生文件夹中有一个工程文件vbsj4.vbp 及窗体文件vbsj4.frm。
在名称为Form1 的窗体上有一个名称为Cmd1 的命令按钮，其标题为“下一个”。
要求在窗体上建立一个单选按钮数组Opt1，含4 个单选按钮，标题分别为“A”、“B”、“C”和“D”，初始状态下，“A”为选中状态。
程序运行效果如图50-4 所示。
图50-4要求程序运行时，使得每单击命令按钮一次，就选中下一个单选按钮，如果已经选中最后一个单选按钮，再单击命令按钮，则选中第1 个单选按钮。
窗体文件中已经给出了命令按钮的 Click 事件过程，但不完整，请去掉程序中的注释 符“'”，把程序中的问号“？”改为正确的内容。
注意：不能修改程序的其他部分。
最后，按原文件名并在原文件夹中保存修改后的文件。
三、综合应用题编写一个程序，输入货物的数量及单价，求总价并输出。
窗体标题设置为“模拟售货机”，窗体上的两个标签（分别命名为 Lab1 和 Lab2，标 题为“货物的数量（个）：”和“货物的单价（元）：”）两个名称分别为 Txt1 和 Txt2 的文 本框；一个名称为 Cmd1 的命令按钮，其标题为“总价”。
结果显示在名称为 Pic1 的图片 框中。
当用户输入货物的数量与单价后，单击“总价”按钮，输出正确的结果，程序运行 效果如图 50-5 所示。
注意：在存盘时，工程文件名为 vbsj5.vbp ，窗体文件名为 vbsj5.frm 。
一、基本操作题图 50-5第 51 套 上机考试试题（1）在名为 Form1 的窗体上建立一个名为 Hsb1 的水平滚动条，其最大值为 300，最小值为 0。
要求程序运行后，每次移动滚动框时，都执行语句 Form1.Print Hsb1.V alue ，运 行效果如图 51-1 所示。
注意：程序中不能使用任何其他变量；文件必须存放在考生文件夹中，窗体文件名为 vbsj1.frm ，工程文件名为 vbsj1.vbp 。
图 51-1（2）在窗体绘制一个名为 Pic1 的图片框和一个名为 Cmd1 且其标题为“显示”的命 令按钮。
编写适当的事件过程，使程序运行后，若单击“显示”命令按钮，则在图片框中 显示“这是一个图片框”，运行效果如图 51-2 所示。
图 51-2注意：不要使用任何变量，直接显示字符串；文件必须存放在考生文件夹中，窗体文 件名为 vbsj2.frm ，工程文件名为 vbsj2.vbp 。
二、简单应用题（1）在考生文件夹中有工程文件 vbsj3.vbp 及其窗体文件 vbsj3.frm 。
在名为 Form1的窗体上有3 个名称分别为Txt1、Txt2 和Txt3 的文本框；1 个名称为Cmd1 的命令按钮，其标题为“计算”。
要求程序运行后，在Txt1 和Txt2 中分别输入两个整数，单击“计算”按钮后，可把两个整数之间的所有整数（含两个整数）累加起来并在Txt3 中显示出来，如图51-3 所示。
图51-3要求：在有问号“？”的地方填入正确内容，然后删除“？”及所有注释符“'”，但不得修改其他部分。
保存时不得改变文件名和文件夹。
（2）在考生文件夹中有一个工程文件vbsj4.vbp，相应的窗体文件为vbsj4.frm。
在名为Form1 的窗体上有两个名称分别为Cmd1 和Cmd2 的命令按钮；一个名称为Lab1 的标签控件；一个名称为Tmr1 计时器控件。
程序运行后，在命令按钮Cmd1 中显示为“开始”；在命令按钮Cmd2 中显示为“停止”；标签中字号大小为18 号、字体为粗体、显示为“欢迎光临”（标签的AutoSize 属性为True）；计时器的Interval 属性设置为100，Enabled 属性设置为False。
此时如果单击“开始”命令按钮，则该按钮变为禁用，标题变为“继续”，同时标签自左至右移动（每个时间间隔移动50），如图51-4 所示。
当标签移动出窗体右边界后，自动从左边界开始向右移动；如果单击“停止”命令按钮，则该按钮变为禁用，“继续”命令按钮变为有效，同时标签停止移动；再次单击“继续”命令按钮后，标签继续移动。
本程序不完整，请补充完整，并能正确运行。
图51-4要求：去掉程序中的注释符“'”，把程序中的问号“？”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。
最后，按原文件名并在原文件夹中保存修改后的文件。
三、综合应用题在考生文件夹下有一个工程文件vbsj5.vbp，相应的窗体文件为vbsj5.frm。
在窗体Form1 上有两个名称分别为Cmd1和Cmd2的命令按钮，它们的标题分别为“写入文件”和“读出文件”，如图51-5所示。
图51-5其中“文件写入”命令按钮事件过程用来建立一个通讯录，以随机存取方式保存到文件dw1.dat中；而“文件读出”命令按钮事件过程用来读出文件dw1.dat中的每个记录，并在窗体上显示出来。
通讯录中的每个记录由3个字段组成：姓名（Name）、电话（Tel）和邮政编码（Pos）。
各字段的类型和长度为：姓名（Name）：字符串15 电话（Tel）：字符串15 邮政编码（Pos）：长整型（Long）程序运行后，如果单击“文件写入”命令按钮，则可以随机存取方式打开文件dw1.dat，并根据提示向文件中添加记录，每写入一个记录后，都要询问是否再输入新记录，回答“Y”（或“y”）则输入新记录，回答“N”（或“n”）则停止输入；如果单击“文件读出”命令按钮，则可以随机存取方式打开文件dw1.dat，读出文件中的全部记录，并在窗体上显示出来。
该程序不完整，请把它补充完整。
要求：①去掉程序中的注释符“'”，把程序中的问号“？”改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。
②文件dw1.dat中已有3个记录，请运行程序，单击“文件写入”命令按钮，向文件dw1.dat 中添加以下2个记录（全部采用西文方式），如下所示。
Tom (010)12345678 100000Jim (010)87654321 100001③运行程序，单击“文件读出”命令按钮，在窗体上显示全部记录。
④用原来的文件名保存工程文件和窗体文件。
第52 套上机考试试题一、基本操作题（1）在名为Form1 的窗体上建立级联菜单，该菜单含“文件”、“帮助”两项名称分别为mnuFile 和mnuHelp 的主菜单项。
其中“文件”菜单包括3 个名称分别为mnuFileOpen、mnuFileClose、mnuFileExit 的子菜单项，它们的标题分别为“打开”、“关闭”、“退出”，如图52-1 所示。
注意：只建立菜单，不必定义其事件过程；文件必须存放在考生文件夹中，窗体文件名为vbsj1.frm，工程文件名为vbsj1.vbp。
图52-1（2）在Form1 窗体上绘制一个名为Txt1 的文本框，然后建立一个名为mnuOp 的主菜单，其标题为“操作”，该菜单有两个名称分别为mnuOpDis 和mnuOpCls 的子菜单项，其标题分别为“显示”和“清除”。
编写适当的事件过程，使程序运行后，若单击“操作”菜单中的“显示”命令，在文本框显示Visual Basic；如果单击“清除”命令，则清除文本框中显示的内容。
程序的运行效果如图52-2 所示。
图52-2注意：文件必须存放在考生文件夹中，工程文件名为vbsj2.vbp ，窗体文件名为vbsj2.frm。
二、简单应用题（1）在考生文件夹中有一个工程文件vbsj3.vbp及窗体文件vbsj3.frm。
在名为Form1 的窗体中有两个图片框，名称分别为Pic1和Pic2，其中的图片分别是火箭和云层；有一个计时器，名为Tmr1，有一个命令按钮，名为Cmd1，标题为“发射”。
并给出了两个事件过程，但并不完整，请补充完整。
要求：①设置计时器的属性，使其在初始状态下不计时。
②设置计时器的属性，使其每隔0.1秒调用Timer事件过程一次。
③去掉程序中的注释符“'”，把程序中的问号“？”改为正确的内容，使得在运行时单击“发射”按钮，则火箭每隔0.1秒向上移动一次，当到达云层的下方时停止移动，如图52-3所示。
图52-3注意：不能修改程序的其他部分。
最后，按原文件名并在原文件夹中保存修改后的文件。
（2）在考生文件夹中有一个工程文件vbsj4.vbp和窗体文件vbsj4.frm。
在名为Form1 的窗体上，有一个名为Cmd1的命令按钮，其标题为“移动”；一个名为Vsb1的垂直滚动条；一个名为Txt1的文本框，它的初始内容为空。
程序的功能是在文本框中输入一个整数，单击“移动”按钮后，如果输入的是正数，滚动条中的滚动框向下移动与该数相符的刻度，如图52-4所示；但如果超过了滚动条的最大刻度，则不移动，并且显示“输入的数值太大”；如果输入的是负数，滚动条中的滚动框向上移动与该数相等的刻度，但如果超过了滚动条的最小刻度，则不移动，并且显示“输入的数值太小”。
要求：去掉程序中的注释符“'”，把程序中的问号“？”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分，也不得修改控件的属性。
最后把修改过的程序按原名保存。
图52-4三、综合应用题在名为Form1 的窗体上建立一个名称为Txt1 的文本框，其MultiLine 属性为True，ScrollBars 属性为2；3 个名称分别为Cmd1、Cmd2 和Cmd3 的命令按钮，它们的标题分别为“读数”、“计算”和“保存”。