《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,000sale=5,000，提成为sale*5%；5,000sale10,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按照对应折扣支付：xx10000.9x1000= x 20000.8x2000= x=3000提示：用多分支结构实现，注意计算公式和条件表达式的正确书写。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实验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.514.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人的各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表中perso