2012年全国计算机等级考试二级VB上机考试试题题库
全国计算机二级《VB》练习题及答案
全国计算机二级《VB》练习题及答案全国计算机二级《VB》练习题及答案9月计算机等级考试将于9月23日-26日举行，目前处于紧张的备考阶段，以下是店铺搜索整理的一份全国计算机二级《VB》练习题及答案，供参考练习，预祝考生们考出自己理想的成绩!想了解更多相关信息请持续关注我们店铺!1.双击窗体中的对象后，VB将显示的窗口是(C)(单)A.工具箱B.项目(工程)窗口C.代码窗口D.属性窗口2.下述选项中，VB的程序设计方法是(B)(单)A.面向对象、顺序驱动B.面向对象、事件驱动C.面向过程、事件驱动D.面向过程、顺序驱动3.在VB中，要将一个窗体装载到内存进行变量初始化等预处理，但没有显示该窗体，应使用的方法或语句是(C)(单)A.ShowB.UnloadC.LoadD.Hide4.文本框的默认属性是(B)(单)A.CaptionB.TextD.Top5.标签默认属性是(A)(单)A.CaptionD.Top6.执行以下程序段：a$="abbacddcba"For I=6 To 2 Step -2X=Mid(a,I,I)Y=Left(a,I)z=Right(a,I)z=Ucase(X&Y&z)Next IPrint z输出结果为(B)(单)A.ABAB.BBABBAC.ABBABAD.AABAAB7.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click( )Dim a As Varianta=Array(1,2,3,4,5)Sum=0For I=1 To 5Sum = sum+a(I)Next Ix=Sum/5For I =1 To 5If a(I)>x Then Print a(I);End Sub程序运行后，单击命令按钮，在窗体上显示的内容是(D)(单)A.1 2B.1 2 3C.3 4 5D.4 58.假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。
2012年计算机二级VB上机试题及解题思路(第五套)
第05套1. 基本操作（2小题，每小题15分，共计30分）注意：下面出现的“考生文件夹”均为%USER%**********************************************************************请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在名称为Form1 的窗体上画一个名称check1的复选框数组（Index属性从0开始），含三个复选框，其标题分别为“语文”、“数学”、“体育”，利用属性窗口设置适当的属性，使“语文”未选，“数学”被选中，“体育”为灰色，再把窗体的标题设置为“选课”，如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
解题思路：启动Visual Basic系统，创建一个Form1窗体。
在该窗体上画一个复选框控件，通过对复选框控件的复制产生复选框控件数组，共有三个复选框，标题（Caption属性）分别设为“语文”、“数学”、“体育”，“数学”的Value属性设为1,“体育”的Value属性设为2。
激活Form1窗体，通过其属性窗口将标题（Caption属性）设为“选课”。
参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt1.vbp、sjt1.frm、sjt1.vbw请把这些文件复制到c:\wexam\26990001中，然后打开sjt1.vbp文件并运行。
**********************************************************************（2）在名称为Form1的窗体上画两个文本框，名称分别为Text1、Text2，再画两个命令按钮，名称分别为Command1、Command2，标题分别为“复制”、“删除”。
程序运行时，在Text1中输入一串字符，并用鼠标拖拽的方法选择几个字符，然后单击“复制”按钮，则被选中的字符被复制到Text2中（如图所示）。
国家二级VB机试(上机操作)-试卷100
国家二级VB机试（上机操作）-试卷100(总分：6.00，做题时间：90分钟)一、基本操作题(总题数：1，分数：2.00)1.在考生文件夹下有一个数据库文件“samp1．accdb”，罩面已经设计好表对象“tStud”。
请按照以下要求，完成对表的修改。
(1)设置数据表显示的字体大小为14、行高为18。
(2)设置“简历”字段的设计说明为“自上大学起的简历信息”。
(3)设置“入校时间”字段的格式为“××月××日××××”形式。
注意：要求月日为两位显示，年用4位显示，如“12月15日2005”。
(4)将学号为“20011002”的学生的“照片”字段数据设置为考尘文件夹下的“photo．bmp”图像文件。
(5)将冻结的“姓名”字段解冻。
(6)完成上述操作后，将“备注”字段删除。
（分数：2.00）__________________________________________________________________________________________ 正确答案：(正确答案：(1)【操作步骤】步骤1：选择表对象，右键单击表“tStud”，在弹出的快捷菜单中选择“打开”命令或双击打开“tStud”表。
步骤2：单击“开始”选项卡的“文本格式”组，在“字号”列表选择“14”，如图3．148所示。
步骤3：单击“开始”选项卡的“记录”组中的“其他”按钮，从弹出的快捷菜单中选择“行高”命令，在弹出的对话框中输入“18”，单击“确定”按钮，单击快速访问工具栏中的“保存”按钮。
如图3．149所示。
(2)【操作步骤】步骤1：打开表“tStud”的设计视图。
步骤2：在“简历”字段的“说明”列输入“自上大学起的简历信息”。
如图3．150所示。
(3)【操作步骤】步骤1：单击“入校时间”字段行任一点。
步骤2：在“格式”栏中输入“mm＼丹dd＼日yyyy”。
2012年9月全国计算机二级VB考试真题
2012年9月全国计算机二级VB考试真题二级VB一、选择题（每小题2分，共70分）（1）下列链表中，其逻辑结构属于非线性结构的是A）循环链表 B）双向链表 C）带链的栈 D）二叉链表（2）设循环队列的存储空间为Q(1:35)，初始状态为front=rear=35，现经过一系列入队与退队运算后，front=15，rear=15，则循环队列中的元素个数为A）16 B）20 C）0或35 D）15（3）下列关于栈的叙述中，正确的是A）栈顶元素一定是最先入栈的元素 B）栈操作遵循先进后出的原则C）栈底元素一定是最后入栈的元素 D）以上三种说法都不对（4）在关系数据库中，用来表示实体间联系的是A）二维表 B）树状结构 C）属性 D）网状结构（5）公司中有多个部门和多名职员，每个职员只能属于一个部门，一个部门可以有多名职员，则实体部门和职员间的联系是A）m:1联系 B）1:m联系 C）1:1联系 D）m:n联系（6）有两个关系R和S 如下:则由关系R得到关系S的操作是A）自然连接 B）选择 C）并 D）投影（7）数据字典（DD）所定义的对象都包含于A）程序流程图 B）数据流图（DFD图） C）方框图 D）软件结构图（8）软件需求规格说明书的作用不包括A）软件可行性研究的依据 B）用户与开发人员对软件要做什么的共同理解C）软件验收的依据 D）软件设计的依据（9）下面属于黑盒测试方法的是A）逻辑覆盖 B）语句覆盖 C）路径覆盖 D）边界值分析（10）下面不属于软件设计阶段任务的是A）数据库设计 B）算法设计C）软件总体设计 D）制定软件确认测试计划(11)以下叙述叙述中错误的是A)vbp是工程文件,一个工程可以包括.bas文件B).frm文件是窗体文件,一个窗体可以包含.bas文件C) vbp是工程文件,一个工程可以由多个.frm文件组成D).vbg文件是工程组文件,一个工程组可以由多个工程组成(12)以下叙述中错误的是A)在Visual Basic的窗体中,一个命令按钮是一个对象B)事件是能够被对象识别的状态变化或动作C)事件都是由用户的键盘操作或鼠标操作触发D)不同的对象可以具有相同的方法(13)设x=3.3, y=4.5, 表达式x-Int(x)+Fix(y)的值是A)3.5 B)4.8 t C)4.3 D)4.7(14)窗体上有一令名称为Command1的命令按钮, 其中部分代码如下: Private Sub Command1_Click()Dim a(10)As IntegerDim n As Integer... ...Call calc(a, n)... ...End Subcalc过程的首行应该是A)Sub talc(x()As Integer, n As Integer)B)Public Sub calc(x() As Integer)C)Private Sub calc(a(n) As Integer, n As Integer)D)Public Sub calc(a As Integer, n As Integer)(15)设有如下程序:Sub f(x As Integer,ByVal y As Integer)x=2*xy=y+xEnd SubPrivate Sub Command1_Click()Dim a As Integer,b As Integera=6:b=35Call f(a, b)Print a, bEnd Sub程序运行后, 单击命令按钮Command1, 输出结果为A)6 47 B)12 47 C)6 35 D)12 35(16)以下叙述中正确的是A)窗体及窗体上所有控件的事件过程代码都保存在窗体文件中B)在工程中只有启动窗体可以建立菜单c)窗体名称必须与窗体文件的名称相同D)程序一定是从某个窗体开始执行的(17)窗体上有一个名称为Command1的命令按钮, 其单击事件过程代码如下: Private Sub Command1_Click()Static x As Variantn=0x=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)while n<=4x(n)=x(n+5)Print x(n);n=n+1WendEnd Sub运行程序, 单击命令按钮Command1, 窗体上显示的是A)1 2 3 4 5 B)6 7 8 9 10 C)2 3 4 5 6 D)6 2 3 4 5(18)窗体上有一个名称为Label1的标签和一个名称为Command1的命令按钮。
计算机的等级考试二级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上机题含答案第四套
第04套1. 基本操作（2小题，每小题15分，共计30分）注意：下面出现的“考生文件夹”均为%USER%********************************************************************** 请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）请在名称为Form1的窗体上建立一个二级下拉菜单，第一级共有二个菜单项，标题分别为“文件”、“编辑”，名称分别为file、edit；在“编辑”菜单下有第二级菜单，含有三个菜单项，标题分别为“剪切”、“复制”、“粘贴”，名称分别为cut、copy、paste。
其中“粘贴”菜单项设置为无效（如图所示）。
*注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
********************************************************************** （2）在窗体上画二个文本框，名称分别为Text1、Text2。
请设置适当的控件属性，并编写适当的事件过程，使得在运行时，如果在Text1中每输入一个字符，则显示一个“*”，同时在Text2中显示输入的内容（如图所示）。
程序中不得使用任何变量。
*注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
2. 简单应用（2小题，每题20分，计40分）注意：下面出现的“考生文件夹”均为%USER%*********************************************************************** （1）在名称为Form1的窗体上画二个图片框，名称分别为P1、P2，高度均为1900，宽度均为1700，通过属性窗口把图片文件pic1.bmp放入P1中，把图片文件pic2.jpg放入P2中；再画一个命令按钮，名称为C1，标题为“交换图片”（如图所示）。
2012全国计算机二级VB机试模拟题 (12)
1第1小题【知识点播】文本框控件的MultiLine属性设置文本框是否能以多行显示文本，值为True表示允许，值为False表示不允许；ScrollBars属性设置文本框是否有水平或垂直滚动条，它的值为：0表示没有滚动条（默认值），1表示只有水平滚动条、2表示只有垂直滚动条，3表示有水平和垂直滚动条，设置0以外的值时MultiLine属性值必须为True。
【审题分析】本题只需按要求画出控件并设置其相应属性即可。
【操作步骤】步骤1：新建一个"标准EXE"工程，在窗体Form1中画两个文本框，并分别设置它们的相关属性，其属性及值如表97-1所示。
表97-1步骤2：按要求将文件保存至考生文件夹中。
第2小题【审题分析】要在程序运行时，移动滚动条上的滑块就能改变文本框的高度，只需在滚动条的Change事件过程中编写利用滚动条的V alue属性值来决定文本框Height属性值的语句即可，同时将文本框Width属性值设置为其Height属性值的1.5倍。
【操作步骤】步骤1：新建一个"标准EXE"工程，在窗体Form1中画一个文本框和一个水平滚动条，在属性设置窗口中设置其相关属性，其属性及值如表97-2所示。
表97-2步骤2：双击窗体Form1上的水平滚动条，打开代码编辑窗口，在其Change 事件过程中输入以下代码：参考代码：Private Sub Hsb1_Change()Txt1.Height = Hsb1.ValueTxt1.Width = Txt1.Height * 1.5End Sub步骤3：按要求将文件保存至考生文件夹中。
【主要考点】水平滚动条控件、Change事件过程。
2第1小题【审题分析】在本题源码“修改”按钮的单击事件过程中，通过语句“txtData = Cbo1.Text”将组合框中当前选择内容显示到文本框中，同时通过设置“确定”按钮的Enabled属性值为True使其可用；在“确定”按钮的单击事件过程中，通过语句“Cbo1.List(ListIndex) = txtData”把修改后的文本框内容替换组合框中该列表项的原有内容，并清空文本框，使“确定”按钮不可用；在“添加”按钮的单击事件过程中，用组合框的AddItem方法将文本框中的内容添加为组合框的一个项目。
国家二级VB机试(上机操作)模拟试卷116(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷116(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Forml的窗体上添加一个计时器控件，名称为Timerl。
请利用属性窗口设置适当属性，使得在运行时可以每隔1秒，调用计时器的Timer事件过程一次。
另外，请把窗体的标题设置为“题目2”。
设计阶段的窗体如图3．16所示。
注意：保存时必须存放在考生文件夹下，工程文件名为sitl．vbp，窗体文件名为sitl．frm。
(2)在名称为Forml的窗体上画一个文本框，名称为Text1，无初始内容；再画一个图片框，名称为P1。
请编写适当的事件过程，使得在运行时，在文本框中每输入一个字符，就在图片框中输出一行文本框中的完整内容，运行时的窗体如图3-17所示。
程序中不能使用任何变量。
注意：保存时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm.正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表4-10在窗体中画出控件并设置其相关属性。
步骤2：按要求将文件保存至考生文件夹中。
第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表4-11在窗体中画出控件并设置其相关属性。
步骤2：打开代码编辑窗口，编写命令按钮的单击事件过程。
参考代码：PriVate Sub Text1—Change( ) P1．Print Textl．TextEnd Sub步骤3：按要求将文件保存至考生文件夹中。
简单应用题2．(1)在考生文件夹下有一个工程文件sjt3．vbp，相应的窗体文件为sjt3．frm，在窗体上有一个命令按钮(名称为Commandl，标题为“计算并输出”)和两个文本框(名称分别为Text1和Text2)，如图3—8所示。
程序运行后，单击命令按钮，即可计算出数组Arr中10个数的正数之和pos与负数之和neg，并分别在两个文本框中显示出来。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
2012二级VB上机考试试题题库VB考试上机试题1) .新建一个工程，实现单击Command1将text1中的内容复制（或者剪切）到Text2中。
（要求使用Clipboard对象）保存。
窗体上一个text文本框，两个command按钮，caption分别为“剪切”，“恢复”，运行后要求在text1中输入文本，点“剪切”，把text1中的内容剪切掉，点”恢复“，把text1中的内容恢复出来。
提示：定义一个变量用来存放text1中的内容。
2) .新建一个工程，文本框text1,使用户输入字母一律转换为大写显示（焦点在最右端）保存。
3) .新建一个工程，实现功能：在窗体中实现由下向上滚动显示“您好！网络之家”这几个字。
保存。
4) .新建一个工程，在Form1界面创建Form2，Form3两个子菜单的Forms菜单，选择Form2子菜单，以无模式显示Form2,选择Form3子菜单，以有模式显示Form3.保存。
5) .新建一个工程，在界面上放置一个工具条Toobar1,在工具条上有三个按纽，按下第一个按钮时用MsgBox显示：“第一个按纽被按下”；按下第二个按纽时用MsgBox显示：“第二个按纽被按下”；按下第三个按纽时用MsgBox显示：“第三个按钮被按下”。
保存。
6) 。
新建一个工程，包含两个窗体Form1,Form2。
实现功能制作－－－欢迎界面，时间为三秒，三秒后，Form1消失，Form2出现。
保存。
7) 。
新建一个工程，实现功能限制：在Text1中只能输入10个字母，超过的在Text2中显示。
保存。
8) 。
新建一个工程，实现功能单击Text1框时，Text1中的内容被全选。
保存。
9) 。
新建一个工程，实现功能点击Command1按钮，读取系统的汉字字型，在ComBox列表框中显示。
保存。
10) 。
新建一个工程，实现单击Commmand1将Text1的内容剪切到Text2中。
（上次的那道题目是复制）保存。
11) 。
新建一个工程，其中含五个单选按钮，两个面板StratusBar1. 第一面板题“欢迎探讨”，点击单选按钮时，第二个面板标题为选中的标题号。
保存。
12) 。
新建一个工程，使用打开对话框找到某一文件（硬盘上任意一文本文件），带全路径的文件名，显示在一文本框内。
保存。
13) 。
新建一个工程，其中含一个图片框PictureBox1,五个命令按钮Command1-Command5，控件标题分别为画点、画线、画圆、擦除、休息。
实现单击按钮图片框内实现功能。
14) 。
新建一个工程，在窗体上放置一个data控件，实现程序功能：不用data控件启动工程时，可选择打开一个mdb 文件，统计其中有多少张表。
保存。
（此题要求，我不理解，你看怎样）15) 。
新建一个工程，左右两边各放置一个列表框ListBox 的控件List1和List2，在List1中竖排显示内容“第一题、第二题、第三题、第四题、第五题”这五项。
在两个列表框中间竖排四个命令按钮，标题分别为“＜”、“＞”、“＜＜”、“＞＞”。
实现程序功能：1）点击“＜”将List1中所选中的项添加到List2中，并将List1中的项删除。
2）点击“＞”将List2中所选中的项添加到List1中，并将List2中的项删除。
3）点击“＜＜”将Lixt1中所有的选项添加到List2中，并将List1中的项清空。
4）点击“＞＞”将List2中所有的选项添加到List1中，并将List2中的项清空。
最后保存。
16) 新建一个工程，在界面上放置一个按扭command1 和文本空件text1，当点击按扭时将当前工程所在的路径显示在文本框里。
程序以vb39保存在考生文件夹下17) 建一个工程，放置6个checkbox,组一个空件组checkbox(i),并放一个按扭，点击能统计有多少个checkbox被选，用msgbox将数字显示出来，文件保存在vb33里简单应用19) 有一文档不完整，在有“？”的地方把程序补完整form上有一个text1, 一个command1,要求在text1中添入文本，但用“*”显示，若文本是“ABC”，则msgbox"正确",否则msgbox"错误"以给程序：Private Sub command1.Click()if text1.text="ABC" or text1.text="?"then msgbox"正确"Else msgbox"错误">Subject: vb考试的试题>1．简单应用（2小题，每题20分，计40分）注意：下面出现的"考生文件夹"均为************************************************************ **** *（1）在考生文件夹中有工程文件wy5.vbp及其窗体文件wy5.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其他部分。
存盘时不得改变文件名和文件夹。
本题描述如下：在窗体上有一个列表框，名称为List1，一个文本框，名称为Text1，和一个命令按钮，名称为C1，标题为"复制"。
要求程序运行后，在列表框中自动建立四个列表项，分别为"Item1"、"Item2"、"Item3"、"Item4"。
如果选择列表框中的一项，则单击"复制"按钮时，可以把该项复制到文本框中。
（2）在考生文件夹中有工程文件wy6.vbp及其窗体文件wy6.frm ，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。
存盘时不得改变文件名和文件夹。
本题描述如下：在窗体有三个复选框，名称分别为Ch1、Ch2和Ch3，标题依次为"体育"、"音乐"、"美术"，还有一个命令按钮，名称为C1，标题为"显示"。
要求程序运行后，如果选中某个复选框，则当单击"显示"命令按钮时，则显示相应的信息。
例如，如果选取中"体育"和"音乐"复选框，则单击"显示"命令按钮后，在窗体上显示"我的爱好是体育音乐"（如图所示）；而如果选中"体育"、"音乐"和"美术"复选框，则单击"显示"按钮后，在窗体上显示"我的爱好是体育音乐美术"。
2．第3题、3．综合应用（1小题，计30分）注意：下面出现的"考生文件夹"均为在名称为Form1的窗体上建立两个单选按钮（名称分别为Opt1和Opt2，标题分别为"100-200之间素数"和"200-400之间素数"）、一个文本框（名称为Text1）和两个命令按钮，其名称分别为Cmd1和Cmd2，标题分别为"计算"、"存盘"（如图所示）。
程序运行后，如果选中一个单选按钮并单击"计算"按钮，则计算出该单选按钮标题所指明的所有素数之和。
并在文本框中显示出来。
如果单击"存盘"按钮，则把计算结果存入"out.txt"文件中，该文件必须放在考生文件夹中。
（在考生文件夹中有标准模块mode.bas，其中的putdata 过程可以把结果存入指定的文件，而isprime函数可以判断整数x是否为素数，如果是素数，则函数返回True，否则返回False，考生可以将该模块文件添加到自己的工程中。
）注意：（1）必须把200-400之间的素数之和存入考生文件夹下的out.txt文件中，否则没有成绩。
（2）保存程序时必须存放在考生文件夹下，窗体文件名为wy7.frm，工程文件名为wy7.vbp。
3．第4题、1．基本操作（4小题，计30分）注意：下面出现的"考生文件夹"均为************************************************************ *****请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在考生文件夹中有工程文件wy1.vbp及其窗体文件wy1.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。
存盘时不得改变文件名和文件夹。
本题描述如下：在窗体上有一个名称为P1的图片框和二个名称分别为C1、C2，标题分别为"显示"、"清除"的命令按钮（如图所示）。
程序运行后，如果单击"显示"按钮，则把考生文件夹中的图形文件pic1.gif装入图片框中，如果单击"清除"按钮，则从图片框中清除该图片。
请填空（程序中的App.path用来指定当前目录）。
4．##（2）在窗体上建立一个名称为Text1的文本框和一个名称为Cmd1，标题为"计算"的命令按钮（如图所示）。
程序运行后，单击"计算"命令按钮，通过在对话框输入整数12，放入整形变量a中，然后计算a!，（提示：运算结果应放入Long型变量中），在文本框中显示结果，并把结果存入文件out.txt中。
在考生文件夹中有一个标准模块mode.bas ，该模块中提供了保存文件的过程putdata,考生可以直接调用。
注意：保存时必须存放在考生文件夹下，窗体文件名为wy6.frm，工程文件名为wy6.vbp。
5．3．综合应用（1小题，计30分）注意：下面出现的"考生文件夹"均为在名称为Form1的窗体上建立一个文本框（名称为Text1，Multiline属性为True，ScrollBars属性为2）和两个命令按钮（名称分别为Cmd1和Cmd2，标题分别为"读入数据"和"计算保存"）（如图所示）。
要求程序运行后，如果单击"读入数据"按钮，则读入"in.txt"文件中的100个整数，放入一个数组中（数组下界为1），同时在文本框中显示出来；如果单击"计算保存"按钮，则计算数组中大于或等于400并且小于800的所有数之和，把求和结果在文本框Text1中显示出来，同时把结果存入考生文件夹中的文件"result.txt"中。