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

《《VB.NET程序设计实验指导书》 .doc》由会员分享，可在线阅读，更多相关《《VB.NET程序设计实验指导书》 .doc（32页珍藏版）》请在三一办公上搜索。

1、VB.NET程序设计实验指导书信息技术系实验一 VB.NET 程序设计初步一、实验目的：1、熟悉VB.NET程序开发环境，了解VB.NET应用程序的基本框架结构。2、掌握Windows Form的事件处理机制，以及如何在运行期创建控件。3、初步掌握VB.NET的基本编程方法和技巧。二、实验内容及步骤：1、 编写一程序运行界面如下：要求：单击“开始”按钮，在文本框中显示红色“Hello World!”；单击“清屏”按钮，则文本框中不显示任何信息；单击“结束”按钮，则退出运行。思考：如何能够在程序运行时，窗体中的某个按钮不显示。2、 编写一个对输入字符进行转换的程序。转换规则为：将其中的大写字母转

2、换成小写字母，小写字母转换成大写字母，空格不转换，其余转换成“*”。要求每输入一个字符马上进行判断和转换。程序运行界面如下：提示：对Textbox1_KeyPress 事件过程进行编码如下：3、 编写一个对数据进行过滤的程序。要求在文本框中输入数据，当按Tab键时表示输入结束，对于输入正确的数据，显示“正确”信息；对输入的非数字数据显示“错误，请再输入！”信息，同时清除文本框中的内容，并使焦点重新回到文本框。提示：(1）“按Tab键时表示输入结束”所使用的事件过程为textbox1_LostFocus( )(2）判断文本框中的内容是否为数字：IsNumeric(textbox1.text)(3

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个数，计算并输出这4个数的和及平均值。通过InputBox函数输入数据，在窗体上用标签显示和及平均值。4. 密码验证程序创建2个窗体，在第一个窗体中，点击“进入”按钮，用InputBox实现口令输入框，当输入的密码为888时，显示第二个窗体，密码错误时，用MsgBox提示错误信息。提示：1、创建窗体Form2的方法：“项目”“添加Windows窗体”“打开”。2、在VB.Net中，窗体是一个类，在程序代码中如想使用窗体，必须先将其实例化。在本例中，创建完窗体Form2后，在程序中使用它，必须先将其实例化，定义一个Form2的实例，如Dim FormSecond a

5、s New Form2，然后再对其使用。实验三 选择结构程序设计一、实验目的：1、掌握单分支、双分支条件与多分支条件语句的使用。2、掌握情况语句的使用及与多分支条件语句的区别。二、实验内容及步骤：1、计算销售提成用文本框输入销售额，用IfElse结构计算销售提成。Sale=1000，不提；1,000Sale=5,000，提成为Sale*5%；5,000Sale10,000时，除按上面的额度提成外，超过10,000的部分提10。2、所得税计算 1）收入在2000元以内，免征。2）收入20004000元，超过2000元的部分纳税3。3）收入超过4000元时，在20004000元之间的部分纳税3，超

6、过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按照对应折扣支付：xx10000.9x1000= x 20000.8x2000= x=3000提示：用多分支结构实现，注意计算公式和条件表达式

7、的正确书写。5、教材P284实验2：编写程序，输入上网时间，计算上网费用，计算方法如下：30元基数=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

8、实验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 位数 Te

9、mp ，可用如下程序段实现：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、排列销售业绩，有

10、如下公司的销售额，要求按照由多到少进行排序。公司联想方正同方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、掌握变量、过程的作用域。二、实验内容及步

11、骤：1 求最大值编写一过程，求三个数的最大值；在窗体中输入三个数，在按钮的事件过程中调用该过程，求出最大值。2求阶乘编写一过程，求一个数的阶乘；在窗体中输入三个数，在按钮的事件过程中调用过程求出三个数的阶乘后，再相加，Sum=A!+B!+C!3. 求偶数的倒数和编写一过程，求从2开始到某个偶数的倒数和；在窗体中输入一个偶数，在按钮的事件过程中调用该过程，求出从2开始到所求的偶数的倒数和。S=4排序编写一过程，实现数组元素的排序；在按钮的事件过程中，随机生成10个1100的数存放在数组中，调用该过程，将10个数由小到大排列起来。提示：1) 定义过程，将数组作为形参，如：Sub BubbleSor

12、t(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. 数制转换参考教材例题，编写一过程，实现非十进制数转换成十进制数的功能；在文本框中输入一个非十进制数及其制式，单击按钮，调用该过程，将此非十进制

13、数转化成十进制数。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，判断该数是否是回文数，函数的返回值是布尔型

14、。主调程序每输入一个数，调用IsH函数过程，然后在Label3框显示输入的数，对于是回文数显示一个“”。提示：（1） 所谓回文数是指顺读和倒读数字相同，即最高位与最低位相同，次高位与次低位相同，以此类推。当只有一位数时，也认为是回文数。（2） 回文数的求法，只要对输入的数（按字符串类型处理），利用Mid函数从两边往中间比较，若不相同，就不是回文数。实验八 常用控件一、实验目的：1、掌握选择性控件（单选按钮、复选框、列表框、组合框）、滚动条控件、时钟控件、超链接控件的使用。2、理解选择性控件的作用、计时器事件的意义。二、实验内容及步骤：1. 教材P296第3题 在窗体中加入两个列表框，右边列表框

15、中项目按照字母顺序升序排列。当双击某个项目时，该项目从所在的列表框中删除，添加到另一个列表框中。2在窗体中加入两个列表框，两个按钮，实现如下图所示功能。选中左侧列表框中的项目，点击“”按钮，相应项目移到右侧列表框中。点击“”按钮，左侧列表框中内容全部移到右侧列表框中。“”，“3人的各DepCode分别有多少职员；14） 查询Person表中职员姓名中姓“刘”的职员姓名、所在部门编码；15） 查询职员姓名中姓“刘”的职员姓名、所在部门名称、部门领导；10）查询所有DepCode为01或者02的职员编码、职员姓名、所在部门编码、部门名称、部门领导。8、 Insert Into 插入一条新记录 在表

16、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、DataGri

17、d显示数据库表的内容在窗体上添加按钮和DataGrid控件，点击按钮，能够显示对应的SQL Server数据库表中的内容。数据库采用Northwind，表为Products。2、组合框、列表框数据绑定 在窗体中建立组合框和列表框，与数据库Products连接，利用SqlDataAdapter1控件建立数据集DataSet11，与控件绑定。列表框中显示产品的单价，组合框显示产品的名字。1) 在窗体中添加一个组合框(ComboBox)控件，命名为“cmbProductName”，一个列表框(ListBox)控件，命名为lstUnitPrice。2) 打开服务器资源管理器，右击“数据连接”，选择“添

18、加连接”命令，将弹出“数据链接属性”对话框，在“选择或输入服务器名称”中输入服务器名称，此处输入“(local)”。如下图进行选择，然后单击“确定”按钮。3) 已经建立数据库连接后，单击数据连接下的节点展开该节点，如下图：4) 将表Products拖到窗体上，这时在窗体Form1上的底部自动添加两个控件：SqlConnection1和SqlDataAdapter1，此时界面设计，如下图：5) 单击SqlDataAdapter1控件，在属性窗口的下方，点击“生成数据集”命令，弹出“生成数据集”对话框，如下图：6) 单击“确定”按钮，在窗体底部增加了一个DataSet11控件。7) 在窗体上添加按

19、钮，双击按钮，为Click事件编写代码：8) 运行结果如下：如果在组合框中选择某个产品，那么列表框中，相应产品的单价会自动被选定，反之亦然。实验十四 SQL Server2000综合应用一、实验目的：1、掌握建立数据库表，表中添加数据的方法；2、使用SQL语句在查询分析器中对数据库中记录进行操作；3、掌握VB.NET与SQL Server 2000的连接方法。二、实验内容及步骤：前提：用企业管理器新建名称为自己名字的数据库，在此数据库下进行以下操作：(1)在查询分析器中，使用Create Table语句建立数据库表表名： Person各字段定义如下：PersonCode：varchar(8)

20、，不允许为空，主键；PersonName：varchar(10) ，不允许为空；DepCode：varchar(12) ，不允许为空；PersonProp：varchar(10) ，允许为空。(2) 在企业管理器中建立数据库表表名：Customer字段含义：CusCode： 客户编号（主关键字）；CusName： 客户名称；CusAbbName： 客户简称；SalesPerson： 专营业务员。(3) 在企业管理器中录入数据在Person表和Customer表中分别录入数据。注意：Customer表中SalesPerson的数据要与Person表中的PersonCode一致。(4) 在查询分析

21、器中，使用Select语句进行查询16） 查询Person表中PersonCode、PersonName字段的记录；17） 查询Person表中PersonName为自己姓名的记录；18） 查询Person表中所有记录并按PersonName排序。19） 查询Customer表中各SalesPerson分别有多少客户；20） 查询Customer表中客户数量2的各SalesPerson分别有多少客户；21） 查询Customer表中客户名称中以“大连”开头的客户名称、业务员代码；22） 查询Customer表中客户名称中以“大连”开头的客户名称、业务员名称、部门编码；(5)使用SQL语句在查询

22、分析器中对数据库中记录进行操作 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)在窗体中建立组合框和列表框，与数据库连接，列表框中显示业务员编码，组合框显示客户名称。