VB课程设计实验报告
- 格式:doc
- 大小:164.79 KB
- 文档页数:9
"VB程序设计"课程设计报告题目:排序演示一、二、课程设计根本信息课程代码:05190124课程名称:计算机根底课程设计课程英文名称: puter-based Course Design课程所属单位〔院〔系〕、教研室〕:数学与计算机学院计算机根底课程群课程面向专业:生物科学类、制药工程、制药工程(生物制药)、药物制剂、物流管理课程类型:必修课先修课程:大学计算机根底通识选修课程、Visual Basic程序设计课程学分:1 总学时:16三、课程设计目标掌握所学语言程序设计的方法,熟悉所学语言的开发环境及调试过程,熟悉所学语言中的数据类型,数据构造、语句构造、运算方法,稳固和加深对理论课中知识的理解,提高学生对所学知识的综合运用能力。
通过综合设计要求到达以下根本技能:1.培养查阅参考资料、手册的自学能力,通过独立思考深入钻研问题,学会自己分析、解决问题。
2.通过对所选题目方案分析比拟,确立方案,编制与调试程序,初步掌握程序设计的方法,能熟练调试程序。
3.系统设计编程简练,可用,功能全面,并有一定的容错能力。
用户界面良好,有较好的输出功能。
在完成课题根本要求后,具有创新型设计,具有一定的实用价值。
4.根据个人的设计调试过程,撰写设计报告。
四、课程设计内容利用已掌握的VB程序设计语言根底,以及面向对象的程序设计方法、事件驱动的编程方式,进展应用程序和系统的开发设计。
在强化稳固已有编程知识根底之上,训练新的设计与编程思路,通过综合应用所学知识设计、编制、调试实用的Visual Basic程序。
五、课程设计要求1.要求每个同学都要认真对待,积极参与。
2.课程设计完毕时,提交完成的所有源程序、相关文件和可执行文件。
同时填写并完成"课程设计报告册"。
3.不符合要求的程序、设计报告、抄袭的设计报告或源程序代码、在设计中完全未参与的将作不及格处理。
六、考核方式指导教师负责验收程序的运行结果,并结合学生的工作态度、实际动手能力、创新精神和设计报告等进展综合考评,百分制计算,具体考核标准主要包含以下几个局部:1.程序运行情况20分2.程序功能的完善程度10分3.程序构造的合理性10分4.对问题的辩论情况20分5.创新情况10分6.学生的工作态度与独立工作能力10分7.设计报告内容的规*性20分备注:1.按规定时间填写各阶段文档,学习态度加5分2.设计报告内容雷同扣40分,无调试过程问题分析扣10分,无参考文献扣10分3.源程序无注释则在程序构造合理性扣10分七、课程设计主要参考资料"Visual Basic程序设计教程第4版"龚沛曾高等教育"Visual Basic程序设计实验指导与测试第4版"龚沛曾高等教育"Visual Basic从入门到精通"清华大学"Visual Basic课程设计" 王栋清华大学"Visual Basic开发实战1200例" 孙秀梅,巩建华清华大学二、总体设计(1)系统功能需求分析1.程序启动后,显示图6.1所示的主界面。
南京工程学院课程设计说明书(论文)题目密码登录课程名称VB课程设计报告院(系、部、中心)能源与动力工程专业建筑环境与设备工程班级暖通091学生姓名刘江淮学号207090822设计地点图书馆指导教师于雷1设计起止时间:2010 年6 月28 日至2010 年7 月 3一、设计任务补全代码,并按要求完成课程设计报告二、系统总体设计方案密码登录是每一个数据库应用程序所必备的一个功能模块,觅得是为了保证系统及数据的安全。
在用户进入某个系统时会弹出如同的对话框。
确认用户输入的权限师傅正确,级点击“确认”的按钮。
当用户输入的密码不正确时,系统将给出提示,如下图所示。
该模块的实现比较通用,在类似数据库应用中都需要用到。
有的系统还根据用户的需要提供了密码更改的功能。
当你需要更改密码的时候会出现如下的对话框。
首先输入原始密码,在输入新密码,确认新密码,然后点击“确认”键即可。
三、程序总体框架图四、系统的调试源代码写完后,对系统进行调试运行,要求变量声明,对可能出现的几种错误,如:编辑时错误、编译时错误、运行时错误、逻辑错误,进行修改,调试,运行,直至系统能正常运行。
五、收获体会Visual basic 语言是以结构化basic语言为基础,以事件驱动为运行机制。
他的诞生标志着元件设计和开发的新时代的开始。
VB具有面向对象可视化设计工具,是事件驱动的编程机制,同时也提供了易学易用的应用程序集成开发环境。
从Basic 语言、Visual basic 语言的学习开始接触到编程,以前有过一段Basic 语言的学习,觉得比较简单。
当时很想自己能够熟练的进行程序编辑,工程上的软件编辑。
随着大一的Visual basic 语言的学习才逐渐发现这理想想要实现的难度。
对我而言学习编程,不仅能够帮自己解决在生活中可能遇到的一些问题;自己设计一些小游戏还可以给自己带来一些乐趣。
同时也为自己在寻找理想工作添加重要的砝码。
所以,我觉得在学习VB是我们要明确学习的目的。
VB上机实验报告详细易懂实验五数组的应用一、实验目的1.掌握一维数组的概念、定义、数组元素的引用和初始化。
2.学会用数组和程序基本控制结构实现数据的求和、求平均、求极值和排序等算法程序的设计3.加深对循环控制结构的理解和使用二、实验环境1.计算机2.Visual Basic 6.0开发环境三、实验说明1.熟练运用Visual Basic 6.0开发环境2.熟悉建立VB应用程序的步骤3.学会使用一维数组实现简单的应用程序四、实验内容和步骤1.实验内容随机产生10个两位整数,找出其中的最大值、最小值和平均值。
2.实验步骤(1)打开计算机,在Visual Basic 6.0系统环境下,选择“文件”菜单中的“新建工程”菜单选项,打开“新建工程”窗口;(2)在“新建工程”窗口按下“确定”按钮打开“工程设计”窗口;(3)在“工程设计”窗口,首先设计窗口的属性,然后打开“工具箱”窗口添加所需控件,设计该实验的界面;(4)选择“视图”菜单中的“代码窗口”菜单选项,打开“代码窗口”窗口,设计命令按钮控件的事件代码;考虑到要在不同的过程中使用数组,所以首先在模块的通用段中声明数组:Dim a(1 To 10) As Integer随机整数的生成由窗体的Load事件代码完成:Private Sub Form_Load( )Dim p As StringRandomizep = ""For i = 1 To 10a(i) = Int(Rnd * 90) + 10p = p & Str(a(i)) & ","NextLabel1.Caption = L Trim(Left(p, Len(p) – 1))End Sub求最大、最小以及平均值由“确定”按钮Command2的Click事件代码完成:Private Sub Command2_Click( )Dim n As Integer, m As Integer, s As Singlemin = 100: max = 10: s = 0For i = 1 To 10If a(i) > n Then max = a(i)If a(i) < m Then min = a(i)s = s + a(i)NextText1.Text = maxText2.Text = minText3.Text = s / 10End Sub“重置”按钮Command1的Click事件代码:Private Sub Command1_Click( )Form_LoadText1.Text = ""Text2.Text = ""Text3.Text = ""End Sub最后是“关闭”按钮Command3的Click事件代码:Private Sub Command3_Click( )Unload MeEnd Sub(5)运行程序,观察结果;(6)保存窗体,保存工程。
计算机与信息学院(VB程序设计课程)实验报告课程名称:VB程序设计教程姓名:系:计算机与信息学院专业:计算机应用技术年级:学号:指导教师:职称:200x 年xx 月xx 日实验项目列表序号实验项目名称成绩指导教师1 VB环境和程序设计初步2 顺序程序设计3 选择结构程序设计4 循环结构程序设计及数组的运用5 过程6 窗体和常用控件7 常用控件8 气泡法排序程序9 实验九10 菜单设计和多文档界面计算机与信息学院实验报告(一)Visual Basic环境和程序设计的初步一、实验目的1、了解Visual Basic系统对计算机软件、硬件的要求。
2、掌握启动与退出Visual Basic的方法。
3、熟悉Visual Basic的集成开发环境(IDE)。
4、掌握在窗体上添加控件的各种方法。
5、掌握建立、编辑、运行和保存一个简单的Visual Basic应用程序的全过程。
二、实验内容1、启动Visual Basic6.0,观察标题栏、菜单栏、工具栏与Microsoft其他应用程序的不同之处;熟悉各个控件以及窗体设计和工程管理器窗口、属性窗口、代码窗口的功能、组成以及它们各种不同的打开方法。
2、在窗体上画一文本框个一个命令按钮,在文本框中显示“VB程序设计”。
(1)编写适当事件过程,当单击命令按钮时,文本框内容消失。
(2)以解释方式运行程序。
(3)把程序保存。
然后关掉该工程。
装入上面建立的程序,并在窗体上增加一个命令按钮。
当单击该命令按钮,结束程序运行。
保存程序。
(4)把当前程序编译为可执行文件。
(5)生成当前工程并退出。
在windows环境下运行该工程。
3、创建一个“标准EXE”类型的应用程序。
要求:在屏幕上显示“欢迎您的到来!”,并请输入您的名字。
三、实验环境Microsoft Visual Basic 6.0 中文版四、算法描述及实验步骤1、熟悉vb的环境。
2、先创建一个文本框和命令按钮,并设置相应的代码如下:Private Sub Form_Load()Text1.Text = "VB程序设计"End SubPrivate Sub Command1_Click()Text1.Text = ""End Sub3、创建两个标签和一个文本框。
vb课程设计实践报告一、教学目标本课程的教学目标是让学习者掌握Visual Basic编程语言的基本语法、编程技巧以及数据库访问技术。
通过本课程的学习,学生应能设计并实现简单的应用程序,为后续的软件开发学习打下坚实的基础。
具体来说,知识目标包括:1.理解Visual Basic编程语言的基本概念和语法。
2.掌握常用的数据类型、运算符和表达式。
3.学会使用Visual Basic的窗体和控件。
4.掌握事件驱动编程的基本概念。
5.理解并能够使用Visual Basic进行数据库访问。
技能目标则要求学生:1.能够使用Visual Basic编写简单的程序。
2.能够使用Visual Basic进行数据库的连接和操作。
3.能够对程序进行调试和优化。
情感态度价值观目标则在于培养学生的创新精神和团队合作意识,通过完成项目任务,使学生感受到编程的乐趣,增强对计算机科学的热爱。
二、教学内容本课程的教学内容主要包括Visual Basic的基本语法、数据类型、控制结构、窗体和控件、以及数据库访问技术。
具体的教学大纲安排如下:1.课程引言:介绍Visual Basic的发展历程和应用领域。
2.基本语法:变量、数据类型、运算符、表达式等。
3.控制结构:条件语句、循环语句等。
4.窗体和控件:窗体的基本属性、控件的属性和事件等。
5.数据库访问:使用ADO对象进行数据库的连接和操作。
三、教学方法为了提高教学效果,将采用多种教学方法相结合的方式进行教学。
包括:1.讲授法:用于讲解基本语法和概念。
2.案例分析法:通过分析具体的案例,使学生理解编程思想和方法。
3.实验法:安排上机实验,让学生亲手编写代码,提高实践能力。
四、教学资源为了支持教学,将准备以下教学资源:1.教材:《Visual Basic编程教程》。
2.参考书:提供相关的编程书籍,供学生课后自学。
3.多媒体资料:制作教学PPT,辅助讲解。
4.实验设备:提供计算机实验室,让学生进行上机实验。
vb实训报告一、引言VB,即Visual Basic,是一种基于事件驱动的编程语言,由微软公司开发。
通过VB,程序员可以使用图形用户界面(GUI)来创建应用程序。
本报告将详细介绍我在VB实训课程中所学到的知识和经验,以及我的实训项目的设计和实现过程。
二、实训项目概述我的实训项目是一个学生管理系统,旨在帮助学校管理学生的信息和成绩。
通过该系统,学校可以方便地浏览、添加、修改和删除学生的个人信息和成绩记录。
三、系统设计与实现1. 界面设计我采用了经典的菜单栏和工具栏布局,以及直观明了的界面设计。
通过菜单栏和工具栏可以实现对学生信息和成绩的增删改查等基本操作。
2. 数据库设计为了存储学生的信息和成绩,我设计了一个学生数据库。
数据库包括两个表,一个是学生信息表,包含学生ID、姓名、年龄等字段;另一个是成绩表,包含学生ID、科目、分数等字段。
3. 功能实现根据实训要求,我实现了以下功能:- 显示学生列表:从数据库中读取学生信息,并在界面上以表格的形式展示出来,方便用户查看。
- 添加学生:用户可以通过输入学生信息,并点击添加按钮将学生信息保存到数据库中。
- 修改学生信息:用户可以选择某个学生,并对其信息进行修改。
- 删除学生:用户可以选择某个学生,点击删除按钮将其从数据库中删除。
- 成绩输入与查询:用户可以输入学生的科目和分数,并保存到成绩表中。
用户也可以查询某个学生的成绩信息。
四、实训总结通过本次VB实训,我深入了解了VB的基本原理和应用技巧。
我学会了如何设计和实现一个功能完善的学生管理系统,并对数据库操作、界面设计和逻辑编程等方面有了更深入的了解。
在实训过程中,我遇到了一些挑战和困难。
例如,数据库操作时需要注意事务的处理,以保证数据的完整性;界面设计需要符合用户的思维习惯,以提高用户体验。
通过解决这些问题,我不仅提高了自己的技能水平,也对项目开发的重要性有了更深入的认识。
在未来的学习和工作中,我将继续学习和掌握VB以及其他相关技术,不断提高自己的编程能力和项目开发能力。
vb课程设计报告一、课程目标本vb课程设计旨在达成以下学习目标:1. 知识目标:学生掌握VB编程基础知识,理解面向对象编程思想,熟悉VB 开发环境及相关工具的使用。
具体包括:- 掌握VB基本语法和数据类型;- 学会使用VB控制结构,如循环、分支等;- 理解VB中事件驱动编程原理;- 了解VB中常用控件的使用方法和属性设置。
2. 技能目标:学生能够运用所学知识,独立设计并编写简单的VB程序,培养解决实际问题的能力。
具体包括:- 能够编写具有基本功能的VB程序,如计算器、文本编辑器等;- 能够运用面向对象编程思想,设计简单的类和对象;- 能够分析问题,运用VB编程解决实际问题。
3. 情感态度价值观目标:培养学生对编程的兴趣,提高逻辑思维能力和团队协作能力。
具体包括:- 增强学生对编程的热爱,激发学习动力;- 培养学生独立思考、解决问题的习惯;- 培养学生团队协作精神,学会与他人分享和交流。
课程性质:本课程为实践性较强的学科,注重培养学生的动手能力和实际应用能力。
学生特点:学生年级为初中或高中,具备一定的计算机操作基础,对编程有一定的好奇心和兴趣。
教学要求:结合学生特点和课程性质,采用任务驱动法,以实际项目为导向,让学生在实践中掌握VB编程知识,提高编程能力。
同时,注重培养学生的逻辑思维和团队协作能力,为后续学习打下坚实基础。
二、教学内容根据课程目标,本章节教学内容如下:1. VB基本语法和数据类型- 数据类型:整数型、浮点型、字符串型等;- 变量和常量的声明与使用;- 运算符和表达式。
2. VB控制结构- 条件语句:If...Then...Else和Select Case;- 循环语句:For...Next,While...Wend和Do...Loop。
3. VB事件驱动编程- 事件和事件过程的概念;- 鼠标和键盘事件;- 窗体和控件事件。
4. VB常用控件- 文本框、标签、按钮等基本控件的使用;- 列表框、组合框、图片框等高级控件的使用;- 控件属性的设置。
vb实验报告实验一
实验一:VB实验报告
实验目的:通过VB编程实现简单的计算器功能,加深对VB语言的理解和掌握。
实验内容:
1. 设计计算器界面,包括数字按钮、运算符按钮和等号按钮。
2. 实现数字按钮的点击事件,将点击的数字显示在计算器界面上。
3. 实现运算符按钮的点击事件,将点击的运算符保存下来。
4. 实现等号按钮的点击事件,根据保存的运算符进行相应的计算,并将结果显
示在计算器界面上。
实验步骤:
1. 打开VB开发环境,创建一个新的Windows窗体应用程序项目。
2. 在窗体上设计计算器界面,包括数字按钮、运算符按钮和等号按钮。
3. 编写VB代码,实现数字按钮和运算符按钮的点击事件,将点击的数字或运
算符保存下来。
4. 编写VB代码,实现等号按钮的点击事件,根据保存的运算符进行相应的计算,并将结果显示在计算器界面上。
实验结果:
经过实验,成功实现了一个简单的计算器功能。
用户可以通过点击数字按钮输
入数字,点击运算符按钮选择运算符,点击等号按钮进行计算,最终得到正确
的计算结果。
实验总结:
通过本次实验,我进一步掌握了VB语言的编程技巧,对VB编程有了更深入的
理解。
通过实际操作,我对计算器功能的实现有了更清晰的认识,为以后的VB 编程打下了良好的基础。
希望通过不断的实践和学习,能够更加熟练地运用VB 语言,实现更多更复杂的功能。
vb实验总结通用模板第1篇一个月的时间非常快就过去了,这一个月我不敢说自己有多大的进步,获得了多少知识,但起码是了解了项目开发的部分过程。
虽说上过数据库相关的课程,但是没有亲身经历过相关的设计工作细节。
这次课程设计给我提供了一个很好的机会。
通过这次课程设计发现这其中需要的很多知识我们没有接触过,上网查找资料的时候发现我们以前所学到的仅仅是皮毛,还有很多需要我们掌握的东西我们根本不知道。
同时也发现有很多已经学过的东西我们没有理解到位,不能灵活运用于实际,不能很好的用来解决问题,这就需要自己不断的大量的实践,通过不断的自学,不断地发现问题,思考问题,进而解决问题。
在这个过程中我们将深刻理解所学知识,同时也可以学到不少很实用的东西。
这次的数据库课程设计,我们组负责的企业信息文档管理系统的设计。
这课题是自拟的。
我们组实行的分工合作。
我主要是负责数据库功能模块设计这部分。
从各种文档的阅读到需求分析、概要设计、数据库总体设计、代码编写与调试,我们都准备了好长时间。
组内分工合作的整个过程,我亲身体验了一回系统的设计开发过程,分工合作的好处。
很多东西书上写的很清楚,貌似看着也很简单,思路非常清晰。
但真正需要自己想办法去设计一个系统的时候才发现其中的难度。
经常做到后面突然就发现自己一开始的设计有问题,然后又回去翻工,在各种反复中不断完善自己的想法我想有这样的问题不止我一个,事后想想是一开始着手做的时候下手过于轻快,或者说是根本不了解自己要做的这个系统是给谁用的。
因为没有事先做过仔细的用户调查,不知道整个业务的流程,也不知道用户需要什么功能就忙着开发,这是作为设计开发人员需要特别警惕避免的,不然会给后来的工作带来很大的麻烦,甚至可能会需要全盘推倒重来。
所以以后的课程设计要特别注意这一块的设计。
经过组内讨论,我们确定的课题是企业信息文档管理系统。
说实话,我对这个系统不是很了解。
通过上网查找资料、相关文献的阅读,我对该系统有了大体的了解。
vb课程设计实验一、教学目标本课程旨在通过VB编程语言的学习,使学生掌握基本的编程概念和技能,培养学生的问题解决能力和创新思维。
具体的教学目标如下:知识目标:学生能够理解VB编程语言的基本概念和语法,包括变量、数据类型、运算符、控制结构等;了解程序设计的基本原则和方法。
技能目标:学生能够使用VB编程语言编写简单的程序,包括输入输出、条件判断、循环结构等;培养学生的问题分析和解决能力,能够独立完成简单的编程任务。
情感态度价值观目标:学生能够体验编程的乐趣和成就感,培养对计算机科学的兴趣和好奇心;培养学生的团队合作意识和交流沟通能力,通过实验和讨论等活动,培养学生的创新思维和批判性思维。
二、教学内容本课程的教学内容主要包括VB编程语言的基本概念和语法,以及程序设计的基本方法和技巧。
具体的教学内容如下:1.VB编程语言的基本概念和语法:介绍VB编程语言的基本数据类型、变量、运算符、控制结构等,以及常用的函数和库函数。
2.程序设计的基本方法和技巧:讲解程序设计的基本原则和方法,包括输入输出、条件判断、循环结构等,以及常用的算法和数据结构。
3.编程实践:通过实验和案例分析,让学生亲自动手编写程序,巩固所学知识,培养学生的编程能力和问题解决能力。
三、教学方法本课程的教学方法主要包括讲授法、讨论法、案例分析法和实验法等。
具体的教学方法如下:1.讲授法:通过教师的讲解和演示,向学生传授VB编程语言的基本概念和语法,以及程序设计的基本方法和技巧。
2.讨论法:通过小组讨论和课堂讨论,让学生主动参与教学过程,培养学生的思考和表达能力,提高学生的学习兴趣和主动性。
3.案例分析法:通过分析具体的编程案例,让学生理解和掌握编程的方法和技巧,培养学生的编程能力和问题解决能力。
4.实验法:通过实验和编程实践,让学生亲自动手编写程序,培养学生的实际操作能力和创新思维。
四、教学资源本课程的教学资源主要包括教材、参考书、多媒体资料和实验设备等。
vb课程设计实践报告一、教学目标本课程的教学目标是使学生掌握VB编程的基础知识,培养学生运用VB解决实际问题的能力。
具体分为三个部分:1.知识目标:学生需要掌握VB的基本语法、数据类型、变量、常量、运算符、控制结构、函数等编程基础知识和技能。
2.技能目标:学生能够运用VB编写简单的程序,解决实际问题,如计算器、文本排序等。
3.情感态度价值观目标:培养学生对编程的兴趣和主动性,提高学生分析问题、解决问题的能力。
二、教学内容根据教学目标,本课程的教学内容主要包括以下几个部分:1.VB基本语法和数据类型2.变量、常量和运算符3.控制结构:顺序结构、选择结构、循环结构4.函数:数学函数、字符串函数、日期时间函数等5.面向对象编程:类和对象、属性、方法、事件等6.常用控件及其属性和方法7.数据库访问技术三、教学方法为了达到教学目标,本课程将采用以下几种教学方法:1.讲授法:讲解VB的基本语法、数据类型、变量、常量、运算符、控制结构、函数等基础知识。
2.案例分析法:通过分析实际案例,使学生掌握面向对象编程、常用控件及其属性和方法。
3.实验法:让学生动手编写程序,解决实际问题,提高学生的编程能力。
4.讨论法:分组讨论,分享学习心得,互相答疑解惑。
四、教学资源为了支持教学内容和教学方法的实施,我们将准备以下教学资源:1.教材:《VB编程与应用》2.参考书:《VB编程实例教程》3.多媒体资料:教学PPT、视频教程4.实验设备:计算机、网络环境、编程软件以上教学资源将有助于丰富学生的学习体验,提高学生的编程能力。
五、教学评估为了全面、客观、公正地评估学生的学习成果,我们将采取以下评估方式:1.平时表现:评估学生的出勤、课堂参与度、提问回答等情况,占总成绩的20%。
2.作业:布置适量的作业,评估学生的编程能力和应用能力,占总成绩的30%。
3.考试:进行期中和期末考试,评估学生对VB基础知识和技能的掌握程度,占总成绩的50%。
大一vb的实验报告一、实验目的掌握VB语言的基础知识和编程技巧,并通过实践掌握VB的常用控件和事件处理方法。
二、实验材料1.计算机2.VB开发环境三、实验步骤1.搭建VB开发环境在计算机上安装VB开发环境,并进行必要的配置。
2.创建一个新的VB项目打开VB开发环境,点击“新建项目”按钮,选择“Windows桌面应用程序”模板,填写项目名称并确定。
3.设计用户界面在VB的设计器中,拖动控件到窗体上,设置其属性,并进行布局设计。
4.添加事件处理程序对每个控件添加相应的事件处理程序,以实现交互功能。
例如,对于按钮控件,可以添加点击事件的处理程序。
5.编写VB代码在VB的代码编辑器中,编写处理事件的代码,以实现所需的功能。
可以使用VB的基础语法、分支结构、循环结构等。
6.调试与运行对代码进行调试,确保程序运行没有错误,然后点击运行按钮,查看程序的运行效果。
四、实验结果通过以上步骤,成功实现了一个基础的VB程序,具备一定的交互功能和相应的逻辑处理。
五、实验总结通过本次实验,我学会了如何搭建VB开发环境,编写VB代码,设计用户界面,以及添加事件处理程序。
这些都是VB编程的基础知识和技能,对于以后的学习和应用都具有重要的意义。
通过不断的实践和探索,我相信自己能够在VB编程方面有更深入的理解和应用。
六、实验心得本次实验对我来说是一次很好的学习机会。
通过亲自动手实践,我加深了对VB语言和开发环境的了解,对于如何设计用户界面和编写代码也有了一定的经验。
实验过程中,我遇到了不少问题,但通过查阅资料和请教同学,我一一解决了这些问题。
实验不仅让我学到了知识,还培养了我的动手能力和解决问题的能力。
我会继续努力学习,提升自己的编程水平。
vb实验报告三VB实验报告三引言:VB(Visual Basic)是一种基于事件驱动的编程语言,广泛应用于Windows操作系统上的软件开发中。
本篇实验报告将详细介绍我在VB实验三中的实验过程、结果和分析。
实验目的:本次实验旨在通过VB编程实现一个简单的学生信息管理系统。
通过该系统,能够实现学生信息的录入、查询、修改和删除等功能,并将数据存储在数据库中。
实验步骤:1. 设计数据库结构:在实验前,首先需要设计数据库的表结构。
我选择了三个字段:学生姓名、学生年龄和学生性别。
2. 创建VB窗体:打开VB开发环境,创建一个新的窗体。
在窗体上设计相应的控件,如文本框、按钮和标签等,以实现学生信息的录入和操作。
3. 连接数据库:使用VB提供的ADO(ActiveX Data Objects)技术,连接到事先创建的数据库。
通过VB代码,建立与数据库的连接,并打开数据库。
4. 实现数据录入功能:在VB窗体上添加文本框和按钮,通过编写相应的事件处理程序,实现学生信息的录入功能。
当用户在文本框中输入完整的学生信息后,点击按钮即可将数据保存到数据库中。
5. 实现数据查询功能:在VB窗体上添加查询按钮和文本框,通过编写事件处理程序,实现学生信息的查询功能。
用户可以在文本框中输入学生姓名或其他关键词,点击查询按钮后,系统将从数据库中检索相关数据,并显示在窗体上。
6. 实现数据修改和删除功能:在VB窗体上添加修改和删除按钮,通过编写事件处理程序,实现学生信息的修改和删除功能。
用户可以选择要修改或删除的学生信息,并点击相应按钮进行操作。
实验结果:经过以上步骤的实现,我成功地完成了学生信息管理系统的开发。
通过运行程序,我可以在VB窗体上录入学生信息,并实现查询、修改和删除等操作。
数据能够准确地保存到数据库中,并能够根据用户的需求进行相应的操作。
实验分析:通过本次实验,我深入了解了VB编程语言和数据库的应用。
VB作为一种简单易学的编程语言,具有良好的可视化编程环境,使得开发者能够快速实现各种功能。
大一vb的实验报告篇一:VB实验报告一、实验目的和要求1、掌握正确书写表达式、赋值语句的规则。
2、掌握InputBox与MsgBox的使用。
3、掌握Print方法和Format格式使用。
4、掌握单分支与双分支条件语句的使用。
5、掌握多分支条件语句的使用。
6、掌握For语句和Do语句的各种形式的使用。
7、掌握如何控制循环条件,防止死循环和不循环。
二、实验内容和原理1、输入半径,计算圆周长和圆面积。
为了保证程序运行的正确,对输入半径要进行合法性检查,数据检查调用IsNumeric函数;若有错,利用MsgBox显示错误信息,通过SetFocus方法定位于出错的文本框处,重新输入;计算结果保留两位小数。
提示:使用Text1_KeyPress事件,按Enter键,返回参数“KeyAscii”的值为13表示输入结束。
2、随机产生三个整数,按从小到大的顺序显示。
3、计算π的近似值,π的计算公式为:?2n?224262π=2×××…× 2n-1?2n+11?33?55?7 注意:①、分别显示当n=10、100、1000时的结果,由此可见,此计算公式收敛如何?②、要防止大数相乘时结果溢出的问题,将变量类型改为长整型或实数型。
三、主要仪器设备计算机四、实验结果与分析实验界面:1、输入半径,计算圆周长和圆面积。
程序:Private Sub Form_ActivateText1.Text = "输入半径值"Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) '圆面积,周长Dim rr = Text1.TextConst PI = 3.14159If KeyAscii = 13 ThenClsIf IsNumeric(r) ThenPrint "当圆的半径为"; r; "时:"Print "圆面积为:"; Format(PI * r ^ 2, "0.00") Print "圆面积为"; Format(PI * r ^ 2, "0.00")ElseText1 = "半径值输入有误"End IfText1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)ElseEnd IfEnd Sub运行结果:输入值:22、随机产生三个整数,按从小到大的顺序显示。
电子信息工程学系实验报告课程名称:面向对象程序设计实验项目名称:实验5 Function过程实验时间:2011-10-17班级:姓名:学号:实验目的:1)掌握Function过程的定义和调用。
2)掌握变量的有效范围和静态存储。
3)掌握递归过程的定义和调用。
实验环境:Windows XPVisual 2003实验内容及过程:使用静态变量用数组计算乘法口诀1、新建一个“Vusual Basic”项目2、界面设计如图1所示图1 界面设计3、编写程序代码Dim a(9) As IntegerDim x As IntegerPrivate Sub txtX_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles_ txtX.TextChangedx = Val(txtX.Text)txtResult.Text = ""End SubPrivate Sub cmdStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles_cmdStart.ClickDim i As Integer, j As IntegerFor i = 1 To xa(i - 1) = func(x)NextFor i = 1 To xtxtResult.Text = txtResult.Text & i & "x" & x & "=" & a(i - 1) & " "NextEnd SubFunction func(ByVal k As Integer)Static s As Integers = k + sfunc = sEnd FunctionPrivate Sub cmdEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEnd.Click EndEnd Sub4、保存项目5、运行结果(图2 所示)图2 运行结果实验心得:通过本次实验让我熟悉了Function过程的运用和静态变量的运用,通过此次实验,让我更加深刻体会到了过程运用的重要性,它对简化程序的编写起着至关重要的意义。
VB课程设计报告课程设计题目:贪吃蛇游戏设计学号:姓名专业:软件工程(电子商务)班级:指导教师:2011年06 月09 日课题:贪吃蛇游戏设计实验时间:2011年06月06日至08日实验地点:东华理工大学软件楼504实验目的:1.综合运用所学的VB知识解决比较简单的实际问题2.灵活对程序代码的运用;3.学会将VB知识与其他知识相结合。
实验要求:1.问题描述:游戏规则:一条蛇在封闭围墙里,围墙里随机出现一个食物,通过按键盘四个光标键控制蛇向上下左右四个方向移动,蛇头撞倒食物,则食物被吃掉,蛇身体长一节,同时记10分,接着又出现食物,等待蛇来吃,如果蛇在移动中撞到墙或身体交叉蛇头撞倒自己身体游戏结束。
2.基本要求:设计出这个程序,要求能够:变化蛇的移动速度;进行得分统计;当前玩者最高分实验思路:1. 运行运行时有登陆的界面:开始游戏和难度选择,点击开始键开始游戏,点击难度选择选择难度。
2. 出现食物进入游戏后,界面会出现贪吃蛇和食物,电脑随机安排食物的位置,吃掉后,食物出现在其他的位置。
电脑随机安排食物的位置。
3.分数记录食物出现后用↑↓←→控制贪吃蛇,吃掉一个食物,蛇身长长一格,分数相应的增加点中加一分,没吃不加分。
4. 游戏评分游戏结束后,会弹出一个评分表,电脑会根据游戏者控制贪吃蛇吃掉的食物积分,每个十分。
5. 总成绩游戏进行时会在界面中提示当前最高分概要设计(模块流程图)运行界面截图:实验代码:Private WithEvents Timer1 As TimerPrivate WithEvents Label1 As LabelDim GFangXiang As BooleanDim HWB As SingleDim She() As ShenTiDim X As Long, Y As LongDim ZhuangTai(23, 23) As LongDim a As IntegerDim max As IntegerPrivate Type ShenTiF As LongX As LongY As LongEnd Type'按键反应←↑↓→Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Dim C As LongIf KeyCode = 27 Then End 'ESC退出If KeyCode = 32 ThenIf Timer1.Enabled = True Then '空格暂停Timer1.Enabled = FalseLabel1.Visible = TrueElse '空格开始Timer1.Enabled = TrueLabel1.Visible = FalseEnd IfC = UBound(She)If GFangXiang = True Then Exit SubSelect Case KeyCodeCase 37 '←If She(C).F = 2 Then Exit SubShe(C).F = 0GFangXiang = TrueCase 38 '↑If She(C).F = 3 Then Exit SubShe(C).F = 1GFangXiang = TrueCase 39 '↑If She(C).F = 0 Then Exit SubShe(C).F = 2GFangXiang = TrueCase 40 '→If She(C).F = 1 Then Exit SubShe(C).F = 3GFangXiang = TrueEnd SelectIf KeyCode = 83 Then '如果按下‘s’就减速Timer1.Interval = Timer1.Interval + 50ElseIf KeyCode = 65 Then '按下‘a’ 就加速If Timer1.Interval <> 50 ThenTimer1.Interval = Timer1.Interval - 50End IfEnd IfEnd SubPrivate Sub Form_Load()Me.AutoRedraw = TrueMe.BackColor = &HC000&Me.FillColor = 255Me.FillStyle = 0Me.WindowState = 2Set Timer1 = Controls.Add("VB.Timer", "Timer1") Set Label1 = Controls.Add("bel", "Label1") Label1.AutoSize = TrueLabel1.BackStyle = 0Label1 = "暂停"Label1.ForeColor = RGB(255, 255, 0)Label1.FontSize = 50ChuShiHua '初始化Private Sub Form_Resize()On Error GoTo 1:With MeIf .WindowState <> 1 Then.Cls.ScaleMode = 3HWB = .ScaleHeight / .ScaleWidth.ScaleWidth = 24.ScaleHeight = 24Label1.Move (Me.ScaleWidth - Label1.Width) / 2, (Me.ScaleHeight - Label1.Height) / 2 HuaTuMe.Line (X, Y)-(X + 1, Y + 1), RGB(20, 20, 0), BFEnd IfEnd With1:End SubPrivate Sub Timer1_Timer()Dim n%Dim C As Long, I As LongOn Error GoTo 2:QingChu '清图C = UBound(She)Select Case She(C).FCase 0If ZhuangTai(She(C).X - 1, She(C).Y) = 2 ThenC = C + 1ReDim Preserve She(C)She(C).F = She(C - 1).FShe(C).X = She(C - 1).X - 1She(C).Y = She(C - 1).YChanShengShiWuGoTo 1:ElseIf ZhuangTai(She(C).X - 1, She(C).Y) = 1 ThenGoTo 2:End IfCase 1If ZhuangTai(She(C).X, She(C).Y - 1) = 2 ThenC = C + 1ReDim Preserve She(C)She(C).F = She(C - 1).FShe(C).X = She(C - 1).XShe(C).Y = She(C - 1).Y - 1ChanShengShiWuElseIf ZhuangTai(She(C).X, She(C).Y - 1) = 1 Then GoTo 2:End IfCase 2If ZhuangTai(She(C).X + 1, She(C).Y) = 2 ThenC = C + 1ReDim Preserve She(C)She(C).F = She(C - 1).FShe(C).X = She(C - 1).X + 1She(C).Y = She(C - 1).YChanShengShiWuGoTo 1:ElseIf ZhuangTai(She(C).X + 1, She(C).Y) = 1 Then GoTo 2:End IfCase 3If ZhuangTai(She(C).X, She(C).Y + 1) = 2 ThenC = C + 1ReDim Preserve She(C)She(C).F = She(C - 1).FShe(C).X = She(C - 1).XShe(C).Y = She(C - 1).Y + 1 ChanShengShiWuGoTo 1:ElseIf ZhuangTai(She(C).X, She(C).Y + 1) = 1 Then GoTo 2:End IfEnd SelectZhuangTai(She(0).X, She(0).Y) = 0For I = 0 To CSelect Case She(I).FCase 0She(I).X = She(I).X - 1Case 1She(I).Y = She(I).Y - 1Case 2She(I).X = She(I).X + 1Case 3She(I).Y = She(I).Y + 1End SelectNextTiaoZheng1:GFangXiang = FalseZhuangTai(She(C).X, She(C).Y) = 1HuaTuIf max < ((UBound(She) - 2) * 10) Thenmax = (UBound(She) - 2) * 10Label3.Caption = maxEnd IfExit Sub2: '游戏结束n = MsgBox("得分:" & (UBound(She) - 2) * 10 & " 分" & vbCrLf & "游戏结束重新开始游戏", vbYesNo, "贪吃蛇")If n = vbYes ThenChuShiHuaElseEndEnd IfEnd Sub'初始化Private Sub ChuShiHua()Me.ClsTimer1.Enabled = TrueTimer1.Interval = 200Erase ZhuangTaiReDim She(2)She(0).F = 2She(0).X = 9She(0).Y = 11ZhuangTai(9, 11) = 1She(1).F = 2She(1).X = 10She(1).Y = 11ZhuangTai(10, 11) = 1She(2).F = 2She(2).X = 11She(2).Y = 11ZhuangTai(11, 11) = 1HuaTu '画图ChanShengShiWuEnd Sub'清图Private Sub QingChu()Dim I As LongFor I = 0 To UBound(She)Me.Line (She(I).X, She(I).Y)-(She(I).X + 1, She(I).Y + 1), Me.BackColor, BFNextEnd Sub'画图蛇Private Sub HuaTu()Dim I As LongFor I = 0 To UBound(She)Me.Circle (She(I).X + 0.5, She(I).Y + 0.5), 0.49, RGB(255, 255, 0), , , HWBNextEnd SubPrivate Sub TiaoZheng()Dim I As LongFor I = 0 To UBound(She) - 1She(I).F = She(I + 1).FNextEnd Sub'随机产生食物Private Sub ChanShengShiWu()Randomize Timer1:X = Int(Rnd * 24)Y = Int(Rnd * 24)If ZhuangTai(X, Y) > 0 Then GoTo 1:ZhuangTai(X, Y) = 2Me.Line (X, Y)-(X + 1, Y + 1), RGB(255, 255, 0), BFEnd Sub实验总结:程序运行仍不够完美,如不能将调节速度的精度显示出来。