【VB开源代码栏目提醒】：文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。

    网学会员整理了VB开源代码-VB应用程序开发案例分析——林增坦 - 编程语言的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

1 泉州信息职业技术学院 2008级可视化专业应用程序开发实训案例分析VB汇编 ----编者老师林增坦 计算机科学系 二0 0九年四月编 2 目录 第一部 开发环境和基本控件的使用 ------------------------------------ 3 一、开发环境和基本控件的使用实验任务分配 --------------------------- 3 实验报告1 --------------------------------------------------- 3 第1章 概述-------------------------------------------------------- 3 实验报告2 --------------------------------------------------- 5 第2章VB.NET和Visual Studio 2005 ---------------------------------- 5 实验报告3 --------------------------------------------------- 6 第3章 变量、数据类型和表达式-------------------------------------- 6 实验报告4 --------------------------------------------------- 9 第4章 分支和循环-------------------------------------------------- 9 实验报告5 -------------------------------------------------- 10 第5章 模块与过程------------------------------------------------ 10 实验报告6 -------------------------------------------------- 11 第6章 面向对象-------------------------------------------------- 11 实验报告7 -------------------------------------------------- 12 第7章 面向对象的高级应用---------------------------------------- 12 实验报告8 -------------------------------------------------- 13 第8章 程序的生成、调试和异常处理---------------------------------- 13 实验报告9 -------------------------------------------------- 13 第9章 数组与字符串------------------------------------------------ 14 实验报告10 ------------------------------------------------- 15 第10章 基于Windows的应用程序------------------------------------- 15 实验报告11 ------------------------------------------------- 16 第11章 创建 Web 应用程序------------------------------------------ 16 二、实验案例代码展示 ---------------------------------------------- 17 第二部 简单应用程序案例分析 --------------------------------------- 17 1、Data Structure ------------------------------------------------ 17 1数组例一 ---------------------------------------------- 17 2数组例二 ---------------------------------------------- 18 3数组例三 ---------------------------------------------- 20 2Array ---------------------------------------------------------- 20 3Class --------------------------------------------------------- 25 4Database ADO.net ---------------------------------------------- 25 5GUI ----------------------------------------------------------- 27 6Event --------------------------------------------------------- 28 7Language Basics ----------------------------------------------- 28 3 第一部 开发环境和基本控件的使用 一、 开发环境和基本控件的使用实验任务分配 1 第1章 概述 报告书 名称 实验1-1控制台实验程序1 姓名 指导教师 学号 日期 任务清单 场景 在本练习中你将使用Visual Studio 2005中的控制台用号输出一个圣诞树的造型。

    如下 实验方法 1. 控制台程序名称存为ChristmasTree.vb。

     2. 在Module…end Module中的Sub Main…End Sub之间编写代码。

     3. 可以用Console.WriteLinequot quot编写输出语句如果用Console.Write语句编写要用amp添加vbCrLf。

     实验预估时间 10分钟 实验结果 4 报告书 名称 实验1-2控制台实验程序2 姓名 指导教师 学号 日期 任务清单 场景 在本练习中你将使用Visual Studio 2005中的控制台输出你所输入的字符串。

    例如 请输入你要输出的字符串以回车键确认。

     Merry Christmas 你输入的字符串为Merry Christmas 其中第2行为运行程序要输入的语句回车后显示第3行。

     实验方法 1. 控制台程序名称存为Echo.vb。

     2. 在Module…end Module中的Sub Main…End Sub之间编写代码。

     3. 编写2行输入输出语句代码实现上面的结果。

     实验预估时间 5分钟 实验结果 5 2 第2章VB.NET和Visual Studio 2005 报告书 名称 实验2-1 绘制计算器 姓名 指导教师 学号 日期 任务清单 场景 在本练习中你将在Visual Studio 中通过Windows应用程序平台绘制一个满足加、减、乘、除的基本计算器功能的界面如下图所示 实验方法 4. 新建一个Windows应用程序名称存为Calculator.vb窗体名设为Calculator。

     5. 选择工具箱里的控件拖放到窗体Calculator上。

     用Textbox控件作为显示框初始值为0。

     用Panel控件作为数字面板、符号面板、控制面板。

     用Button控件作为按钮各命名为00、09、、-、、/、、.、C、C/A、OFF。

     6. 运行程序显示窗体界面结果。

     实验预估时间 20分钟 实验结果 6 3 第3章 变量、数据类型和表达式 报告书 名称 实验3-1 使用变量和数据类型 姓名 指导教师 学号 日期 任务清单 场景 在本实验中你将编写代码练习声明和使用变量和常用数据类型运行程序显示以下内容 请按照如下要求输入信息 请输入学号 请输入姓名 请输入班级 请输入性别 请输入年龄 请输入体重 请输入成绩 按照要求输入信息后程序自行返回显示数据。

    例如输入下列信息即可返回输入数据 学号xxx 姓名xx 班级xx 性别xxx 年龄xx 体重xx 成绩xxx 实验方法 7. 控制台程序名称存为LoanVariables.vb。

     8. 进入Module1.vb代码编辑器在Sub Main块中编写代码。

     9. 用变量描述信息姓名、班级、学号、年龄、成绩、性别并选择适当的数据类型。

     10. 编写输入输出数据代码。

     7 11. 运行程序输入数据查看结果。

     实验预估时间 20分钟 实验结果 报告书 名称 实验3-2 使用运算符和表达式 姓名 指导教师 学号 日期 任务清单 场景 在本练习中通过实验掌握常用的运算符和表达式并能熟悉地进行计算和判断。

    声明下列变量并赋值计算下列表达式的值并用布尔变量Result和Double型变量temp1和temp2存放结果并运行观察计算结果 a3b4cquothelloquotdquotYquot 8 表达式 c.Length 15 2 / 4 2 Not b 3 1 And 2 lt b Or d quotNquot b 3 1 OrElse 2 lt b Or d quotNquot 实验方法 1. 控制台程序名称存为LoanExpression.vb。

     2. 进入Module1.vb代码编辑器在Sub Main块中编写代码。

     3. 编写声明赋值代码。

     4. 编写输出表达式结果代码。

     5. 运行程序查看结果。

     实验预估时间 15分钟 实验结果 报告书 名称 实验3-3 使用数字类型转换 姓名 指导教师 学号 日期 任务清单 场景 在本练习中你将巩固理解隐式转换和显示转换的概念以及字符串型和其他类型之间的转换掌握常用数据类型的转换范围及转换函数。

    声明下面String类型变量并通过输入给其赋值 myString1myString2myDatemyTime 变量存储输入的字符串。

    其中Cint实现变量myString1myString2字符串型到整型的转换CDate实现变量myDatemyTime字符串型到时间型的数据转换。

     实验方法 1. 控制台程序名称存为LoanTypeTrans.vb。

     2. 进入Module1.vb代码编辑器在Sub Main块中编写代码。

     9 3. 编写声明赋值代码。

     4. 编写数据类型转换代码。

     5. 运行程序查看结果。

     实验预估时间 15分钟 实验结果 4 第4章 分支和循环 报告书 名称 实验4-1简单的猜数字游戏 姓名 指导教师 学号 日期 任务清单 场景 在本练习中你将在Visual Studio 2005中通过控制台程序平台利用循环和判断结构编写 运用intRnd方法随机产生一个1100之间的数由玩家进行猜测并提示玩家是猜大了还是猜小了或是猜对了。

    运行程序显示如下 “请输入一个整数范围从1100 如果要退出请输入0否则输入1” 选择输入1输入你猜的数值如果猜大了显示“猜大了”如果猜小了显示“猜 10 小了 ”直到猜对为止输出下列语句 “恭喜你猜对了 继续输入Y退出输入N 请输入” 继续游戏。

    直至输入N为止退出游戏。

     实现方法 1. 控制台程序名称存为guess.vb在Module…end Module中的Sub Main…End Sub之间编写代码。

     2. 编写输出语句显示要求输入语句退出输入0否则输入1。

    并用Goto 语句控制程序如果输入其他数值输出提示“你的输入有误”。

    比如在某行加入标签“line:”Goto line语句可以使程序直接运行到line处 3. 编写输入语句代码并用Cint 方法将字符串转换为数值将输入数与产生随机数相比较并按不同的比较结果输出相应的提示。

     实验预估时间 60分钟 实验结果 5 第5章 模块与过程 报告书 名称 实验5-1 银行储蓄计算 姓名 指导教师 学号 日期 任务清单 场景 在本练习中你将在Visual Studio 中通过控制台程序平台计算一份100元人民币的存单按每季4的复利存五年后的余额。

    利率以每利率期1的利率每年取得四次也就是4×5或者说是20个利率期。

     实验方法 1. 新建一个控制台程序在名称处输入“bank”。

     2. 编写代码。

     3. 编写InputData过程实现输入功能编写FutureValue过程实现计算银行率利的功能。

     3. 编写调用代码。

     11 4. 运行并查看结果。

     实验预估时间 20分钟 实验结果 6 第6章 面向对象 报告书 名称 实验6-1 将学校抽象成类 姓名 指导教师 学号 日期 任务清单 场景 把学校的人员结构抽象成University类要求在此类中有方法、事件、属性等。

    用代码实现抽象只需要定义。

    其中包括学生和教师成员抽象出Student类和Teacher类教师类里包含了授课方法学生类里包含学习方法学生m_students和老师m_teachers是两种独立的对象可用property语句声明属性。

    事件包括开学和放假名称可参考如下 开学事件TermBeginsEvent 放假事件TermEndsEvent 定义事件的语法为public event事件名 as 委托名如 public event TermBeginsEvent as EventHandler表示开学事件的定义。

     实验方法 在Windows应用程序代码视图中或在控制台应用程序中编写代码类名为University。

     分析类的成员。

     编写类声明语句包括属性、事件、方法声明。

     12 实验预估时间 40分钟 实验结果 7 第7章 面向对象的高级应用 报告书 名称 实验7-1将大学抽象成类的改进 姓名 指导教师 学号 日期 任务清单 场景 利用本章学习到的各种知识对大学类进行改进将相似的内容抽象成基类。

    本实验要求将Person类作为Student类和Teacher类的基类School类作为University类的基类。

    School类包含学生集合、老师集合、开学事件、放假事件、开学方法、放假方法其中有的方法要定义为虚方法。

    另外在老师和学生中添加新的属性年龄、身高、体重。

    在大学里添加新的独有成员辅导员集合。

    辅导员Counsellor也有年龄、身高、体重属性包括课外辅导方法。

     实验方法 1. 在Windows应用程序代码视图中或在控制台应用程序中编写代码类名为University。

     2. 分析类的成员和基类判断虚方法应有哪些方法。

     3. 编写类声明语句包括属性、事件、方法声明。

     4. 编写基类、虚方法、添加类、添加方法的代码。

     实验预估时间 30分钟 实验结果 13 8 第8章 程序的生成、调试和异常处理 报告书 名称 实验8-1 Try…Catch 语句块的使用 姓名 指导教师 学号 日期 任务清单 在本练习中你将使用Try…Catch 语句块对程序进行调试、查错。

     场景 将下列代码加入你的代码中如果代码运行出错打印出错误信息。

     Dim array As Integer New Integer 1 2 array2 5 实验预估时间 20分钟 报告书 名称 实验9-2 Try…Catch…Finally 语句块的使用 姓名 指导教师 学号 日期 任务清单 在本练习中你将使用Try…Catch…Finally 语句块对程序进行调试、查错。

     场景 编写程序提示用户输入学号。

    如果输入不合法打印出错信息。

    无论最终用户输入是否合法都打印出程序完成时间。

     实验预估时间 20分钟 9 14 第9章 数组与字符串 报告书 名称 实验9-1 数组的声明和使用 姓名 指导教师 学号 日期 任务清单 场景 在本练习中你将声明数组并使用它。

    声明一个数组将一年中的12个月的英文单词存入其中。

    当用户输入月份的数字时打印出月份的英文单词。

    输入0退出并提供输入信息不合法提示。

    如下 请输入月份数输入0退出输入2显示February 2 February 实验方法 1. 控制台程序名称存为MonthProgram.vb 2. 将Module语句替换成Class…end Class在Sub Main…End Sub之间里编写代码。

     3. 声明一个含12个元素的字符串数组并赋值为quotJanuaryquot、quotFebruaryquot、quotMarchquot、 quotAprilquot、quotMayquot、 quotJunequot、quotJulyquot、quotAugustquot、quotSeptemberquot、quotOctoberquot、quotNovemberquot、quotDecemberquot。

     4. 编写代码实现输入012内的数值输出相应的月份并使用try…catch语句实现异常处理。

     实验预估时间 30分钟 实验结果 15 10 第10章 基于Windows的应用程序 报告书 名称 实验10-1 实现计算器的功能 姓名 指导教师 学号 日期 任务清单 场景 在Visual Studio 2005中通过Windows应用程序绘制满足加、减、乘、除功能的基本计算器界面并编写程序使这个计算器能完成简单的四则运算。

     实验方法 1. 新建Windows应用程序名称存为Calculator.vb窗体名设为Calculator。

     2. 绘制计算器界面。

     3. 在代码视图里编写代码。

     4. 双击button控件编写点击事件处理程序实现点击数字按键能将数字显示到TextBox里实现用“” 、“-” 、“” 、“/” 、“”能将计算结果输出的功能。

     实验预估时间 30分钟 实验结果 16 11 第11章 创建 Web 应用程序 报告书 名称 实验11-1 实现查看员工详细信息的功能 姓名 指导教师 学号 日期 任务清单 场景 某公司的人力资源主管需要通过网络来查看公司员工的详细信息在Visual Studio 2005中通过Web应用程序以列表的形式来显示员工的详细信息如下 实验方法 1. 新建一个VB Web应用程序名称存为EmployeeDetail.vb。

     2. 用GridView控件和SqlDataSource控件拖放到窗体中编写表中数据。

     3. 按照SqlDataSource的向导来连接数据库。

     4. 运行程序并调试。

     实验预估时间 30分钟 实验结果 17 二、实验案例代码展示 见教学光盘案例代码 第二部 简单应用程序案例分析 1、 Data Structure ArrayList 6 1数组例一 Store Objects into ArrayList Imports System Imports System.Collections Public Class MainClass Shared Sub Main Dim empArray As New ArrayList Dim intArray As New ArrayList populate the arraylists Dim i As Integer For i 0 To 4 empArray.AddNew Employeei 100 intArray.Addi 5 Next i print each member of the array For Each i In intArray Console.Writequot0 quot i.ToString Next i 18 Console.WriteLineControlChars.Lf print each employee Dim e As Employee For Each e In empArray Console.Writequot0 quot e.ToString Next e Console.WriteLineControlChars.Lf Console.WriteLinequotempArray.Capacity: 0quot empArray.Capacity End Sub End Class Public Class Employee Private myEmpID As Integer Public Sub NewByVal empID As Integer Me.myEmpID empID End Sub New Public Overrides Function ToString As String Return myEmpID.ToString End Function ToString Public Property EmpID As Integer Get Return myEmpID End Get SetByVal Value As Integer myEmpID Value End Set End Property End Class Employee 2数组例二 ArrayList: add remove IndexOf Count Contains TrimToSize GetEnumerator 19 Imports System Imports System.Collections Public Class MainClass Public Shared Sub Main Dim arrayList As arrayList New arrayList1arrayList.Addquotaquot try Console.WriteLinearrayList0 Catch outOfRange As ArgumentOutOfRangeException Console.WriteLineoutOfRange.ToString End Try Console.WriteLinearrayList.Count Console.WriteLinearrayList.Containsquotaquot Console.WriteLinearrayList.IndexOfquotaquot arrayList.Removequotaquot arrayList.TrimToSize Console.WriteLinearrayList.Capacity arrayList.Addquotaquot Dim enumerator As IEnumerator arrayList.GetEnumerator While enumerator.MoveNext Console.WriteLineenumerator.Current End While End Sub End Class 20 3数组例三 Add element to an ArrayList and get its Length Imports System Imports System.Collections Public Class MainClass Shared Sub Main Dim myList As New ArrayList myList.Addquotaaquot Console.WriteLinequotYou entered quot amp myList.Count amp quot ITEMS.quot End Sub End Class 2Array Bounded array Example Imports System Imports System.Data Imports System.Collections public class MainClass Shared Sub Main Dim X As Array 21 Dim I As Integer Dim Lengths0 As Integer Dim LowerBounds0 As Integer Lengths0 10 LowerBounds0 1 X Array.CreateInstanceGetTypeSystem.Int32 Lengths LowerBounds Try X.SetValue5 0 Catch e As Exception Console.WriteLinee.Message End Try X.SetValue6 1 Console.WriteLineX.GetValue1 End Sub End Class For Each loops through Array Imports System Public Class MainClass Shared Sub Main 22 Dim intArray As Integer 2 4 6 8 10 Dim empArray As Employee _ New Employee5 New Employee7 New Employee9 Console.WriteLinequotThe Integer array...quot Dim theInt As Integer For Each theInt In intArray Console.WriteLinetheInt.ToString Next theInt Console.WriteLinequotThe Employee array...quot Dim e As Employee For Each e In empArray Console.WriteLinee.ToString Next e End Sub End Class Public Class Employee Private empID As Integer constructor Public Sub NewByVal empID As Integer Me.empID empID End Sub End Class Two ways to loop through Array 23 Imports System Public Class MainClass Shared Sub Main Dim intArray As Integer Dim empArray As Employee intArray New Integer5 empArray New Employee3 populate the array Dim i As Integer For i 0 To empArray.Length - 1 empArrayi New Employeei 5 Next i Console.WriteLinequotThe Integer array...quot Dim intValue As Integer For Each intValue In intArray Console.WriteLineintValue.ToString Next Console.WriteLinequotThe Employee array...quot Dim e As Employee For Each e In empArray Console.WriteLinee Next End Sub End Class Public Class Employee Private empID As Integer constructor Public Sub NewByVal empID As Integer Me.empID empID End Sub End Class A simple class to store in the array 24 Imports System Public Class MainClass Shared Sub Main Dim intArray As Integer Dim empArray As Employee intArray New Integer5 empArray New Employee3 .