国二级VB上机题含答案第四套

1、本文档为精品文档，如对你有帮助请下载支持，如有问题请及时沟通，谢谢支持！第04套1. 基本操作（ 2 小题，每小题 15 分，共计 30 分）注意：下面出现的“考生文件夹”均为%USER%*请根据以下各小题的要求设计Visual Basic 应用程序（包括界面和代码）。（ 1）请在名称为Form1 的窗体上建立一个二级下拉菜单，第一级共有二个菜单项，标题分别为“文件” 、“编辑”，名称分别为file 、 edit；在“编辑”菜单下有第二级菜单，含有三个菜单项，标题分别为“剪切”、“复制”、“粘贴”，名称分别为cut、 copy、paste。其中“粘贴”菜单项设置为无效（如图所示） 。*注意：存

2、盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为 sjt1.frm 。*（ 2）在窗体上画二个文本框，名称分别为Text1、Text2。请设置适当的控件属性，并编写适当的事件过程，使得在运行时，如果在Text1 中每输入一个字符，则显示一个“*”，同时在 Text2 中显示输入的内容（如图所示）。程序中不得使用任何变量。*注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为 sjt2.frm 。2. 简单应用（ 2 小题，每题 20 分，计 40 分）注意：下面出现的“考生文件夹”均为%USER%*（ 1）在名称为Form1 的窗体上画二个图片框

3、，名称分别为P1、 P2，高度均为1900，宽度均为1700，通过属性窗口把图片文件pic1.bmp 放入 P1 中，把图片文件 pic2.jpg 放入P2 中；再画一个命令按钮，名称为C1，标题为“交换图片”（如图所示）。 编写适当的事件过程，使得在运行时，如果单击命令按钮，则在 P1 中显示 Pic2.jpg ，在 P2 中显示 Pic1.bmp。程序中不得使用任何变量，也不能使用第三个图片框。*注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt3.vbp，窗体文件名为 sjt3.frm 。*（ 2）在考生文件夹下有一个工程文件sjt4.vbp，请在窗体上画二个复选框，名称分别为 C

4、h1、Ch2，标题分别为“程序设计” 、“数据库原理” ；然后画一个文本框，名称为Text1；再画一个命令按钮，名称为C1，标题为“确定”（如图所示）。请编写适当的事件过程，使得在运行时，选中复选框并单击“确定”按钮， 就可以按照下表的要求把结果显示在文本框中。存盘时，工程文件名为 sjt4.vbp，窗体文件名为 sjt4.frm 。注意：考生不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前，必须进行产生下表一个结果的操作。1本文档为精品文档，如对你有帮助请下载支持，如有问题请及时沟通，谢谢支持！3. 综合应用（ 1 小题，计 30 分）注意：下

5、面出现的“考生文件夹”均为%USER%在考生文件夹下有一个工程文件sjt5.vbp，其窗体上有二个文本框，名称分别为 Text1、 Text2；还有三个命令按钮，名称分别为C1 、C2 、 C3，标题分别为“输入”、“计算”、“存盘”（如图所示）。并有一个函数过程isprime(a) 可以在程序中直接调用，其功能是判断参数a 是否为素数，如果是素数，则返回True，否则返回False。请编写适当的事件过程，使得在运行时，单击“输入”按钮，就把文件in5.txt 中的整数放入Text1 中；单击“计算”按钮，则找出大于Text1 中的整数的第1 个素数，并显示在Text2 中；单击“存盘”按钮，

6、则把Text2 中的计算结果存入out5.txt 文件中。注意：考生不得修改isprime 函数过程和控件的属性，必须把计算结果通过“存盘”按钮存入out5.txt 文件中。第 04 套答案一、基本操作题第1小题启动 Visual Basic 系统，创建一个Form1 窗体。在该窗体上通过菜单编辑器建立二个主菜单，在菜单编辑器的标题处分别输入“文件”、“编辑”，名称处分别输入file 、edit，在“编辑” 菜单下有三个子菜单，在菜单编辑器的标题处分别输入“剪切”、“复制”、“粘贴”，名称处分别输入cut、copy、 paste，将“粘贴”菜单项中的“有效”单选按钮设为不选状态。参考文件：参考

7、答案 sjt1.vbp 、 sjt1.frm 、 sjt1.vbw请把这些文件复制到中，然后打开sjt1.vbp 文件并运行。第2 小题启动 Visual Basic 系统，创建一个Form1 窗体。在该窗体上画二个文本框控件，通过其属性窗口将名称分别设为Text1、 Text2，将文本框Text1 的PasswordChar 属性设为 * 。文本框 Text2 中显示 Text1 内容（即运行Change 事件过程），在该 Change 事件过程中加入语句：Private Sub Text1_Change()Text2.Text = Text1.TextEnd Sub参考文件：参考答案 sj

8、t2.vbp 、 sjt2.frm 、 sjt2.vbw请把这些文件复制到中，然后打开sjt2.vbp 文件并运行。二、简单应用题第1小题启动 Visual Basic 系统，创建一个Form1 窗体。在该窗体上画二个图片框控件， 通过其属性窗口将名称分别设为 P1、P2，高（ Height 属性）均设为 1900，宽（ Width 属性）均设为 1700，通过 Picture 属性将 pic1.bmp 装入 P1 图片框中、 pic2.jpg 装入 P1 图片框中。画一个命令按钮控件，通过其属性窗口将名称设为C1，标题（ Caption 属性）设为“交换图片” 。单击“交换图片”按钮（即运行

9、Click 事件过程），在该 Click 事件过程中加入语句：Private Sub C1_Click()P1.Picture = LoadPicture("pic2.jpg")P2.Picture = LoadPicture("pic1.bmp")End Sub参考文件：参考答案 sjt3.vbp 、 sjt3.frm 、 sjt3.frx 、 sjt3.vbw请把这些文件复制到中，然后打开sjt3.vbp 文件并运行。第2 小题启动 Visual Basic 系统，打开考生文件夹下需编辑的工程文件sjt4.vbp ，相应的窗体文件名为sjt4.frm

10、 。2本文档为精品文档，如对你有帮助请下载支持，如有问题请及时沟通，谢谢支持！由于所提供的窗体控件不完整，需在该窗体上画二个复选框控件，通过其属性窗口将名称分别设为Ch1、 Ch2，标题（ Caption 属性）分别设为“程序设计”、“数据库原理” 。画一个文本框控件，通过其属性窗口将名称设为Text1 。画一个命令按钮控件，通过其属性窗口将名称设为C1 ，标题（ Caption 属性）设为“确定”。单击“确定”按钮（即运行Click 事件过程），在该 Click 事件过程中加入语句：Private Sub C1_Click()Text1.Text = " 我选的课是 "I

11、f Ch1.Value ThenText1.Text = Text1.Text + Ch1.CaptionEnd IfIf Ch2.Value = 1 ThenText1.Text = Text1.Text + Ch2.CaptionEnd IfEnd Sub参考文件：参考答案 sjt4.vbp 、 sjt4.frm 、 sjt4.vbw 、out4.txt请把这些文件复制到中，然后打开sjt4.vbp 文件并运行。三、综合应用题启动 Visual Basic 系统，打开考生文件夹下需编辑的工程文件sjt5.vbp ，相应的窗体文件名为sjt5.frm 。由于所提供的窗体程序不完整，需添加事件

12、过程。单击“输入”按钮（即运行Click 事件过程），在该 Click 事件过程中加入语句：Private Sub C1_Click()Open App.Path & "in5.txt" For Input As #1Input #1, a%Close #1Text1.Text = a%End Sub单击“计算”按钮（即运行Click 事件过程），在该 Click 事件过程中加入语句：Private Sub C2_Click()a% = Text1.TextDoa% = a% + 1Loop Until isprime(a%)Text2.Text = a%End Sub单击“存盘”按钮（即运行Click 事件过程），在该 Click 事件过程中加入语句：Pri