vb大作业 实验报告
VB实验报告
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_大作业_包雨朦
制作人
39111107包雨朦
同组人
作业简介与功能说明
整个小程序包括6个窗体:主窗体、登陆窗体、3个小应用程序窗体、关于窗体和说明窗体，所用到的控件和方法包括按钮响应、Timer控件、Windows Media Player控件、Adodc控件等。主窗体中包含弹出式菜单（任意位置右键弹出）、Windows Media Player控件(添加背景音乐)；登陆窗体中用Adodc控件进行用户登录验证；青蛙摆钟窗体中用Timer控件控制摆钟(青蛙眼睛)的定时摆动；正弦曲线窗体用四个按钮进行独立绘图；同心圆绘制在绘图的基础上添加Timer控件，实现自动绘制。说明窗体和关于窗体只是针对此程序的说明。（用户名baoyumeng密码123;用户名admin密码admin）
共同完成部分
独立完成部分
1.主窗体（弹出式菜单设计、背景音乐）
2.登陆窗体（使用Adodc控件操作数据库）
3.青蛙摆钟
4.正弦曲线绘制
5.同心圆绘制
作业截图
作业小结
整个程序制作过程中遇到的问题有：在制作登陆窗最终解决；在绘制正弦曲线窗体中对如何解决在PSet后重置以求不影响其它图形的绘制时，经查阅未能找到解决办法。
经过学习和亲身实践，对程序设计有了初步的了解，发现程序设计并不是只要专业人员才能制作的事实；这样的大作业即实践机会激发了自己在VB学习中的兴趣，尝到了完成一个个问题后的喜悦感。
vb实验报告(答案)
Print "数理化"
End Sub
Private Sub Cmd2_Click()
Print "政史地"
End Sub
心得体会：（可以从以下几个方面来总结：你在上机过程中遇到了哪些难题？你是怎么克服的？你对你的程序的评价？你的收获有哪些？你有什么没有解决的问题？等）
A. Text1.MaxLength = 0 B. Text1.Enabled = False
C. Text1.Visible = FalseD. Text1.Width = 0
5、设置命令按钮的属性时，只有将（A）属性设置为1，Picture属性才有效，否则无效。
A、StyleB、CaptionC、EnabledD、Default
试验报告（1）
院（系）：课程名称：日期：
班级
学号
实验室
专业
姓名
计算机号
实验
名称
VB环境的熟悉与应用
成绩评定
所用
软件
Visual Basic 6.0
教师签名
实
验
目
的
或
要
求
1．熟悉VB的系统环境，了解VB程序的编写、保存和编译的方法过程。
2．初步了解几个常用控件的使用方法。
实
验
步
骤
、
心
得
体
会
1、在vb中____C_____被称为对象。
10、确定一个控件在窗体上位置的属性是__Left_______和___Top______。
11、窗体边框类型的默认值是___2___。
9、Visual Basic集成开发环境主要窗口包括__窗体设计窗口；代码设计窗口；_属性窗口；_工程资源管理器窗口_；_工具箱窗口。
大一vb的实验报告
大一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实训报告心得体会（通用18篇）vb实训报告心得体会篇1今年的4月份学校根据我们所学专业EDA技术的需求与我们另一门课电子产品装接相结合进行了FPGA实训板的组装，实训地点选在S12-201，主要实训流程有两大部分，一部分是SMT表面贴装元件的装配，一部分是THT元件的焊接，在整个实训过程中我学习到许多以前不了解的经验，也更加的了解书上的一些难以理解的知识点。
刚开始老师先把THT元件发个了我们，要求我们先自己检查元件是否存在问题，刚开始的时候我没有掌握检测元件的要点，拿万用表一顿乱测，根本就测不出到底有没有问题，但是后来通过请教同学以及老师的指点，我总算学会了基本的元件检测，检测完元件为接下来的焊接省了不少时间和心力，我们就可以避免出现因为元件本身的问题而从新焊接。
检测完元件，老师说为了让我们更加了解流水线作业，SMT元件的贴装就采用流水线作业，我负责的就是贴片的11工位，本来我以为会很容易，也没太在意，真正到流水作业到我这里的时候，我那镊子夹住电阻却手抖个不停，但是后来我记起老师说的要要点，沉着下来，经过几次贴装下来就慢慢熟习了，也就不再紧张了，整个工序下来虽然大家都很认真却还是出现许多问题，但是经过后来的补焊，基本上还是算成功了，这一部分完成后，后面的基本就是自己小组成员自己进行组装，我和胡静分别焊了一部分，经过几个小时的努力，我们的板子终于成功的组装好了。
经过这几周的不懈努力，终于的完成了这次的实训任务，看着手边的板子，我感触很多，记得一开始的完全茫然，到后面慢慢的得心应手，我学到很多，在检测中我学会了怎样去熟练的检测基本元件，在THT贴装中我学到了团队意识，在焊接中我学会了细心更重要的是，在组装FPGA板的过程中，我熟悉了板子的原理图，相信在学习EDA技术中会起到很大的作用，与此同时，我也了解到我还有许多东西需要去学习，需要更严格的要求自己对专业知识的学习。
vb实验报告实验总结
vb实验报告实验总结
VB实验报告实验总结
在本次VB实验中，我们主要学习了Visual Basic编程语言的基本语法和应用。
通过实验，我们深入了解了VB的各种功能和特性，并且掌握了如何利用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各分数段的人数，生成一个各分数段的柱状图。
VB实验报告材料(含问题详解)
Else
Text4.Text = a / b
End If
End Select
End Sub
2.模拟简易计算器Command2命令的单击事件的程序代码是什么？
Private Sub Command1_Click()
Dim a!, b!
Dim c As String
a = Val(Text1.Text)
List1.AddItem a(i)
Next i
End Sub
3．单击命令按钮，在文本框中显示结果信息，则程序代码是什么？
Private Sub Command1_Click()
Dim i As Integer, max%, min%, avg!
max = a(1)
min = a(1)
avg = 0
End If
End Sub
实验四循环程序设计
一．实验目的：
1．理解循环程序设计的特点。
2．掌握常用的循环语句。
3．掌握常用的循环算法。
4．掌握图片框、图像框和计时器。
二．实验内容：
1．求
2．设计一条滚动的广告字幕。
三．实验结果：对象属性设置
1．求和结果要求窗体载入时直接显示，设置窗体的某个属性。
对象
b = Val(Text3.Text)
c = Text2.Text
If c =“+”Then
Text4.Text = a + b
ElseIf c =“-”Then
Text4.Text = a - b
ElseIf c =“*”Then
Text4.Text = a * b
ElseIf c =“/”Then
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
软件技术实验报告
学号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弄乱也常有，往往这些由于粗心导致的错误让我在调试程序的时候特别头痛。
所以，不管做什么都要把认真二字放在首要位置。
备注：。