下载文档原格式
VB实验报告实验一、VB控制结构[实验目的]1.掌握选择语句的使用2.掌握循环语句的使用[实验内容]一、VB编程基础练习：在应用程序的代码窗口中分别输入以下四段代码，当程序运行时在窗体上单击，分别会发生什么情况，为什么？①Private Sub Form_Click()I = 10Print IEnd Sub②Private Sub Form_Click()Dim I%I = 10Print IEnd Sub③Option ExplicitPrivate Sub Form_Click()I = 10Print IEnd Sub④Option ExplicitPrivate Sub Form_Click()Dim I%I = 10Print IEnd Sub第一个程序运行的结果是：点击一次窗体便会出现一个“10”第二个程序的运行结果是：也是点击一次窗体出现一个“10”第三个程序运行的结果是：无法运行，显示变量未定义第四个程序运行的结果是：在应用程序的代码窗口中分别输入以下两段代码，当程序运行时在窗体上反复单击，分别会发生什么情况，为什么？Private Sub Form_Click()Dim n As Integern = n + 1Print nEnd SubPrivate Sub Form_Click()Static n As Integern = n + 1Print nEnd Sub第一个程序运行结果是：第二个程序运行的结果是：二、选择语句程序1：创建应用程序。
要求：单击窗体可弹出输入框，任意输入三个数，然后按从小到大的顺序输出到窗体上。
Private Sub Text1_Change()Dim X1 As Single, X2 As Single, X3 As Single, Temp As Single '定义x1,x2,x3,tempX1 = CSng(InputBox("请输入第1个数：", "输入数据")) '弹出请求输入数据x1的文本框X2 = CSng(InputBox("请输入第2个数：", "输入数据")) '弹出请求输入数据x2的文本框X3 = CSng(InputBox("请输入第3个数：", "输入数据")) '弹出请求输入数据x3的文本框If X1 > X2 ThenTemp = X1: X1 = X2: X2 = Temp '比较x1,x2,若x1大于x2将两值交换End IfIf X1 > X3 ThenTemp = X1: X1 = X3: X3 = Temp '比较x1,x3,若x1大于x3将两值交换End IfIf X2 > X3 ThenTemp = X3: X3 = X2: X2 = Temp '比较x2,x3,若x2大于x3将两值交换End IfPrint: PrintPrint "输出结果：" ’在屏幕上输出“输出结果：”PrintPrint x1,x2,x3 ’在屏幕上输出x1,x2,x3End Sub三、循环语句程序3：创建应用程序。
大一VB的实验报告引言本次实验是关于VB（Visual Basic）的学习，在实验中，我们将学习VB的基础知识及其在实际应用中的使用方法。
VB是微软公司开发的一种基于Windows操作系统的可视化编程语言，最初是针对Office软件进行开发，后来逐渐扩展到Windows界面程序的开发，许多应用软件都是采用VB开发的。
本次实验主要涉及到VB的部分语法及其相关应用。
实验目的通过本次实验，学生应能够掌握以下知识：1.VB的基础语法知识及其应用方法；2.学会使用VB设计Windows应用程序；3.掌握VB窗体及控件设计，以及属性设置；4.掌握VB语言中数据类型、循环、分支结构等知识点；5.熟悉VB的IDE开发环境和调试功能；6.学会编写VB代码，完成简单的实际应用程序。
实验内容在本次实验中，我们主要完成了两个VB应用程序的设计与开发：第一个应用程序在第一个应用程序中，我们将实现以下功能：1.界面设计，包括窗体设计、按钮设计等；2.显示本地计算机的基本信息，如计算机名、操作系统版本号、CPU速度等；3.显示本地计算机的网络信息，如IP地址、MAC地址等；4.提供一个退出程序的功能按钮。
我们可以使用VB语言编写代码，通过各类控件的设计，来实现上述功能。
我们可以使用MsgBox函数来弹出消息窗口，使用Label和Text控件来显示文本信息，使用按钮控件来实现退出程序的功能。
具体实现方式可参考相关的VB编程书籍或网络资源。
第二个应用程序在第二个应用程序中，我们将实现以下功能：1.界面设计，包括窗体设计、按钮设计等；2.支持文本文件的读写，能够打开指定的文本文件并在程序中显示文件内容；3.支持文件编辑，能够在程序中修改文件内容并保存文件；4.提供一个退出程序的功能按钮。
实现这个功能主要需要使用VB语言中的文件处理函数来实现文件的读写操作。
我们可以使用FileOpen函数来打开指定的文件，FileGet函数读取文件内容，并使用FilePut函数来保存修改的文件内容。
vb实训报告心得体会（18篇）vb实训报告心得体会（通用18篇）vb实训报告心得体会篇1今年的4月份学校根据我们所学专业EDA技术的需求与我们另一门课电子产品装接相结合进行了FPGA实训板的组装，实训地点选在S12-201，主要实训流程有两大部分，一部分是SMT表面贴装元件的装配，一部分是THT元件的焊接，在整个实训过程中我学习到许多以前不了解的经验，也更加的了解书上的一些难以理解的知识点。
刚开始老师先把THT元件发个了我们，要求我们先自己检查元件是否存在问题，刚开始的时候我没有掌握检测元件的要点，拿万用表一顿乱测，根本就测不出到底有没有问题，但是后来通过请教同学以及老师的指点，我总算学会了基本的元件检测，检测完元件为接下来的焊接省了不少时间和心力，我们就可以避免出现因为元件本身的问题而从新焊接。
检测完元件，老师说为了让我们更加了解流水线作业，SMT元件的贴装就采用流水线作业，我负责的就是贴片的11工位，本来我以为会很容易，也没太在意，真正到流水作业到我这里的时候，我那镊子夹住电阻却手抖个不停，但是后来我记起老师说的要要点，沉着下来，经过几次贴装下来就慢慢熟习了，也就不再紧张了，整个工序下来虽然大家都很认真却还是出现许多问题，但是经过后来的补焊，基本上还是算成功了，这一部分完成后，后面的基本就是自己小组成员自己进行组装，我和胡静分别焊了一部分，经过几个小时的努力，我们的板子终于成功的组装好了。
经过这几周的不懈努力，终于的完成了这次的实训任务，看着手边的板子，我感触很多，记得一开始的完全茫然，到后面慢慢的得心应手，我学到很多，在检测中我学会了怎样去熟练的检测基本元件，在THT贴装中我学到了团队意识，在焊接中我学会了细心更重要的是，在组装FPGA板的过程中，我熟悉了板子的原理图，相信在学习EDA技术中会起到很大的作用，与此同时，我也了解到我还有许多东西需要去学习，需要更严格的要求自己对专业知识的学习。
vb实验报告实验总结
VB实验报告实验总结
在本次VB实验中，我们主要学习了Visual Basic编程语言的基本语法和应用。
通过实验，我们深入了解了VB的各种功能和特性，并且掌握了如何利用VB进
行程序设计和开发。
在实验过程中，我们首先学习了VB的基本语法和数据类型，包括变量、常量、运算符等。
然后我们学习了VB中的控件和事件处理，掌握了如何在窗体中添
加控件，以及如何处理用户的交互事件。
接着，我们学习了VB中的条件语句
和循环语句，掌握了如何编写条件判断和循环结构的程序。
最后，我们学习了VB中的函数和过程，掌握了如何封装和调用函数，以及如何设计和调用过程。
通过本次实验，我们对VB编程语言有了更深入的理解，掌握了VB的基本编程
技能。
我们能够利用VB进行程序设计和开发，实现各种功能和应用。
同时，
我们也意识到了编程的乐趣和挑战，对计算机编程产生了浓厚的兴趣。
总的来说，本次VB实验对我们的学习和成长都具有重要意义。
我们通过实验
掌握了VB的基本知识和技能，提升了自己的编程能力和实践能力。
我们相信，在今后的学习和工作中，VB编程语言一定会为我们带来更多的机遇和挑战，让我们能够更好地应对和把握。
希望我们能够不断学习和进步，不断提升自己的
编程水平，为自己的未来铺平更加广阔的道路。
实验报告二实验目的（1）掌握基本循环控制结构（For-Next、While-Wend、Do-Loop）语句（2）掌握循环嵌套结构（3）掌握素数算法（4）掌握控制结构相关控件（列表框、组合框等）（5）能综合运用循环控制结构解决较复杂的问题实验内容【实验1】编写一个简易计算器编写程序计算S=1+1/2+1/4+1/7+1/11+1/16+1/22+…当第i项的值<10-5时计算结束结束。
实验结果：【实验1 代码】【实验1 典型结果】【实验2】将200~300之间的素数输出到列表框中实验结果：【实验2 代码】【实验2 典型结果】【实验3】编写程序，在窗体上输出上三角形式的九九乘法表。
实验结果：【实验3 代码】【实验3 典型结果】【实验4】从键盘输入10个整数，存放在一个一维数组中，然后将前5个元素与后5个元素交换，即第1个与第10个交换，第2个与第9个交换……实验结果：【实验4 代码】【实验4 典型结果】【实验5】静态声明一个二维数组，输入和输出该数组各元素的值要求：1.计算并输出数组主对角线和次对角线元素的和。
2.交换1、3行后输出整个数组的值3.交换数组的行与列后输出整个数组的值12345678910111213141516171819202122232425⎡⎤⎢⎥⎢⎥⎢⎥⎢⎥⎢⎥⎢⎥⎣⎦实验结果：【实验5 代码】【实验5 典型结果】【实验6】编写程序，将随机产生的1000个[1000,99999]范围内的随机整数存入数组，然后分别用“比较交换法”、“选择法”、“冒泡法”进行升序排序实验结果：【实验6 代码】【实验6 典型结果】【选做1】编写程序，输入X，要求计算精度10-6，求sinX ，计算公式如下所示实验结果：【选做1代码】)!1n2(x)1(...!7x!5x!3x1x(x)sin1n21n753--++-+-=--【选做1典型结果】【选做2】任意输入一个或者多个英文句子，统计这些句子中的单词数量实验结果：【选做2代码】【选做2典型结果】【选做3】利用一维数组，统计一个班学生成绩0~59，60~69，70~79，80~89，90~100各分数段的人数，生成一个各分数段的柱状图。
电子信息工程学系实验报告课程名称：面向对象程序设计实验项目名称：实验10 文件 实验时间2011-12-12班级： 姓名： 学号：实 验 目 的:1）、理解System.IO 对象模型。
2）、熟练掌握使用File 和Directory 对象操作文件的方法。
3）、熟练掌握DriveListBox 和StreamWriter 对象读写文本文件的方法。
4）、理解流的概念。
5）、掌握使用StreamReader 和StreamWriter 对象读写文本文件的方法。
实 验 环 境:Windows XPVisual 2003实 验 内 容 及 过 程:查找并替换文本文件的内容1、 新建一个“VisualBasic 项目”2、 界面设计由一个显示选择的文件的文本框（txtFileName ）、一个查找内容的文本框（txtFindText ）、一个替换内容的文本框（txtReplaceText ）、一个显示打开的文件内容的多行文本框（txtContent ）、三个标签（Label ）和两个按钮（btnSelFile 、btnReplace ）组成。
还要再添加一个OpenFileDialog 控件。
界面安排如图T10-1。
3、 编写程序代码引入System.IO 名称空间。
单击“选择文件”按钮的事件代码： 图T10-1 界面设计Private Sub btnSelFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesbtnSelFile.ClickOpenFileDialog1.InitialDirectory = "c:\"OpenFileDialog1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"OpenFileDialog1.FilterIndex = 1OpenFileDialog1.RestoreDirectory = TrueIf OpenFileDialog1.ShowDialog = DialogResult.OK ThentxtFileName.Text = OpenFileDialog1.FileNameEnd IfIf txtFileName.Text <> "" Thenreadfile(txtFileName.Text, txtContent)End If单击“替换”按钮的事件代码：Private Sub bntReplace_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles bntReplace.ClickIf txtFindText.Text = "" ThenMsgBox("请输入查找字符串", MsgBoxStyle.Critical)End IfTryDim fs As New FileStream(txtFileName.Text, FileMode.Open)Dim sr As New StreamReader(fs)Dim tempstr As Stringtempstr = Path.GetTempFileNameDim sw As New StreamWriter(tempstr)Dim s As StringDos = sr.ReadLineIf s <> Nothing Thens = s.Replace(txtFindText.Text, txtReplaceText.Text)sw.WriteLine(s)ElseExit DoEnd IfLoop While s <> Nothingsw.Close()sr.Close()fs.Close()File.Delete(txtFileName.Text)File.Move(tempstr, txtFileName.Text)If txtFileName.Text <> "" Thenreadfile(txtFileName.Text, txtContent)End IfMsgBox("替换完成。
VB实验报告一（二）引言概述：VB（VisualBasic）是一种面向对象的程序设计语言，广泛应用于Windows操作系统中的软件开发。
本实验报告旨在详细介绍VB实验一（二）的内容与实验结果，并对其进行分析和总结。
正文内容：一、实验目的1.1学习VB语言的基本语法和开发环境的使用；1.2熟悉VB的界面设计和事件处理；1.3掌握VB语言中的数据类型、循环结构和条件语句。
二、实验步骤2.1搭建VB开发环境2.1.1并安装VisualStudio；2.1.2配置VB开发环境。
2.2界面设计2.2.1创建一个新的WindowsForms应用程序；2.2.2在设计窗口中添加控件，如按钮、文本框等；2.2.3设置控件的属性和事件。
2.3事件处理2.3.1编写相应按钮的Click事件处理程序；2.3.2实现按钮的功能，如计算、跳转等。
2.4数据类型的应用2.4.1声明和初始化变量；2.4.2使用不同数据类型进行计算和赋值。
2.5循环结构和条件语句2.5.1使用For循环和While循环实现特定功能；2.5.2利用条件语句实现条件判断。
三、实验结果3.1搭建VB开发环境成功；3.2界面设计符合预期，控件添加和属性设置正确；3.3事件处理程序编写无误，按钮功能正常；3.4数据类型的应用正确，计算和赋值结果准确；3.5循环结构和条件语句的实现正确。
四、分析与讨论4.1在搭建VB开发环境的过程中，可能会遇到版本兼容性问题，需要根据实际情况进行相应的配置和调整；4.2界面设计的合理布局与控件的正确设置对用户体验起到重要作用；4.3事件处理程序的编写需要注意语法的正确性和逻辑的严谨性；4.4在应用不同数据类型进行计算和赋值时，要注意数据类型的转换和溢出的问题；4.5循环结构和条件语句的合理运用能够简化程序的逻辑结构，提高代码的可读性和可维护性。
五、总结通过本次VB实验一（二）的学习和实践，我对VB语言的基本语法和开发环境的使用有了更加深入的了解。
软件技术实验报告
学号2009300186 姓名赵佶男班级010109卓
越
大作业机房管理系统
课题基本目标要求：
1）可在系统中由系统管理员按班级指定时间进行上机课时安排，安排上机不得与其他已安排机时冲突。
2）在指定上机课时段，除了上机班级学生可以登录外，其余无关学生一律不得登录，除非系统管理员授权。
预定上机时间结束时，自动
提前5分钟提示，待真正结束时即自动锁屏。
3）除上机课时安排以外，可以在机动时间段接受学生凭个人一卡通上机，且上机实施计时自动收费（即扣除学生一卡通上因上机而应缴
纳的上机服务费）
4）在接受零散学生付费上机时，可自动为其分配空闲机器并授权使用，在分配机器时应考虑机器的使用情况分布均匀，即每次分配机器是
前一时段未曾使用的机器，当学生一卡通上的余额，不足以支付1
小时上机服务费时，应提示其下机充值，并实施锁屏。
实验步骤：
首先，根据大作业的要求，我建立了机器表，流水表，学生基本情况表，上课表，以及一卡通表五个数据库表。
机器表用来按照使用情况，选择空闲时间最长的机器。
流水表用来记录现在机器以及人员使用的情况，是个
动态表，用来方便的取用和修改数据。
学生基本情况表用来存放学生的学号，密码，班级等基本情况，以实现学生上课登录和自由登录。
上课表存放各个班级的上课下课时间，以实现排课功能。
一卡通表记录了每个学生一卡通内的金额，用来帮助实现上下机的扣费，以及余额不够支付一小时时间情况下得强制下机。
然后，我进行了窗体的设计。
经过筛选优化，我设计了五个窗体，分别是主选择窗体，注册窗体，登录窗体，上课安排窗体，实时计费和下机窗体。
主选择窗体可以用来进行上课登录、学生自由登录、管理员登录和机器的推荐。
注册窗体是用来进行学生登录密码的注册。
登录窗体限制学生的学号和密码必须匹配才能登录。
上课安排窗体可以输入班号、上下课时间并选择星期值。
实时计费和下机窗体用来扣费并方便学生随时下机。
接下来，要按照要求进行代码的编写。
A）可在系统中由系统管理员按班级指定时间进行上机课时安排，安排上机不得与其他已安排机时冲突。
此功能我在排课窗体下用select选择出全体班级的上下课以及星期值，并将管理员希望的上下课时间转换为时间类型数值，进行循环比较，用do until 语句逐个比较，使得上下课时间点都不得在其他班级的上课时间段内。
如果时间不冲突，就实施修改数据库的功能，并更新保存。
B）在指定上机课时段，除了上机班级学生可以登录外，其余无关学生一律不得登录，除非系统管理员授权。
预定上机时间结束时，自动提前5分钟提示，待真正结束时即自动锁屏。
在主选择窗体内有上课登录按钮和自由登录按钮。
点击上课登录，输入学
号后，先从基本信息表中查找出所属班级，并进行当前时间和所属班级的上课时间段的比较，使用if语句，如果当前时间在所属班级的上课时间内，即弹出登录窗口。
否则，提示与管理员联系取得上机权限。
在管理员登录后有授权上机按钮，通过管理员的权限，也可以访问登录界面。
对于预定时间提示下机,我用了format函数，令a=预定时间，b=现在时间，format(a-b,”hh:mm:ss”)<00:05:00，并用时间控件timer每隔一定时间刷一次即可实现。
当上述函数值为零时，退出系统。
C）除上机课时安排以外，可以在机动时间段接受学生凭个人一卡通上机，且上机实施计时自动收费（即扣除学生一卡通上因上机而应缴纳的上机服务费）。
当学生一卡通上的余额，不足以支付1小时上机服务费时，应提示其下机充值，并实施锁屏。
在主窗体点击学生自由登录按钮，判断现在时间是否为上机时间，用select 选取上课表中的上课时间和下课时间以及星期值字段，并用format(now)和weekday(now)与之进行比较，若现在不是上课时间，即可登录。
然后进入下机和实时扣费界面，在进入此窗体时读取一卡通内余额，并显示，另外在机器表中，机器使用情况改为“是”。
用timer控件，类似做倒计时牌的方法，让余额显示在label上每隔10s变换一次，每次金额减少0.1元，并判断现在余额是否小于36元，若小于立即将此时余额传入数据库，并退出系统，并且删除流水表中相应记录，机器表中相应使用状态为否。
否则，一直如此进行，直到用户点击下机，记录当前label上的数值，传入数据库并更新，另外弹出消息框提示消费金额。
还要删除记录，和修改使用情况。
D）在接受零散学生付费上机时，可自动为其分配空闲机器并授权使用，在
分配机器时应考虑机器的使用情况分布均匀，即每次分配机器是前一时段未曾使用的机器。
在主选择界面，有推荐机器按钮，点击后，执行select min(下机时间) 并且where 使用情况为否。
在建立数据库机器表时，将每台机器的初始上机时间都设定为00:00:00，能保证每台机器都更好的被利用。
E) 在注册窗体，学生可以进行注册，输入学号后，连续输入两次密码，只有当密码相同时才可以注册。
并且，只有未注册过的学生才可以进行注册。
此功能由select语句和if 语句组合，共同实现。
创新亮点：
使用format(a-b,”hh:mm:ss”)函数，增加了注册功能，使得该系统更加符合实际情况。
完成情况和存在问题：
已按照要求完成，并增加了注册功能。
收获与体会：
本次大作业，从最初的构想，到在纸上画出思路图，再到建立数据库表格，接着编写程序并逐步调试，共经历了近三十个小时，由于要准备考试，而且夜深人静的时候思路比较广阔，我还熬过两个通宵，最后一看才编了几百k的东西，我深深体会到了软件开发人员的辛苦。
虽然说，东西小，功能也不怎么强大，可是自己也觉得非常有成就感。
这次大作业，让我对软件技术课有了更加深刻的认识，对整个开发软件的过程有了初步的了解。
往往看似复杂的东西，只要基础知识牢固，可以用一些最基本的知识来解决。
现在才认识到，不管是书上的VB部分还是数据库部分，
每一块的内容都和最后的作业有关系，平时的每次实验也都是最后大作业的一小部分，只有把分散的东西融合起来，才能使知识得到升华。
另外，刚刚拿到大作业要求时，感到很迷惑，无从下手，压力特别大，认为这是根本无法完成的东西。
后来，静静地想，一点点的回忆，把每个要求都拆开看，把每项功能都和自己以前掌握的方法往一块凑，碰到问题，解决问题，不气馁不放弃才能完成任务。
最后，我还体会到认真是多么的重要，在敲程序的过程中，我经常会出错，少end if 更是常常出现的事情，把rs,rs1,rs2弄乱也常有，往往这些由于粗心导致的错误让我在调试程序的时候特别头痛。
所以，不管做什么都要把认真二字放在首要位置。
备注：。
