VB程序设计报告a
VB程序设计实验报告
(此文档为word格式，下载后您可任意编辑修改！) 湖北文理学院VB程序设计课程实验报告学院物电学院专业自动化班级 1211学号姓名王亮任课教师王福林1实验一、VB控制结构一、实验目的1.掌握选择语句的使用2.掌握循环语句的使用二、实验内容1、选择语句程序1：创建应用程序。
要求：单击窗体可弹出输入框，任意输入三个数，然后按从小到大的顺序输出到窗体上。
程序2：创建应用程序。
要求：单击窗体可弹出一输入框，任意输入一个正整数，在窗体上显示该整数是否为素数的字样。
2、循环语句程序3：创建应用程序。
要求：单击窗体可显示一个由“*”组成的平行四边形图案。
程序4：创建应用程序，其功能是显示所有的水仙花数。
三、实验记录程序1如下：Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer, t As Integer '定义a,b,c,t为整形变量Cls '清屏a = Val(InputBox("请输入第1个数：")) '给a赋值b = Val(InputBox("请输入第2个数：")) '给b赋值c = Val(InputBox("请输入第3个数：")) '给c赋值If a > b Then t = a: a = b: b = t '如果a>b，把a的值赋给t，b的值赋给a，t的值赋给bIf b > c Then '嵌套，如果b>ct = b: b = c: c = t '把b的值赋给t，b的值赋给c，t的值赋给cIf a > b Then '再次嵌套，如果a>bt = a '把a的值赋给ta =b 'b的值赋给ab = t 't的值赋给bEnd IfEnd IfPrint a; "、"; b; "、"; c '输出 a "、"b;"、"; cEnd SubPrivate Sub Command2_Click()End '退出程序End Sub程序2如下：Private Sub Command1_Click()Dim i As Integer, k As Integer, n As Integer '定义整形变量i,k,n n = Val(InputBox("任意输入一个整数：")) '给n输入值i = 2 'i初始值为2k = Int(n 2) '为整形的二分之一n的值赋给kDo While i <= k '当i小于且等于k If n Mod i = 0 Then '如果n模除i为0 Exit Do '退出循环Elsei = i + 1 '否则i加1End IfLoopIf i > k Then Print n; "是素数" Else Print n; "不是素数" '如果i大于k，输出n的值是素数，否则输出n的值不是素数End SubPrivate Sub Command2_Click()End ' 退出程序End Sub程序3如下：Private Sub Form_Click()Dim m As Integer, n As Integer '定义整形变量m,nCls '清屏PrintFor m = 1 To 6 'm赋初始值为1，当m大于6停止 Print Tab(15 - m); '第15 - m列开始输出For n = 1 To 8 'n赋初始值为1，当n大于6停止 Print "*"; '输出*Next nPrint "" '输出空格Next mEnd Sub程序4如下：Private Sub Command1_Click()Dim i As Integer, m As Integer, n As Integer, k As Integer, sxh As Intege '定义整形变量i,m,n,k,sxkFor i = 100 To 999 'i赋初始值为100，当i大于999，停止循环 m = i \ 100 'i除以100，结果赋给mn = (i Mod 100) \ 10 'i模除100后的值再除以10,最后结果赋给n k = i Mod 10 'i模除10后的值赋给k3sxh = m ^ 3 + n ^ 3 + k ^ 3 'sxh作算术运算If sxh = i Then '如果sxh等于iPrint i, '输出i的值End IfNext iEnd SubPrivate Sub Command2_Click()End '程序结束End Sub四、实验总结实验二、窗体和标准控件一、实验目的1.掌握命令按钮、标签及文本框控件的使用方法2.掌握复选框、单选按钮及框架控件的使用方法3.掌握列表框和组合框控件的使用方法4.掌握滚动条和定时器控件的使用方法二、实验内容1、命令按钮、标签及文本框控件的使用方法程序1：在窗体上建立两个标签、两个文本框和两个命令按钮，运行界面如左图所示。
VB程序设计报告格式要求
VB程序设计报告格式要求（A4纸打印）
A、封皮格式
B、内部
程序设计题目名称（二号黑体居中）
一、设计任务与要求（三号黑体）
详细说明本设计的任务、要求。
（小四号宋体）
二、总体框图（三号黑体）
给出总体框图，说明软件实现的功能、设计思路。
可以截软件运行的主要窗体截图（小四号宋体）
三、功能描述（三号黑体）（没有详细说明要酌情扣分）
用程序流程图说明软件程序中的各个模块功能及运行步骤和条件。
（小四号宋体）
四、模块设计（三号黑体）（没有详细说明要酌情扣分）
1、在说明每个功能模块时需说明使用的控件，贴界面图并说明实现功能。
2、附每一模块的界面截图，和重要程序片段。
五、设计过程中遇到的问题及解决方法（三号黑体）
六、心得体会（三号黑体）。
VB程序设计课程设计报告
"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程序设计课程设计报告完整版
VB程序设计课程设计报告完整版VB程序设计课程设计报告摘要：本课程设计报告旨在介绍一个完整的VB程序设计项目，该项目主要以某个实际问题为背景，通过使用VB编程语言进行设计和实现。
报告主要包括需求分析、设计方法、编程实现、测试和总结等内容。
一、引言VB（Visual Basic）是一种面向对象的事件驱动编程语言，它广泛用于Windows操作系统平台上的软件开发。
VB具有简单易学、强大的功能和丰富的开发工具，被广大开发者用于各种程序设计领域。
本课程设计旨在通过一个实际问题，让学生掌握VB程序设计的基本方法和技巧。
项目要求学生设计一个小型图书管理系统，实现对图书的添加、查询、借阅和归还等功能。
二、需求分析1. 功能需求：a) 添加图书：包括图书名称、作者、出版社等信息。
b) 查询图书：根据图书名称或作者查询图书信息。
c) 借阅图书：借阅图书并更新库存信息。
d) 归还图书：归还已借阅的图书并更新库存信息。
2. 数据需求：a) 图书信息：包括图书名称、作者、出版社、ISBN号码和库存数量等。
b) 借阅信息：包括图书名称、借阅人、借阅日期和归还日期等。
3. 用户界面需求：a) 主界面：显示各种操作选项。
b) 添加图书界面：用于输入图书信息。
c) 查询图书界面：用于输入查询条件并显示查询结果。
d) 借阅图书界面：显示已借阅图书信息并提供借阅操作。
e) 归还图书界面：显示已借阅图书信息并提供归还操作。
三、设计方法1. 模块划分：根据功能需求将程序划分为若干模块，包括主模块、添加图书模块、查询图书模块、借阅图书模块和归还图书模块等。
2. 数据结构设计：使用适当的数据结构存储图书和借阅信息。
3. 界面设计：根据用户界面需求，设计相应的窗体，并在窗体上放置控件，实现各种操作功能。
4. 事件处理：根据用户的操作，编写相应的事件处理程序，实现各种功能。
四、编程实现1. 程序架构：使用VB的Windows Forms应用程序模板创建项目，并按照模块划分设计程序结构。
vb程序实验报告
vb程序实验报告VB 程序实验报告一、实验目的通过本次实验，深入了解和掌握 Visual Basic（VB）程序设计的基本概念、语法和编程技巧，提高解决实际问题的能力，培养逻辑思维和创新能力。
二、实验环境操作系统：Windows 10开发工具：Microsoft Visual Basic 60三、实验内容本次实验主要包括以下几个方面的内容：1、界面设计使用 VB 的窗体设计器，创建一个简单的用户界面，包含文本框、按钮、标签等控件，并设置其属性，如字体、颜色、大小等，以实现美观和友好的用户交互。
2、变量与数据类型在程序中声明不同类型的变量，如整数型（Integer）、字符串型（String）、布尔型（Boolean）等，并进行赋值和运算操作，理解不同数据类型的特点和适用场景。
3、控制结构运用顺序结构、选择结构（IfThenElse、Select Case）和循环结构（ForNext、WhileWend）编写程序，实现条件判断和重复执行的功能，例如计算阶乘、判断素数、打印九九乘法表等。
4、数组与过程定义数组来存储和处理大量的数据，掌握数组的声明、初始化和遍历操作。
同时，学习使用过程（Sub 过程和 Function 过程）来封装可重复使用的代码块，提高程序的可读性和可维护性。
5、文件操作实现对文本文件的读写操作，包括创建文件、写入数据、读取数据和关闭文件，了解文件处理在实际应用中的重要性。
四、实验步骤1、界面设计（1）打开 Microsoft Visual Basic 60，新建一个标准 EXE 工程。
（2）在窗体上添加所需的控件，如文本框 Text1、Text2，命令按钮 Command1、Command2，标签 Label1 等。
（3）通过属性窗口设置各个控件的属性，如 Text1 的 Text 属性为空，Command1 的 Caption 属性为“计算”，Label1 的 Caption 属性为“结果：”等。
VB程序设计实验报告
《VB程序设计》实验单元二实验报告专业班级：新闻班姓名：学号：指导教师：完成时间：一、实验题目数组和自定义类型二、实验环境Visual 程序软件三、实验目的1.掌握数组的声明、数组元素的引用。
2.掌握固定长度数组和动态数组的使用差别。
3.掌握数组常用的操作和常用算法。
4.掌握列表框和组合框的使用。
5.掌握自定义类型及数组的使用。
四、实验内容1.随机产生30—100（包括30、100）的10个正整数，求最大值、最小值、平均值，并显示整个数组的只和结果。
2.随机产生20个学生成绩，统计各分数段人数。
即0~59、60~69、70~79、80~89、90~100，并显示结果。
五、实验步骤1.打开VB界面，建立工程2.在窗体窗口设置界面3.属性窗口控件对象属性设置4.编写程序代码5.运行程序及调试6.程序建立，保存工程文件六、实验结果第1题：第2题：七、实验体会编程虽然有些复杂，但是在一步步的学习探索中我也找到了其中的乐趣，看着自己一点点地在进步，真的很兴奋很激动。
2.在这次实验课题中，我在学习、参考书中的案例的同时，还上网查询了一些小的课外知识，例如：如何改变Print之后的字体颜色、字号、位置等并加以尝试、应用。
在我实验成功时，内心真的是抑制不住地开心。
3.当然，实验的过程，并不是一帆风顺的，然而，只要静下心来，仔细思考，问题总能解决的。
“世上无难事，只怕有心人”，在今后的学习中，我也要敢于面对困难、着力解决，把困难看成挑战，努力超越自我。
4.数组很奇妙，我想更进一步地了解它、用VB使用它，掌握常用的操作和算法。
VB程序设计实训报告
《VB程序设计》实训报告实训名称：教学信息管理系统实训专业：计算机应用技术班级：计算机10A1学号：*********姓名：陈健指导教师：***2011 年6月18 日实训成绩一、实训目的1. 学会综合运用VB有关的控件、函数和对象的知识，掌握VB的程序设计方法和技术。
2.通过一个教学信息管理系统的开发，掌握VB与ACCESS数据库的综合编程方法。
3. 掌握ACCESS数据库的设计；数据库的连接；绑定控件的属性设置、ADO数据控件的属性和方法；功能模块的编程和实现方法。
4.提高学生分析和解决实际问题的能力，调试和分析应用程序的能力，达到一定的应用程序设计水平。
二、实训报告内容2.1实训内容：教学信息管理系统采用C/S体系结构，采用Visual Basic 6.0作为开发工具，采用ACCESS数据库作为后台管理。
1.根据需求分析，创建ACCESS数据库和数据表2.主窗体和系统菜单设计3.用户管理，用户登录界面设计4.学生信息管理模块设计5.课程管理、班级管理、教师管理模块设计6.学生成绩管理模块设计根据实训项目各个模块任务要求，进行程序设计和调试。
实现信息的录入、编辑修改、删除、浏览功能，能实现信息的一般查询功能和条件查询功能，并进行系统总体整合和调试。
2.2 实训设备或软、硬件1. PC计算机，Windows XP操作系统2.Visual Basic 6.0集成开发环境3.ACCESS 2003数据库系统三、结论经过近两周的实训，我发现我对《VＢ程序设计》这门课有了更深的了解，以下是我对这次实训所做的总结：这次实训做的是“教学信息管理系统”，需要掌握ＶＢ与ＡＣＣＥＳＳ数据库的综合编程方法，所以首先要熟练掌握ＡＣＣＥＳＳ数据库的创建。
实训第一天，我首先了解了这次实训的目的及意义；然后便是完成当天的主要任务，即根据“教学信息管理系统”中的需求分析，创建ＡＣＣＥＳＳ数据库及数据表。
结合实际，需要在数据库中创建学生信息表、课程信息表、学生成绩表、班级信息表、教师信息表、教学安排表、用户表、创建查询等八个数据表。
VB实验报告一2024
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语言的基本语法和开发环境的使用有了更加深入的了解。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB程序设计报告姓名：阮玮娜学号：020******* 设计题：3.诗词欣赏电子书（一）程序简介窗体出现后单击打开命令按钮时出现打开对话框，在目录文件中选择作者并按“确定”键。
目录列表框中会出现诗词目录，从列表框中选择要欣赏的诗词则两个文本框中会出现相应的内容和注释与题解。
当单击向上（或向下）按钮时列表框中条目会上移（或下移）一个条目，同时两个文本框也会进行相应的变化。
在此程序中我所新增功能是：当诗词条目处在第一个（或最后一个）时，单击向上（或向下）按钮时列表框中条目会自动循环到最后一个（或第一个）条目，同时两个文本框也会进行相应的变化。
（二）程序用到的主要控件：窗体(form)，文本框（textbox）,标签(label)、框架(frame)、列表框(listbox)、命令按钮(commandbutton)（三）程序用到的主要控件，属性，过程：1．列表框的应用：用以显示打开的诗词名，其中style属性设为02．文本框的应用：用以显示与“*.cnt”相对应的“*.txt”文件，其中multiline属性设为true, scrollbars属性设为2（四）程序的调试和要困难的解决方法：在程序的编译及调试过程中遇到的最大困难既是如何利用源文件中的*号进行诗词的标示及读写。
由于三个诗词文件中并非都是以单个*为一行，不同的样式其判断语句也有相应的变化。
最终的编成语句如程序代码所示。
另一个问题是单击右移命令按钮时所激发的Click事件中若直接使用List1.ListIndex属性值进行条目相加时运行出错，解决方法是定义一个整型过程级变量int1作为中间量先将List1.ListIndex属性值赋给int1，在对int1进行加减判断后再将int1值赋给List1.ListIndex从而又一次激发列表框的Click事件（五）经验心得：在进行课程设计时首先要对各个控件的常用属性有初步了解及一些属性值的应用条件。
其次在编写程序代码时应细心书写，每一个语句的微小错误都有可能使程序无法正常运行而出错。
在进行VB程序设计的前期，我因为对某些控件的各个属性不很熟悉，只能每每参照教科书，但通过书以及同学老师的帮助，像诗词欣赏电子书这样比较简单的程序设计，使我从中受益非浅，开阔了程序设计的思路，完备了VB的知识体系，并培养了自己不断探索的劲头，而且渐渐对VB产生了兴趣。
（六）附件本题所有的程序代码及注释如下：Public strName As String '公共变量strName用于记录文件路径Private Sub CmdUpM_Click()If List1.Text = "" Then Exit Sub '若List1.Text为空字符则退出Text1.Text = "" '将两文本框设为空字符Text2.Text = ""List1.ListIndex = List1.ListIndex - 1 '选种条目号减一If List1.ListIndex < 0 Then List1.ListIndex = List1.ListCount - 1'条目处于第一个时循坏到最后一个End SubPrivate Sub CmdDownM_Click()Dim int1 As Integer '中间变量Text1.Text = "" '将两文本框设为空字符Text2.Text = ""If List1.Text = "" Then Exit Sub '若List1.Text为空字符则退出int1 = List1.ListIndex '赋值int1 = int1 + 1 '变量加一If int1 > List1.ListCount - 1 Then int1 = 0'条目处于最后一个时循坏到第一个List1.ListIndex = int1 '再赋值给List1.ListIndex激发List1_Click事件End SubPrivate Sub CmdOpen_Click()Dim strL As String '用于读取目录CommonDialog1.Filter = "目录文件(*.cnt)|*.cnt" '设定文件类型CommonDialog1.ShowOpen '显示对话框If CommonDialog1.FileName = "" Then Exit Sub '若按取消键则退出List1.Clear '列表框清空Text1.Text = "" '将两文本框设为空字符Text2.Text = ""Form1.Caption=Mid(CommonDialog1.FileName,1,Len(CommonDialog1.FileName) - 4)'使用Mid()函数改变窗体名称strName = Mid(CommonDialog1.FileName, 1, Len(CommonDialog1.FileName) - 3) + "txt" '使用Mid()函数将cnt文件改变为txt文件并作为字符串赋给strNameOpen CommonDialog1.FileName For Input As #1 '打开目录文件Do While Not EOF(1) '读写条目Line Input #1, strLList1.AddItem strLLoopClose #1 '关闭文件 1List1.ListIndex = 0 '开始时选中条目一激发Click事件End SubPrivate Sub List1_Click()Dim bln1 As Boolean '由于判断两种 *无注释* 语句Dim str1 As String '用于读文件Dim str2 As String '用于读"*【注释】"语句时将【注释】读出而不带*Dim i As Integer '用于记录*号数Text1.Text = "" '将两文本框设为空字符Text2.Text = ""Open strName For Input As #2 '读文本文件Do While Not EOF(2) '读写内容及注释Line Input #2, str1'下面 If 语句用于记录*号数If str1 = "*" Then ' * 单独一行i = i + 1ElseIf str1 = "*【注释】" Then '*【注释】样式i = i + 1ElseIf str1 = "*（无注释）*" Or str1 = "*(无注释) *" Then '*（无注释）* 样式 bln1 = Truei = i + 2End If'下面If 语句用来写文件If i = List1.ListIndex * 2 + 1 Then '每一诗词开始前的 * 号数If str1 = "*" Or str1 = "*(无注释) *" Or str1 = "*（无注释）*" ThenText1.Text = "" '开始读诗时将Text1.Text清空ElseText1.Text = Text1.Text + str1 + Chr(13) + Chr(10)'向Text1中增加诗词内容每加一句使用Chr()函数换行 End IfElseIf i = List1.ListIndex * 2 + 2 And str1 = "*【注释】" Then ' *【注释】样式 str2 = Mid(str1, 2, Len(str1) - 1) '将【注释】读出而不带*Text2.Text = Text2.Text + str2 + Chr(13) + Chr(10)'向Text2中增加文本内容 "【注释】"ElseIf i = List1.ListIndex * 2 + 2 And str1 <> "*【注释】" Then ' *【注释】样式 Text2.Text = Text2.Text + str1 + Chr(13) + Chr(10)'向Text2中增加 *【注释】行之后的语句ElseIf bln1 Then '开始对两种 *无注释* 语句进行判断If i = List1.ListIndex * 2 + 3 And str1 = "*（无注释）*" Then ' *（无注释）* 样式 Text2.Text = Mid(str1, 2, Len(str1) - 2)ElseIf i = List1.ListIndex * 2 + 3 And str1 = "*(无注释) *" Then ' *(无注释)* 样式Text2.Text = Mid(str1, 2, Len(str1) - 2)End IfEnd IfLoopClose #2 '关闭文件 2End Sub。