《VB.NET程序设计实验指导书》 .doc

VB.NET程序设计实验指导书信息技术系实验一 VB.NET 程序设计初步一、实验目的：1、熟悉VB.NET程序开发环境，了解VB.NET应用程序的基本框架结构。2、掌握Windows Form的事件处理机制，以及如何在运行期创建控件。3、初步掌握VB.NET的基本编程方法和技巧。二、实验内容及步骤：1、 编写一程序运行界面如下：要求：单击“开始”按钮，在文本框中显示红色“Hello World!”；单击“清屏”按钮，则文本框中不显示任何信息；单击“结束”按钮，则退出运行。思考：如何能够在程序运行时，窗体中的某个按钮不显示。2、 编写一个对输入字符进行转换的程序。转换规则为：将其中的大写字母转换成小写字母，小写字母转换成大写字母，空格不转换，其余转换成“*”。要求每输入一个字符马上进行判断和转换。程序运行界面如下：提示：对Textbox1_KeyPress 事件过程进行编码如下：3、 编写一个对数据进行过滤的程序。要求在文本框中输入数据，当按Tab键时表示输入结束，对于输入正确的数据，显示“正确”信息；对输入的非数字数据显示“错误，请再输入！”信息，同时清除文本框中的内容，并使焦点重新回到文本框。提示：(1）“按Tab键时表示输入结束”所使用的事件过程为textbox1_LostFocus( )(2）判断文本框中的内容是否为数字：IsNumeric(textbox1.text)(3) 使焦点重新回到文本框：textbox1. Focus ( )实验二 VB.NET 顺序结构一、实验目的：1、掌握VB.NET输入输出语句的应用。2、掌握赋值语句的应用。二、实验内容及步骤：1美元兑换人民币计算提示：1）将字符串转换为单精度数的函数为CSng。 2）图中的显示为在汇率为8.099时的计算结果。 3）运算结果显示为2位，可用格式输出函数Format：Format (Expressionlist, "#.#")。2计算输入数的阶乘。 利用Inputbox输入整数，求其阶乘。提示：将数值转换为字符的函数为CStr。注意：此题不要做成求10的阶乘，要能求出任何输入的数的阶乘。3. 计算4个数的和及平均值从键盘上输入4个数，计算并输出这4个数的和及平均值。通过InputBox函数输入数据，在窗体上用标签显示和及平均值。4. 密码验证程序创建2个窗体，在第一个窗体中，点击“进入”按钮，用InputBox实现口令输入框，当输入的密码为888时，显示第二个窗体，密码错误时，用MsgBox提示错误信息。提示：1、创建窗体Form2的方法：“项目”“添加Windows窗体”“打开”。2、在VB.Net中，窗体是一个类，在程序代码中如想使用窗体，必须先将其实例化。在本例中，创建完窗体Form2后，在程序中使用它，必须先将其实例化，定义一个Form2的实例，如Dim FormSecond as New Form2，然后再对其使用。实验三 选择结构程序设计一、实验目的：1、掌握单分支、双分支条件与多分支条件语句的使用。2、掌握情况语句的使用及与多分支条件语句的区别。二、实验内容及步骤：1、计算销售提成用文本框输入销售额，用IfElse结构计算销售提成。Sale<=1000，不提；1,000<Sale<=5,000，提成为Sale*5%；5,000<Sale<=10,000时，5000以内部分提5，超过部分提6；Sale>10,000时，除按上面的额度提成外，超过10,000的部分提10。2、所得税计算 1）收入在2000元以内，免征。2）收入20004000元，超过2000元的部分纳税3。3）收入超过4000元时，在20004000元之间的部分纳税3，超过4000元的部分纳税4。4）当收入达50000元或超过时，在20004000元之间的部分，纳税3，400050000元的部分纳税4，超过50000元的部分纳税为5。3、教材P103习题14：随机生成50100的20个数，分别显示其中最大的数、最小的数和平均值。提示：1、使用Form_Click()事件过程； 2、随机生成50100的数：Int(Rnd*（10050+1）+50)4、 教材P284实验1：在购买某物品时，若所花的钱x在下述范围内，所付钱y按照对应折扣支付：xx<10000.9x1000<= x < 20000.8x2000<= x< 30000.7x x>=3000提示：用多分支结构实现，注意计算公式和条件表达式的正确书写。5、教材P284实验2：编写程序，输入上网时间，计算上网费用，计算方法如下：30元基数< 10 小时费用 =每小时2.5元10 50 小时每小时2元>=50小时同时为了鼓励多上网，每月收费最多不能150元。实验四 循环结构程序设计一、实验目的：1、掌握For循环语句、Do循环语句以及While循环语句的使用。2、熟悉累加、连乘、求素数、求最大值及最小值的算法。二、实验内容及步骤：1、分别利用For和Do循环语句求1!+2!+n!的值。提示：1、使用Form_Click()事件过程； 2、利用InputBox函数输入n的值； 3、利用Msgbox过程输出结果。2、 参照教材P88例题4.13，分别实现呈下三角和上三角的九九乘法表。3、教材P287实验5： 编写程序，要求显示出所有的水仙花数。所谓的水仙花数，是指一个3位数，其各位数字立方和等于该数字本身。例如：153是水仙花数。提示：方法有两种：（1）利用三重循环，将3个数字连成一个3位数进行判断； （2）利用单循环将一个3位数逐位分离后进行判断。4、求S= a + aa + aaa + + aaaaa （n 个 a），其中a 是一个由随机数产生的1-9（包括1，9）中的一个正整数，n 是一个由随机数产生的5-10（包括5、10）中的一个数。例如：当 a =2 ，n =5 时，S = 2 + 22 + 222 + 2222 + 22222.提示： 为了得到不断重复a 的 n 位数 Temp ，可用如下程序段实现：Temp = 0 For i = 1 to nTemp = Temp *10 + a Next i实验五 数组一、实验目的：1、掌握数组的声明、数组元素的应用。2、掌握静态数组、动态数组的使用差别。3、应用数组解决与数组有关的常用算法。二、实验内容及步骤：1、运动成绩排序。某单位开运动会，共有10人参加男子100米短跑，运动员号和成绩如下：207号 14.5秒 077号 15.1秒156号 14.2秒 231号 14.7秒453号 15.2秒 276号 13.9秒096号 15.7秒 122号 13.7秒339号 14.9秒 302号 14.5秒2、排列销售业绩，有如下公司的销售额，要求按照由多到少进行排序。公司联想方正同方DELL紫光神舟销售额(亿元)19.517.215.225.714.917.13、 已知数组a( )的值分别为1，6，8，3，5，9，10，2，7，4，删除 key值为10的元素。提示：删除数组元素，必须分三个步骤完成。首先查找到要删除的元素，然后从下一个元素到最后一个元素依次往前移位，最后利用ReDim Preserve语句将数组大小减1。实验六 VB.NET 过程（1）一、实验目的：1、掌握函数过程和子过程的定义和调用方法。2、掌握形参、实参的对应关系。3、掌握值传递和地址传递的传递方式。4、掌握变量、过程的作用域。二、实验内容及步骤：1 求最大值编写一过程，求三个数的最大值；在窗体中输入三个数，在按钮的事件过程中调用该过程，求出最大值。2求阶乘编写一过程，求一个数的阶乘；在窗体中输入三个数，在按钮的事件过程中调用过程求出三个数的阶乘后，再相加，Sum=A!+B!+C!3. 求偶数的倒数和编写一过程，求从2开始到某个偶数的倒数和；在窗体中输入一个偶数，在按钮的事件过程中调用该过程，求出从2开始到所求的偶数的倒数和。S=4排序编写一过程，实现数组元素的排序；在按钮的事件过程中，随机生成10个1100的数存放在数组中，调用该过程，将10个数由小到大排列起来。提示：1) 定义过程，将数组作为形参，如：Sub BubbleSort(ByRef array() As Double)2) 调用过程，将数组作为实参，如：BubbleSort(array) 3）求数组的上界： Ubound( array)实验七 VB.NET 过程（2）一、实验目的：1、掌握函数过程和子过程的定义和调用方法。2、掌握数制转换、加密解密以及查找等常用算法。二、实验内容及步骤：1查找参考教材例题，编写一过程，利用二分查找法实现在已知数组2,4,1,6,8,10,9,11,7,5,3中查找某个数的功能。2. 数制转换参考教材例题，编写一过程，实现非十进制数转换成十进制数的功能；在文本框中输入一个非十进制数及其制式，单击按钮，调用该过程，将此非十进制数转化成十进制数。3解密参考教材例题，编写一过程，实现将已加密的字符串解密的功能。4. 教材实验六第1题编写一个子过程ProcMin（a( ),mina），求一维数组a中的最小值mina。主调程序随机产生10个-300-400之间的数，显示产生的数组中各元素；调用ProcMin子过程，显示出数组中的最小值。5. 教材实验六第5题编写一个子过程MaxLength（s，MaxWord），在已知的字符串S中，找出最长的单词MaxWord。假定字符串S内只含有字母和空格，空格分隔不同的单词。6. 教材实验六第6题编写一个函数过程IsH（n），对于已知正整数n，判断该数是否是回文数，函数的返回值是布尔型。主调程序每输入一个数，调用IsH函数过程，然后在Label3框显示输入的数，对于是回文数显示一个“”。提示：（1） 所谓回文数是指顺读和倒读数字相同，即最高位与最低位相同，次高位与次低位相同，以此类推。当只有一位数时，也认为是回文数。（2） 回文数的求法，只要对输入的数（按字符串类型处理），利用Mid函数从两边往中间比较，若不相同，就不是回文数。实验八 常用控件一、实验目的：1、掌握选择性控件（单选按钮、复选框、列表框、组合框）、滚动条控件、时钟控件、超链接控件的使用。2、理解选择性控件的作用、计时器事件的意义。二、实验内容及步骤：1. 教材P296第3题 在窗体中加入两个列表框，右边列表框中项目按照字母顺序升序排列。当双击某个项目时，该项目从所在的列表框中删除，添加到另一个列表框中。2在窗体中加入两个列表框，两个按钮，实现如下图所示功能。选中左侧列表框中的项目，点击“>”按钮，相应项目移到右侧列表框中。点击“>>”按钮，左侧列表框中内容全部移到右侧列表框中。“<”，“<<”两个按钮的功能类似。3在窗体上添加两个按钮，两个文本框，按钮的FlatStyle属性设为：“System”。窗体启动后：“停止计时”按钮不可用。点击“开始计时”按钮后，“开始计时”按钮不可用，同时显示秒数。点击“停止计时”按钮后，“停止计时”按钮不可用，秒数停止。同时，原来“开始计时”按钮的标题改为“继续计时”。点击“继续计时”按钮后，“继续计时”按钮不可用，秒数继续显示。4教材P295实验七 第1、2、4题实验九 界面设计一、实验目的：1、掌握通用对话框的使用。2、掌握菜单的设计方法。3、掌握多重窗体的建立和使用方法。二、实验内容及步骤：1通用对话框在窗体中加入一个图片框，三个按钮，实现如下图所示功能。单击“打开”按钮，弹出打开文件对话框，在对话框中只允许显示.ico类型的文件，初始目录为“c:program files”。当选定一个文件后，单击“加载”按钮，在图片框内显示所选择的图片内容，要求根据图片框的尺寸自动调整图形大小。单击“退出”按钮，退出整个程序。提示：（1） 在图片框内显示所选择的图片内容：PictureBox1.Image = Image.FromFile(要加载的图片文件名)（2） 根据图片框的尺寸自动调整图形大小：将PictureBox1控件的sizemode属性设置为stretchImage2菜单在窗体上添加一个文本框，一个主菜单，包括两个子菜单项，其中“菜单1”包括“清除”、“结束”两个菜单命令，“菜单2”包括“红色字体”、“蓝色字体”两个菜单命令。要求实现分别实现如下功能：“清除”命令：清除文本框中所显示的内容。快捷键为“Ctrl+C”“红色字体”或“蓝色字体”命令：控制字体颜色变化。快捷键分别为“Ctrl+R”，“Ctrl+B”。同时为文本框建立一个弹出式菜单，通过该菜单控制文本框背景颜色的设置。3教材P297 实验七7、8、9、10实验十 面向对象程序设计一、实验目的：1、掌握类的定义和对象的声明方法。2、掌握设计类和派生类的方法。3、掌握函数重载，了解函数改写。二、实验内容及步骤：1、设计一个点类（VBPoint），具有数据成员x，y（点的坐标），以及设置数据成员（SetValue）和求到原点距离（Distance）的功能。 要求：当单击“计算距离”按钮后，将两个点的坐标送入两个VBPoint对象的数据成员中，然后通过调用Distance方法，求到原点的距离。2、设计一个矩形类（Rect），具有长、宽数据成员，类还具有求解并显示矩形的周长和面积的功能，以及球两个矩形面积和的功能。 提示： 假定有两个矩形R1和R2，求两个矩形面积之和的方法是Sum（），则调用方法为：R1Sum（R2） 或者 R2Sum（R1）3、设计一个Person类，具有如下的成员：（1）数据成员：Name和Age，表示一个人姓名和年龄。（2）属性：姓名、出生年份。（3）构造函数。（4）方法：Print，输出各数据成员。编写一个使用该类的测试程序。4、 从上题的Person类派生类Teacher，并添加下列成员：（1） 数据成员：No和Ta，分别表示教师的工号和教龄。（2） 属性：工号和教龄。（3） 构造函数。（4） 方法：NewPrint，输出所有成员的值。编写一个使用该类的测试程序。5、采用重写的方法将上题的NewPrint改名为Print，并编写一个测试程序。实验十一 SQL Server2000数据库操作一、实验目的：1、掌握SQL Server2000数据库的基本操作方法。二、实验内容及步骤：1、建立数据库在SQL Server2000的企业管理器中建立一个数据库。1）在F盘上建立自己的文件夹：2）为数据库命名：数据库名称：02信3_25刘一丹(25为自己的学号)。3）点击“数据文件”选项卡，将数据库文件保存到前面建立的文件夹中。4）点击“事务日志”选项卡，将日志文件保存到前面建立的文件夹中。本题要求：将自己建立的数据库在企业管理器中的位置图用画图贴下来，如下图：2、建立部门档案表在前面建立的数据库中建立部门表。表名：Department设计字段如下：1） DepCode：部门编号；2） DepName：部门名称；3） Depleader：部门负责人；4） DepPhone：电话；5） DepAddress：地址；6） DepMemo：备注。本题要求：将自己建立的数据库表的字段属性，如上图，用画图贴下来。(3) 建立职员档案表在前面建立的数据库中建立职员档案表。表名：Person设计字段如下：1） PersonCode：职员编号；2） PersonName：职员姓名;3） DepCode：所属部门；4） PersonProp：职员属性。本题要求：将自己建立的数据库表的字段属性，如上图，用画图贴下来。（4）数据库表中录入数据选中前面建立的表鼠标右键打开表返回所有行，在其中录入作业本中虚拟公司作业的组织机构图中的内容。本题要求：如上两图所示，将自己所录入的数据结果，用画图贴下来。（5）数据库备份及还原操作1）在Backup文件夹下，备份数据库文件。弹出备份画面后，点击添加按钮，弹出“选择备份目的”窗体，选择要备份目的文件夹，在文件夹后，起个文件名，如MIS_25刘一丹.dat。点击“确定”，返回。 2）数据库还原与备份相反。数据库右键“所有任务”还原数据库还原位置，选“从设备”选择设备还原自“磁盘”添加在“文件名”处选择备份数据库文件确定。实验十二 SQL Server2000数据库操作一、实验目的：1、掌握SQL 语句的应用。二、实验内容及步骤：1、建立数据库在SQL Server2000的企业管理器中建立一个数据库，数据库名称为班级_学号姓名。2、建立部门档案表在前面建立的数据库中建立部门表。表名：Department设计字段如下：7） DepCode：部门编号；8） DepName：部门名称；9） Depleader：部门负责人；10） DepPhone：电话；11） DepAddress：地址；12） DepMemo：备注。3、建立职员档案表在前面建立的数据库中建立职员档案表。表名：Person设计字段如下：5） PersonCode：职员编号；6） PersonName：职员姓名;7） DepCode：所属部门；8） PersonProp：职员属性。4、数据库表中录入数据选中前面建立的表鼠标右键打开表返回所有行，在其中录入数据。5、 在查询分析器中，利用Create table语句建立表1）用Create语句在SQL查询分析器中建立表“Department”。注意：如果在数据库中已经存在具有相同表名的表，将提示“表已存在”，不能建立。因此需要在Create table语句建立表之前，先使用drop table 语句删除该表。2）用Create语句在SQL查询分析器中建立表 “Person”。Person各字段定义如下：PersonCode：varchar(8) ，不允许为空，主键；PersonName：varchar(10) ，不允许为空；DepCode：varchar(12) ，不允许为空；PersonProp：varchar(10) ，允许为空。6、在企业管理器中，建立数据库表约束关系(外关键字约束)1）将表Person中的Depcode字段与表Department中的Depcode字段建立关系。2）建立关系图，如下所示。3）在表Person中录入数据，录一条DepCode值在Department中没有的记录，看会出现什么结果。如，录入一条DepCode值为9999的记录。4) 在Department表中删除一条在Person中的DepCode字段已使用过的记录，如在Person中有一条记录的DepCode的值为01，现在试图在Department表中删除DepCode值为01的记录，看会出现什么结果。7、在查询分析器中，使用Select 语句分别完成以下查询1）查询Departmen表中所有记录；2）只查询Departmen表中DepCode、DepName、DepLeader字段的记录；3）将2）中查询结果中各字段名字分别用中文别名“部门编码、部门名称、部门经理”显示；4）查询Departmen表中DepCode为01的记录；5）查询Departmen表中所有记录并按DepName排序；6）查询Person表中各DepCode分别有多少职员；13） 查询Person表中职员人数>3人的各DepCode分别有多少职员；14） 查询Person表中职员姓名中姓“刘”的职员姓名、所在部门编码；15） 查询职员姓名中姓“刘”的职员姓名、所在部门名称、部门领导；10）查询所有DepCode为01或者02的职员编码、职员姓名、所在部门编码、部门名称、部门领导。8、 Insert Into 插入一条新记录 在表Person中，用Insert Into语句插入一条记录：999，周杰伦，01，歌手9、Update更新一条记录 将上题中新增记录中的“周杰伦”更改为“孙燕姿”。10、Delete删除一条记录注意：Delete语句使用时一定要加条件，否则整个表的记录将全被删除。 将上面新增的PersonCode为999的记录删除。11、 视图建立在企业管理器中，基于Person表建立视图V_Person.。实验十三 VB.NET连接SQL Server2000数据库一、实验目的：1、掌握VB.NET与SQL Server 2000的连接方法。2、掌握动态连接数据库的方法。二、实验内容及步骤：1、DataGrid显示数据库表的内容在窗体上添加按钮和DataGrid控件，点击按钮，能够显示对应的SQL Server数据库表中的内容。数据库采用Northwind，表为Products。2、组合框、列表框数据绑定 在窗体中建立组合框和列表框，与数据库Products连接，利用SqlDataAdapter1控件建立数据集DataSet11，与控件绑定。列表框中显示产品的单价，组合框显示产品的名字。1) 在窗体中添加一个组合框(ComboBox)控件，命名为“cmbProductName”，一个列表框(ListBox)控件，命名为lstUnitPrice。2) 打开服务器资源管理器，右击“数据连接”，选择“添加连接”命令，将弹出“数据链接属性”对话框，在“选择或输入服务器名称”中输入服务器名称，此处输入“(local)”。如下图进行选择，然后单击“确定”按钮。3) 已经建立数据库连接后，单击数据连接下的节点展开该节点，如下图：4) 将表Products拖到窗体上，这时在窗体Form1上的底部自动添加两个控件：SqlConnection1和SqlDataAdapter1，此时界面设计，如下图：5) 单击SqlDataAdapter1控件，在属性窗口的下方，点击“生成数据集”命令，弹出“生成数据集”对话框，如下图：6) 单击“确定”按钮，在窗体底部增加了一个DataSet11控件。7) 在窗体上添加按钮，双击按钮，为Click事件编写代码：8) 运行结果如下：如果在组合框中选择某个产品，那么列表框中，相应产品的单价会自动被选定，反之亦然。实验十四 SQL Server2000综合应用一、实验目的：1、掌握建立数据库表，表中添加数据的方法；2、使用SQL语句在查询分析器中对数据库中记录进行操作；3、掌握VB.NET与SQL Server 2000的连接方法。二、实验内容及步骤：前提：用企业管理器新建名称为自己名字的数据库，在此数据库下进行以下操作：(1)在查询分析器中，使用Create Table语句建立数据库表表名： Person各字段定义如下：PersonCode：varchar(8) ，不允许为空，主键；PersonName：varchar(10) ，不允许为空；DepCode：varchar(12) ，不允许为空；PersonProp：varchar(10) ，允许为空。(2) 在企业管理器中建立数据库表表名：Customer字段含义：CusCode： 客户编号（主关键字）；CusName： 客户名称；CusAbbName： 客户简称；SalesPerson： 专营业务员。(3) 在企业管理器中录入数据在Person表和Customer表中分别录入数据。注意：Customer表中SalesPerson的数据要与Person表中的PersonCode一致。(4) 在查询分析器中，使用Select语句进行查询16） 查询Person表中PersonCode、PersonName字段的记录；17） 查询Person表中PersonName为自己姓名的记录；18） 查询Person表中所有记录并按PersonName排序。19） 查询Customer表中各SalesPerson分别有多少客户；20） 查询Customer表中客户数量>2的各SalesPerson分别有多少客户；21） 查询Customer表中客户名称中以“大连”开头的客户名称、业务员代码；22） 查询Customer表中客户名称中以“大连”开头的客户名称、业务员名称、部门编码；(5)使用SQL语句在查询分析器中对数据库中记录进行操作 1) 在表Customern中，用Insert Into语句插入一条记录： 9999，大连海辉科技发展有限公司，海辉科技，111 2) 在表Customern中，用Insert Into语句插入一条记录： 8888， null，海康软件，1113)Update： 将上题中新增记录中的“海康软件”更改为“海辉软件”。 4) Delete： 删除上面新增的两条记录。(6) 使用SQL语句创建视图创建业务员为自己的Customer表的视图。要求：视图名称为V_CustomerSale，视图包含所有列信息。(7) 建立数据库表约束关系(外关键字约束)1）将表Customer中的SalesPerson字段与表Person中的PersonCode字段建立对应关系。2）建立关系图。(8)在VB.NET窗体中添加DataGrid控件，显示表Customer中数据，并要求字段名为汉字。(9)在窗体中建立组合框和列表框，与数据库连接，列表框中显示业务员编码，组合框显示客户名称。