第一篇：《VB课程设计》实训计划
《VB课程设计》实训计划
一、实验目的
全面掌握利用VB实施应用软件开发的知识和方法，系统提高中小型应用程序的开发能力，努力培养提高创新精神和团队精神，为以后学习JAVA打下坚实的基于面向对象的应用软件开发基础。
二、设计时间
2010-2011学年第二学期第16-18周。
三、组织形式
独立完成。
四、基本要求
1、设计必须在机房完成，不得迟到、早退或旷课。
2、设计作品的实现功能不得低于设计要求。
3、根据设计流程撰写设计报告，主要包括系统分析、解决方案、主要功能的实现要点、设计中遇到的问题及解决方法、设计中存在的不足、对设计的感想和心得体会等。
4、设计过程中要开拓思路、互相协作、自主学习，努力提高分析问题和解决问题的能力。
5、不得抄袭他人作品，一经发现，作零分处理。
五、具体任务
任务一：Visual Basic操作基础 任务难度：* 基本要求：
• 熟练掌握Visual Basic 6.0的启动方法。• 熟悉VB的开发环境。
• 熟悉常用菜单，使用菜单和工具栏创建工程，保存工程生成exe文件。• • 学会向窗体中放置控件和使用属性窗口。
学会建立一个简单界面的应用程序，在代码编辑窗口中添加代码。
• 掌握启动工程和结束工程的方法。任务二：程序设计基础1 任务难度：** 基本要求：
• 掌握VB的常量、变量、数组和表达式的定义。• • • • 熟练掌握VB简单的语句书写。掌握分支结构的使用。掌握循环结构的使用。
掌握各种常用函数的使用。
任务三：程序设计基础2 任务难度：*** 基本要求： • • • • 熟练掌握常用函数的使用。熟练掌握分支结构的使用。熟练掌握循环结构的使用。掌握常用简单算法的编程。
任务四：窗体、标签、文本框和按钮 任务难度：* 基本要求：
• 学会添加多个窗体。• • • • • 掌握启动窗体和切换窗体。掌握为窗体添加事件代码。掌握标签的属性和事件代码。掌握文本框的属性和事件代码。掌握按钮的事件代码
任务五：框架、选项按钮、列表框和组合框 任务难度：* 基本要求：
• 掌握选项按钮和复选框各控件的使用。• • 掌握列表框的使用。掌握组合框的使用。
• 区别几种控件的使用场合。任务六：菜单与工具栏 任务难度：* 基本要求：
• 熟练掌握菜单编辑器的使用方法。• 掌握菜单、工具栏的设计技巧。
• 熟练掌握菜单和工具栏的应用方法。任务七：过程与函数 任务难度：* 基本要求：
• 熟练掌握代码编辑窗口的操作。• • • 过程与函数的定义。
熟练掌握过程与函数参数的传递。掌握过程与函数的变量的有效范围。
• 掌握过程与函数的调用过程 任务八：数据库功能 任务难度：** 基本要求： • • • 掌握数据管理器的使用方法。掌握数据库的基本操作。掌握ADO的使用方法。
任务九：图形与图像
同类设计：英语字典、汉语字典 任务难度：* 基本要求： • • • 掌握VB坐标系和各项设置方法。掌握各个绘图方法。
掌握图形图像的显示方法。• 掌握滚动条的使用方法
任务十：文件管理 任务难度：*** 基本要求：
• 掌握公共对话框的使用方法。• • 理解文件操作的一般步骤及实现方法。掌握文件系统控件。
• 了解FSO的特点及使用方法。任务十一：图书管理系统 任务难度：***** 基本要求： • • • 在Visual Basic6.0的环境下设计一个图书管理系统。
实现图书和人员的增、删、改，图书的借阅和赔偿管理等操作。培养学生基本的编程思路和掌握简单的算法及实际应用能力。
• 了解VB开发应用程序的整个过程。
六、考核办法
总分100分，按以下方法进行考核：
1、遵守设计纪律，不迟到、不早退、不旷课。20分。迟到或早退一次扣2分、旷课1小时扣5分。该项不及格者，设计评定为不及格。
2、认真撰写实验报告。20分。
3、作品设计符合任务要求。30分。抄袭他人作品的，设计为零分。
4、作品测试、答辩。30分。
第二篇：VB实训总结
VB实训总结
时间过得真快，转眼间，一周的实训生活已悄然过去了，然而实训的过程还历历在目。
实训期间，让我学到了很多东西，不仅使我在理论上对VB程序设计有了全新的认识，在实践能力上也得到了提高，真正地做到了学以致用，更学到了很多做人的道理，对我来说受益非浅。亲身感受到理论与实际的相结合，让我大开眼界。也是对以前所学知识的一个初审吧！这次实训对于我以后学习、找工作也真是受益菲浅，在短短的一周中相信这些宝贵的经验会成为我今后成功的重要的基石。作为一名大二的学生，经过差不多一年半的在校学习，对程序设计有了理性的认识和理解。在校期间，一直忙于理论知识的学习，没有机会也没有相应的经验来参与项目的设计开发。所以在实训之前，程序设计对我来说是比较抽象的，不知道一个完整的程序要怎么完成。
这次我做的项目是人事管理系统，其中包含了登陆、员工资料库、考勤库、工资库、商务信息等几个部分。在实训刚开始的时候，做的只是几个简单的界面，觉得其实还算比较简单的，到第三天，基本部分的代码都编写出来了，但是调试的时候出现了很多问题。而且，有时候由于考虑不周以及粗心的缘故，代码方面也存在很大的误差。老师们教会了我们很多简单实用的技巧。也让我们意识到了要想全面完整的完成一个模块，首先要经行程序设计，全面分析会用到的东西及
考虑可能会出现的情况。所以出现的问题也在老师的指导下，顺利解决了。本程序的编写，有很多不足的地方，可能有些功能不太全面也不太完善，但我觉得自己是认认真真的做了，而且从中学到了很多，以后，我要把自己欠缺的知识点补习好，而且要学会举一反三，融会贯通，最重要的是改掉粗心马虎、考虑不周的习惯。我想我以后会将此程序完善好，争取能够运用到生活中去。
在实训期间带给我不仅仅是一种经验，更是我人生的一笔财富。俗语说:纸上得来终觉浅。没有把理论用于实践是学得不深刻的。当今大学教育是以理论为主，能有机会进行实训，对我来说是受益不浅的。我就快毕业走向社会了，相信这次实习对我日后参加工作有帮助。
一路的艰辛与微笑，虽有所收获，然所学是开始，新的考验和抉择要奋斗不息、砺前行，请不要让我们年轻的时光留下太多遗憾！
第三篇：VB实训心得
为期一周的实训即将结束，通过这次的实训使我们学到了很多，同时也让我们意识到我们要学的更多。本次实训的项目是关于工程测量的程序设计，以小组的形式进行分工合作，我组共3个人，任务是四等水准测量的程序设计。从程序的需求分析、可行性分析、设计到编写、调试、修改、完善、到最后的实训报告，每个人都付出了时间和精力去做好自己的任务并努力地去完善它。
实训的第一天接到任务时我们都觉得有点难度，很有挑战性，毕竟四等水准测量是一个比较系统、完善、功能相对较齐全的计算程序，因此程序编写也十分复杂，工作量较大，编写一定要认真。一个小小的失误都可能使程序出现大的漏洞。而我们只是学了点简单的vb程序编写，没有尝试过这种相对来说比较系统完善的系统。所以在做项目的时候我们倍感压力、更加的团结协作，可即使如此我们还是出现了错误，我们的程序在编写上存在一些漏洞，导致调试时不能正常运行，后经过老师的指导、我们的调整，终于可以完美的运行，这里也耽误了我们很多宝贵的时间，直接导致了我们在项目调试上速度不够快。
本人很荣幸地担任组长一职，与其他组员一起进行任务分配以及协调等。我组做了四等水准测量的计算程序、竖直角计算和视距测量三块内容。在实训过程中，老师对我们亲切认真负责，很有耐心地对我们进行讲解并指导我们解决遇到的难题。老师交会了我们很多简单实用的技巧。也让我们意识到了要想全面完整地完成一个模块，首先要进行程序的设计，全面分析会用到的东西以及考虑可能会出现的情况，理清思绪、写出大致的要点后再上机编写程序以及操作。否则像一开始的我们马上上机编写、想到什么就补什么，不仅浪费时间也乱了之前写好的一些程序。系统分析越准确，设计的系统越精确，可以大大减少后期的修改、维护工作。当然做好做对一个项目固然重要，同时美观程度也是必不可少的，无论是从参观者的角度还是自己看的角度都很重要。
总的来说，这次实训还是比较成功的。最后出来的系统，大家都很有成就感，这是我们一步步设计、一步步完善、辛苦付出后得到的成果。小组合作、帮助队友，无论是团队合作这方面还是个人动手这方面，我们都得到了很好的锻炼。当然实训不仅使我们学到了知识，也帮助我们缩小了实践和理论的差距，通过这次实训让我们更深一步的对vb这门课程的知识有更进一步的渴望，同时对自己的专业，对自己的能力，对自己所学的有正确的认识，并且能在以后的学习工作中不断提高和完善自己。
第四篇：VB综合实训
VB换肤（GUI界面）
第一种方法：后缀为.she文件的皮肤
SkinSharp换肤库不是COM组件，无需进行系统注册，仅以标准dll方式存在。
1.打开vb6开发环境，新建一个工程文件，并存档
2.将一个名为“肤色”的文件夹和一个名为SkinH_VB6.dll的文件拷贝到工程所在的目录
3.外部函数接口api函数原型，把这原形放在通用声明段
Private Declare Function SkinH_AttachEx Lib “SkinH_VB6.dll”(ByVal lpSkinFile As String, ByVal lpPasswd As String)As Long
4.若需要什么样的皮肤（即.she文件）就在相应的事件（比喻在Form_Load()）中输入下面的内容：
SkinH_AttachEx App.Path & “/皮肤/vista.she”, “ ”
app.path：系统字串常量，返回工程所在的路径。
皮肤：是跟工程在同一目录下的一个文件夹
vista.she：皮肤文件，可以把网上下载的.she文件放在同目录下用时，只接按上四步骤即可。
第二种方法：ActiveSkin 4.3软件的应用。可以自己更改皮肤
1.安装ActiveSkin 4.3。同其它软件安装一样。
2.汉化该软件。直接运行setup.exe（汉化的安装文件）。点下一步直至完成
3.新建一个VB工程文件，在工具箱灰白色地方右键单击，选择[部件]，在部件对话框中勾选ActiveSkin 4.3后单击[应用][确定]
4.在出现的两个控件中选择拖入到窗体上。右键单击，选择[编辑皮肤]即可到ActiveSkin 4.3中编辑皮肤
5.Label控件必须使用该部件给的ab控件来替换。原本的A是不会显示
6.选择相应的事件(如Form_Load())。在该事件中输入：
Skin1.ApplySkin Me.hWnd
7.如果要移植你的程序到别的机器上运行，请编译打包。因为该皮肤需要系统其它文件来支持。所以你可以选择VB-PowerWrap进行VB程序的封装
VB与ACCESS2003数据库连接相关步骤：
第一步：建立连接
1.引用相关组件：Microsoft ActiveX Data Objects 2.0 Library。Microsoft ADO Data Control 6.0 2.在通用声明段申明：Dim mConn As ADODB.Connection 3.在对应的事件（如Form_Click()）中：set mConn=New ADODB.Connection或Dim mConn As New ADODB.Connection 4.设置其连接字串（与磁盘上的MDB文件建立连接）：
mConn.ConnectionString=“Provider=Microsoft.jet.oledb.4.0;Data Source=” & App.Path & “RSData.mdb” 5.打开连接：mConn.Open 6.测试连接是否成功：if mConn.State=adStateOpen then msgbox “数据库已经连接成功！” else msgbox “数据库连接不成功！” 以上连接方法是在事件里完成，也可以把连接做一个过程，需要连接时直接带参调用也可。如在模块中这样定义
Public conn As New ADODB.Connection Public Function DBConnection(FileName As String)As Boolean
Set conn = New ADODB.Connection conn.ConnectionString = “provider=microsoft.jet.oledb.4.0;” & “data source=” & FileName
conn.Open
If conn.State = adStateOpen Then
DBConnection = True
Else
DBConnection = False
End If End Function 然后回事件中调该函数。其相应代码如下：
Private Sub Command2_Click()
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
If DBConnection(Text1.Text)Then
MsgBox “连接成功！”
Else
MsgBox “连接失败！”
End If End Sub
第二步：从数据库中取出记录，绑定到相对应的控件(Microsoft DataGrid Control 6.0(SP6)(OLEDB))中
1.在通用声明段定义记录对象：
Dim rs As New ADODB.Recordset 2.在相应的事件（如Form_Click()）中定义：
Set rs = New ADODB.Recordset Dim sql As String
sql = “select * from 部门表” rs.CursorLocation = adUseClient rs.Open sql, mConn, 1, 3
3.在窗体上从部件中找到Microsoft DataGrid Control 6.0(SP6)(OLEDB)并加载到工具箱上，然后产生一个实体对象，其名称为DataGrid1 Set DataGrid1.DataSource = mRst.DataSource
注意：游标与锁
0=adopenForwardonly:仅向前游标 — 除仅允许在记录中向前滚动之外，其行为类似动态游标。这样，当需要在 Recordset 中单程移动时就可提高性能。
1=adopenkeyset:键集游标 — 其行为类似动态游标，不同的只是禁止查看其他用户添加的记录，并禁止访问其他用户删除的记录，其他用户所作的数据更改将依然可见。它始终支持书签，因此允许 Recordset 中各种类型的移动。
2=adopenDynamic:动态游标 — 用于查看其他用户所作的添加、更改和删除，并用于不依赖书签的 Recordset 中各种类型的移动。如果提供者支持，可使用书签。3=adopenstatic:静态游标 — 提供记录集合的静态副本以查找数据或生成报告。它始终支持书签，因此允许 Recordset 中各种类型的移动。其他用户所作的添加、更改或删除将不可见。这是打开客户端(ADOR)Recordset 对象时唯一允许使用的游标类型。
mRst.CursorLocation = adUseClient:使用由本地游标库提供的客户端游标
mRst.CursorLocation = adUseServer 默认值。使用数据提供者或驱动程序提供的游标。
1=adLockReadOnly 默认值，只读。无法更改数据。
2=adLockPessimistic 保守式记录锁定（逐条）。提供者执行必要的操作确保成功编辑记录，通常采用编辑时立即锁定数据源的记录的方式。
3=adLockOptimistic 开放式记录锁定（逐条）。提供者使用开放式锁定，只在调用 Update 方法时锁定记录。
4=adLockBatchOptimistic 开放式批更新。用于与立即更新模式相反的批更新模式。
第三步：向数据库中写数据（找一个相应的事件，如Command1_Click()）
Dim bmid As String,bmmc As String,sql As String Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset bmid = Text1.Text:bmmc = Text2.Text conn.ConnectionString = “provider=microsoft.jet.oledb.4.0;data source=” & App.Path & “rsdata.mdb” conn.Open
On Error GoTo cancel: sql = “insert into 部门表(部门ID,部门名称)values('” + bmid + “','” + bmmc + “')” rs.Open sql, conn
cancel:
If conn.Errors.Count = 0 Then
Else
MsgBox “写数据有问题，主键重复”
End If 除了用SQL语句增加库记录以外，也可以用下面的方法来增加库记录
rs.CursorType = adOpenKeyset rs.LockType = adLockOptimistic rs.Open “部门表”, conn, , , adCmdTable rs.AddNew rs.Fields(0)= bmid rs.Fields(1)= bmmc rs.Update 第四步：删除数据库中的一条记录（找一个相应的事件，如Command2_Click()）
Private Sub command2_click()Dim sql As String Dim conn As New ADODB.Connection Set rst = New ADODB.Recordset
Dim bmid As String bmid = Trim(DataGrid1.Columns(0))conn.ConnectionString = “provider=microsoft.jet.oledb.4.0;data source=” & App.Path & “rsdata.mdb” conn.Open
sql = “delete from 部门表 where 部门ID='” + bmid + “'” rst.Open sql, conn, 1, 3
sql = “select * from 部门表”
rst.CursorLocation = adUseClient
rst.Open sql, conn, 1, 3 if not rst.eof()then
rst.movenext end if
Set DataGrid1.DataSource = rst.DataSource set rst=nothing set conn=nothing End sub 第五步：更改数据库中的信息（找一个相应的事件，如Command1_Click()）Private Sub Command1_Click()Dim sql As String Dim conn As New ADODB.Connection Set rst = New ADODB.Recordset Dim s As String
s = “实验中心”
conn.ConnectionString = “provider=microsoft.jet.oledb.4.0;data source=” & App.Path & “rsdata.mdb” conn.Open
sql = “update 部门表 set 部门名称='” + s + “' where 部门ID='001'” rst.Open sql, conn End Sub
第一步：建立连接
1.引用相关组件：Microsoft ActiveX Data Objects 2.0 Library。Microsoft ADO Data Control 6.0 Dim mConn As ADODB.Connection Private Sub Form_Click()set mConn=New ADODB.Connection或Dim mConn As New ADODB.Connection mConn.ConnectionString=“Provider=Microsoft.jet.oledb.4.0;Data Source=” & App.Path & “Police Information.mdb” mConn.Open if mConn.State=adStateOpen then msgbox “数据库已经连接成功！” else msgbox “数据库连接不成功！” End Sub 以上连接方法是在事件里完成，也可以把连接做一个过程，需要连接时直接带参调用也可。如在模块中这样定义
Public conn As New ADODB.Connection Public Function DBConnection(FileName As String)As Boolean
Set conn = New ADODB.Connection
conn.ConnectionString = “provider=microsoft.jet.oledb.4.0;” & “data source=” & FileName
conn.Open
If conn.State = adStateOpen Then
DBConnection = True
Else
DBConnection = False
End If End Function 然后回事件中调该函数。其相应代码如下：
Private Sub Command2_Click()
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
If DBConnection(Text1.Text)Then
MsgBox “连接成功！”
Else
MsgBox “连接失败！”
End If End Sub
第五篇：vb实训心得
Vb实训心得
这次实训，我觉得我真收获挺多的，以前愚昧无知，现在感觉是豁然开朗，VisualBasic程序设计，刚开始学vb时不知道是干啥用的，我觉得很新鲜，于是乎很认真的听讲，我发现这门课程很有趣，老师幽默而却讲课生动，很吸引人，就这样，喜欢上VB了，感觉挺有用的，刚开始就想着还可以自己编软件，多好啊！其实真没那么容易啊，要学好VB也是一件不容易的事，经过这次实训，我觉得我的vb有大大的提升，总而言之，最重要的是多做例题多实践多锻炼多操
作。下面在介绍一下VB的发展过程：
VisualBasic(简称VB)是Microsoft公司于1998年推出的可视化开发工具。Visual意为“可视化”，它是指开发图形用户界面（GUI）时，无须编写大量代码去描述界面元素的位置和外观。Basic是指BASIC语言，这是一种面向初学者的语言。VisualBasic是基于Ｂasic的可视化程序设计语言，它继承了Basic语言简单易懂的特点，采用面相对对象、事件驱动的编程机制，提供了直观的可视化程序设计方法。VisualBasic是目前面向对象开发的主要语言之一，是最简单、最容易使用的语言，因此它是初学者学习可视化编程语言的最佳选择。在以Windows操作系统为平台的众多可视化编程工具中，VisualBasic具有易用性、通用性和开发效率高等特点，这使得VisualBasic特别适合于一般应用程序的开发，成为最流行的Windows应用程序开发语言。VisualBasic6.0现有三种版本：学习
版、专业版和企业版。
VB集成了一系列功能，在VB程序设计环境中能够完成程序的编写、调试、查错、运行、编译、保存等基本操作，同时还提供了大量程序
设计的“零部件”（在VB中称为函数、控件），能够很方便的根据
需要“组装”成一个复杂的程序。
vb开发的应用程序的运行采用事件驱动原理。程序设计人
员不仅在程序设计时不需要考虑程序代码执行的先后问题，而且同一
个对象可以因用户的不同操作而产生不同的结果。
vb中提供的编辑器不仅提供了典型的windows文字处理应
用程序的各种功能，如剪切、复制、粘贴等，使得程序的输入和修改
非常方便。而且在vb代码窗口输入代码时，对于vb中的对象的属性、方法，内置的函数、已定义的自定义函数、过程，已定义的变量等，能自动给出拼写提示。这样可大大减少编程人员的记忆量。
在vb开发环境下，通过api(application program interface)
函数调用，可充分使用windows提供的各种系统资源，来扩充所开发的应用程序的功能。
vb全面支持windows系统的ole（object linking and
embedding）技术，因此可以方便、快捷地实现不同应用程序之间的动态数据交换。
另外，在vb中，可以开发出包括标准exe（标准windows应
用程序）、activex控件、activex exe(对象的嵌入和链接)等多种
类型的应用程序。
Visual Basic 语言的特点：
1、面向对象的可视化设计平台
2、事件驱动的编程机制
3、结构化的程序设计语言
4、强大的数据库功能和网络开发功能
5、充分利用Windows资源
6、方便实用的程序指导
我们已经学了一学期VB了，大家知道VB都能做什么呢？记事
本、画图、做一些小游戏等等，其实还有好多好多东西都能用VB编
出来，世界著名的三大软件之一---SPSS就是用VB开发的。现代社
会，随着计算机科学技术飞速发展，VB也不断改进，他已经彻底摆
脱了“玩具语言”的形象，成为编制通用Windows应用程序、数据库
应用程序、多媒体应用程序以及网络应用程序的理想工具。VB不仅
是一种编程语言，而且是集应用程序开发、调试和测试于一体的集成开发环境。
作为当代大学生，我们在以科技为主导的新世纪里，一定要掌握
vb这门课程，有利的发挥我们的才能和智慧，辉煌我们的人生！
点击咨询 