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语言的基本语法和开发环境的使用有了更加深入的了解。
VB程序设计课程实验报告(样本参考一)
计算机与信息学院（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实验报告_VB简单程序设计
Visual Basic程序设计(A)实验报告题目：Visual Basic简单程序设计院（部）：专业：班级：姓名：学号：指导教师：实验目的：1、熟悉Visual Basic 6.0的集成环境及其基本操作。
2、掌握窗体、命令按钮、标签和文体框等基本控件的使用。
3、掌握一个Visual Basic应用程序的组成及创建方法。
4、理解面向对象编程的机制及编码过程。
5、掌握常量和变量的定义及使用方法。
6、掌握各种运算符的优先级及结合性，掌握内部函数的使用。
实验要求：1、上机完成“实验任务”中提供的题目，在操作过程中务必修改以下内容：(1) 窗体标题为设计界面中的内容加下划线加各自姓名，例如：实验任务1中设计界面中标题内容为：“计算底面积、侧面积、体积”，修改后为“计算底面积、侧面积、体积_张三”(2) 窗体的名称命名为form1加下划线加学号，例如：form1_20120212342、将实验中所修改过的控件的属性及属性值以如下列表的形式添加到实验报告中，如：实验任务1中用到的各控件的属性及属性值如下：3、将上机运行后的界面截图添加到实验报告中。
4、将实验中的详细事件过程（即代码窗口的代码）手写到实验报告中。
5、关于文档格式及内容说明：1）封皮；2）每个题目由实验要求中2-4项内容组成，并在前面加相应文字描述，其中2-3项整理完成后，打印，然后将第4项手写至反面或提前留空处。
实验任务：1、在窗体上画一个文本框Text1和两个命令按钮cmdHide、cmdShow，并把两个命令按钮的标题分别设置为“隐藏文本框”和“显示文本框”。
当单击cmdHide时，文本框消失；而当单击cmdShow时，文本框重新出现，并在文本框中显示“VB 程序设计”。
2、程序界面如下图1所示，要求当按“显示内容”时，文本框中出现“Hello,Visual Basic!”的文字，按“清屏”按钮时，文本框中文字消失，按“结束”按钮时，结束程序执行。
vb程序设计实验报告
vb程序设计实验报告VB程序设计实验报告一、引言在计算机科学与技术领域中，程序设计是一项至关重要的技能。
Visual Basic （VB）作为一种强大的编程语言，被广泛应用于软件开发领域。
本实验报告旨在总结和分析我在VB程序设计实验中的学习和实践经验。
二、实验目的本次实验的主要目的是通过设计和实现一个简单的VB程序，加深对VB语言的理解和掌握。
通过这个实验，我将学习如何使用VB语言进行界面设计、事件处理和数据处理。
三、实验过程1. 界面设计在实验开始时，我首先进行了界面设计。
通过VB的可视化设计环境，我选择了合适的控件，布局了用户界面。
我使用了文本框、标签、按钮等控件，使用户能够输入数据并进行相应的操作。
2. 事件处理在界面设计完成后，我开始编写事件处理程序。
我为按钮添加了点击事件，当用户点击按钮时，程序会执行相应的操作。
例如，当用户点击“计算”按钮时，程序会读取用户输入的数据，并进行计算操作。
通过编写事件处理程序，我学会了如何响应用户的操作，并进行相应的逻辑处理。
3. 数据处理在实验中，我还学习了如何进行数据处理。
我使用了VB的变量和运算符，对用户输入的数据进行计算和处理。
通过编写算法和逻辑，我实现了对用户输入数据的验证和处理，确保程序能够正确运行。
四、实验结果经过一段时间的设计和调试，我成功完成了VB程序的实现。
我的程序可以根据用户输入的数据进行相应的计算，并将结果显示在界面上。
通过这个实验，我不仅巩固了VB语言的基础知识，还提高了自己的编程能力。
五、实验总结通过这次VB程序设计实验，我收获了很多。
首先，我学会了如何使用VB语言进行界面设计，掌握了一些常用的控件和布局方法。
其次，我学习了如何编写事件处理程序，响应用户的操作，并进行相应的逻辑处理。
最后，我还学习了如何进行数据处理，使用变量和运算符对数据进行计算和处理。
在实验过程中，我遇到了一些问题和挑战。
例如，我曾经遇到过界面布局不合理导致用户体验不佳的情况，但通过不断的调整和改进，最终解决了这个问题。
vb程序设计实验报告
vb程序设计实验报告VB程序设计实验报告实验目的：通过VB程序设计，掌握基本的程序设计方法和技巧，提高编程能力。
实验内容：本次实验主要是通过VB程序设计，实现一个简单的学生成绩管理系统。
该系统可以实现学生信息的录入、查询、修改和删除功能，同时还能够计算学生的平均成绩并进行排名。
实验步骤：1. 设计界面：首先，我们需要设计一个简洁易用的界面，包括学生信息的录入、查询、修改和删除功能。
通过VB的窗体设计工具，我们可以轻松地实现界面的布局和美化。
2. 编写代码：接下来，我们需要编写VB程序代码，实现学生成绩管理系统的各项功能。
通过VB的编程语言，我们可以实现学生信息的录入、查询、修改和删除功能，以及成绩的计算和排名功能。
3. 调试程序：完成代码编写后，我们需要对程序进行调试，确保程序的各项功能能够正常运行。
通过调试，我们可以及时发现和解决程序中的bug，提高程序的稳定性和可靠性。
4. 测试程序：最后，我们需要对程序进行测试，验证程序的各项功能是否能够满足实际需求。
通过测试，我们可以发现程序中可能存在的问题，并及时进行修复和优化。
实验结果：经过一段时间的努力，我们成功地实现了一个简单的学生成绩管理系统。
该系统能够实现学生信息的录入、查询、修改和删除功能，同时还能够计算学生的平均成绩并进行排名。
通过本次实验，我们不仅掌握了基本的程序设计方法和技巧，还提高了自己的编程能力。
结论：通过本次实验，我们深刻认识到了程序设计的重要性，以及通过VB程序设计可以实现复杂功能的能力。
同时，我们也意识到了编程过程中需要细心和耐心，以及对程序进行不断地调试和测试，才能确保程序的质量和稳定性。
希望通过不断地实践和学习，我们能够不断提高自己的编程能力，为实现更多复杂功能的程序做好准备。
VB程序设计实验报告
中南财经政法大学实验报告
实验课名称：__ _VB程序设计 ___ 学生姓名：__ _ ____张琳___________ 专业班级：__ _信息0904班_____ 学号：__ __
开课时间：2010-2011学年第1学期
教务处制
《VB程序设计》实验报告
实验序号：1 实验项目名称：VB程序设计基础、三种基本结构、输入输出、常用控件和函数
《VB程序设计》实验报告实验序号：2 实验项目名称：用户交互、数组
《VB程序设计》实验报告
实验序号：3 实验项目名称：子过程和函数过程、字符串和日期时间
《VB程序设计》实验报告
实验序号：4 实验项目名称：处理图形、设计用户界面、文件系统、数据库、网络编程、多媒体。
程序设计语言(VB)实验报告
华北科技学院计算机学院综合性实验
实验报告
课程名称程序设计语言（VB）
实验学期 2011 至 2012 学年第 2 学期学生所在系部
年级专业班级
学生姓名学号
任课教师李芙玲
实验成绩
计算机学院制
实验报告须知
1、学生上交实验报告时，必须为打印稿（A4纸）。
页面空间不够，可以顺延。
2、学生应该填写的内容包括：封面相关栏目、实验地点、时间、目的、设备环境、
内容、结果及分析等。
3、教师应该填写的内容包括：实验成绩、教师评价等。
4、教师根据本课程的《综合性实验指导单》中实验内容的要求，评定学生的综合
性实验成绩；要求在该课程期末考试前将实验报告交给任课教师。
综合性实验中，所涉及的程序，文档等在交实验报告前，拷贝给任课教师。
任课教师统一刻录成光盘，与该课程的期末考试成绩一同上交到系里存档。
5、未尽事宜，请参考该课程的实验大纲和教学大纲。
《程序设计语言（VB）》课程综合性实验报告。
资料：VB程序设计报告书
××××设计报告学院机械学院班级机设054 学号050369 姓名杜娟成绩一、设计思路1.要达到的目的正文（宋体5号字，单倍行距）①要求用VB的思想来完成对程序的设计②培养了综合利用VB语言进行程序设计的能力，主要是利用扩展控件进行设计③在读取文件中学生信息和成绩时，对数组的知识进行全方面的考察④在对保存在数组中的信息进行统计时，全方面考察了对VB知识的综合理解⑤考察的简单的VB绘图能力2.关键问题的解决正文（宋体5号字，单倍行距）①在界面中放picture，label，text控件和3个命令按钮command2和command3不可操作②单击“读入数据”读入数据文件中的学生信息，显示读入了多少人的信息，command2可操作③单击“统计”计算出平均分，显示一个统计简表，统计各分数段人数④单击“绘图”绘出分布图。
具体方法见“四，程序清单”⑤×××××二、模块之间的调用关系，或程序流程图三、部分程序关键源代码及注释正文（宋体5号字，单倍行距）定义全局变量Dim math() As Single, computer() As Single, english() As SingleDim names() As String 调用调用调用调用Gamestart模块Singleplayer模块doubleplayers模块Singlehelp模块doublehelp模块Dim average() As IntegerDim agood As Integer, bgood As IntegerDim simple As Integer, pass As Integer, unpass As IntegerDim i As Single, j As SingleDim r As Integer'定义mysub过程Sub mysub(x() As Single, s As Single)s = 0For j = 1 To is = s + x(j)Next js = s / iEnd SubPrivate Sub Command1_Click()Dim e As Integer, j As IntegerReDim names(j) 重定义数组ReDim math(j)ReDim english(j)ReDim computer(j)ReDim average(j)Text1.Text = "读入了" + "j" + "位同学的信息" 显示1Label1.Visible = False 设置控件属性Text1.Visible = TrueCommand2.Enabled = Truee = FreeFile 读入文件Open App.Path & "d:\mouge.txt" For Input As #eFor j = 1 To iIf Not EOF(e) ThenInput #e, names(j), math(j), computer(j), english(j)End IfNext jEnd SubPrivate Sub Command2_Click()Dim mathave As Integer, englishave As IntegerDim computerave As IntegerCommand3.Enabled = TrueFor j = 1 To i 求各生平均分aaverage(j) = (math(j) + english(j) + computer(j)) / 3Next j显示Text1.Text = "姓名" & Space(5) & "数学" & Space(3) & "英语" & Space(4) & "计算机" & Space(3) & "平均分" + vbNewLineText1.Text = Text1.Text + "---------------------------------------------------------------------------------" + vbNewLineFor j = 1 To iText1.Text = Text1.Text + names(j) + Space(3) + Str(math(j)) + Space(3) + Str(computer(j)) + Space(3) + Str(english(j)) + Space(9) + Str(average(j)) + vbNewLine + _"--------------------------------------------------------------------------------------------------------" + vbNewLineNext j'调用mysub过程Call mysub(math(), mathave)Call mysub(english(), englishave)Call mysub(computer(), computerave)Call mysub(average(), average)Text1.Text = Text1.Text + "平均分" + Space(6) + Str(mathave) + Space(6) + Str(englishave) + Space(6) + Str(computerave) + Space(6) + Str(average)'统计各分数段的人数For j = 1 To iIf average(j) >= 90 Thenagood = agood + 1ElseIf average(j) >= 80 Thenbgood = bgoog + 1ElseIf average(j) >= 70 Thensimple = simple + 1ElseIf average(j) >= 60 Thenpass = pass + 1Elseunpass = unpass + 1End IfNextEnd SubPrivate Sub Command3_Click()Text1.Visible = FalsePicture1.Visible = True'定义坐标系Picture1.ScaleLeft = 10Picture1.ScaleTop = 2210Picture1.ScaleWidth = 3790Picture1.ScaleHeight = -2210'绘x , y轴Picture1.DrawWidth = 5Picture1.Line (100, 500)-(3500, 500), RGB(0, 0, 225)Picture1.Line (100, 2000)-(100, 500), RGB(0, 0, 225)'绘制学生成绩分布图r = agood + bgood + simple + pass + unpassPicture1.Line (600, 500)-(600, 500 + unpass / r * 3000), RGB(0, 225, 0) Picture1.Line (1200, 500)-(1200, 500 + pass / r * 3000), RGB(0, 225, 0) Picture1.Line (1800, 500)-(1800, 500 + simple / r * 3000), RGB(0, 225, 0) Picture1.Line (2400, 500)-(2400, 500 + bgood / r * 3000), RGB(0, 225, 0) Picture1.Line (3000, 500)-(3000, 500 + agood / r * 3000), RGB(0, 225, 0) '加入图形注释文字Picture1.CurrentX = 300Picture1.CurrentY = 400Picture1.Print "<60"Picture1.CurrentX = 1000Picture1.CurrentY = 400Picture1.Print "60~69"Picture1.CurrentX = 1600Picture1.CurrentY = 400Picture1.Print "70~79"Picture1.CurrentX = 2200Picture1.CurrentY = 400Picture1.Print "80~89"Picture1.CurrentX = 2800Picture1.CurrentY = 400Picture1.Print ">90"End SubPrivate Sub Form_Activate()'读入文件并统计人数e = FreeFileOpen App.Path & "D:\mouge.txt" For Input As #ej = 0Do While Not EOF(e)Input #e, names(j), math(j), computer(j), english(j)j = j + 1LoopEnd SubPrivate Sub Form_Load()Label1.Caption = "学生成绩统计系统"Label1.FontSize = 30Text1.Visible = FalsePicture1.Visible = FalseCommand2.Enabled = FalseCommand3.Enabled = FalseEnd Sub四、设计方案的完善及目前存在的问题1．设计方案要完善的地方正文（宋体5号字，单倍行距）①可将form1的picture属性变一下，使窗体有背景②可用command2-doubleclick事件使label显示各分段同学姓名并写入语句，如：if average(j)>=80 thenlabel1.caption=names(j)&很好，继续努力elseif average(j)>=60 thenlabel1.caption=names(j)&继续努力elselabel1.caption=names(j)&需要努力③还有好多地方做的很复杂2. 目前存在的问题正文（宋体5号字，单倍行距）①语言运用的不熟练，在编写代码时遇到很多知识点还要重新看书。
VB程序设计报告
软件技术实验报告班级学号姓名第二次实验：典型辅助控件的应用实验内容：1）实验中要求采用两个外部控件即Toolbar和ImageList,这两个控件都是ActiveX控件，都在VB中携带的“Microsoft Windows Common Control 6.0”控件组中，需要在“工程”下拉菜单中找到“部件”并单击它，随后在弹出的控件目录中点选“Microsoft Windows Common Control 6.0”，使之“应用”并“确定”，这样，该组控件便被全部添加到了工具箱中。
利用该控件制作趣味调色板和弹出式菜单，使之能在form1中操作。
2）准备好要用于窗体的素材（老师已发），例如图片和若干小图标。
然后分别点击工具箱中的Toolbar和ImageList,控件并将这两个控件画到窗体上。
3）向 ImageList 控件中置入合适的图象，即把未来要用于界面中按钮上的小图标预先置入ImageList 控件，具体做法：①用鼠标右键单击 ImageList 控件，然后单击“属性”以打开“属性页”对话框。
②在“通用”选项卡中点选图标预设大小，然后单击“图像”选项卡；③填入索引号1，然后单击“插入图片”按钮，在随后弹出的选择图片对话框中找到希望出现在 Toolbar 控件中的图象。
重复该操作（每次重复，索引号加1）直到得到了所需的所有图象后，单击“确定”按钮。
4）将 ImageList 控件与Toolbar控件相关联。
5）向 Toolbar 控件中添加按钮。
6）打开菜单编辑器，可在VB的顶行菜单下面的工具栏点击快捷按钮或在顶行菜单中找到“工具”菜单并下拉选择单击“菜单编辑器”，然后逐一填写标题框中的标题（即你希望出现在顶行菜单中的标题文字和名称框中的名称（即你将要在程序中使用的有关于该菜单操作时的英文标识符），注意，最左边一列菜单项即为顶行菜单显示项，如果需要生成下拉，则每级级联都向右缩进一格。
7）最后，选择你喜欢的界面图片设置为该窗体的picture属性即可。
VB实验报告A
VB实验报告——实验A何垚淼法学1102班U2011166742.一个了解Form1窗体的小程序1)建立界面和设置属性启动程序，新建项目设置属性如下：关键字改变值Text 窗体Backcolor 自定义选择font 字体：宋体字形：粗体大小：小四size 450,3002）添加代码双击窗体，打开代码窗口输入以下代码Private sub form_click(byval sender as object,byval e as system.enventargs)handles me.click Msgbox("欢迎您使用!")End sub3）保存退出3.一个了解常用控件，巩固学习知识的小程序1）建立界面和设置属性启动程序，新建项目建立三个label控件，一个textbox控件以及一个button控件，分别置于合适位置设置属性如下：控件名属性Label1 Text="学习使用“”；font:隶书，二号Label2 Text="请输入你的专业"；font:楷书，有下划线，三号Textbox1 Text="",font:开题，三号Button1 Text=“你输入的专业是”;font:楷体，三号Label3 Text="";autosize=false;borderstyle=fixed3d;font：楷体，三号2）添加代码双击窗体，打开代码窗口输入以下代码Private sub button1_click(byval sender as system.object,byval e as system.eventargs)handles Label3.text=textbox1.textEnd sub3）保存退出4.动手模仿做一做1）建立界面和设置属性启动程序，新建项目建立5个label控件，一个picterebox控件和一个timer控件设置属性参考程序设计教程P266表A.32）添加代码双击窗体，打开代码窗口输入以下代码Public class form1Dim x as integer,y as integer,k as integerDim flag as boolean=truePrivate sub form1_load(byval sender as system.object,byval e as system.eventargs)handles mybase.loadX=150:y=150Label5.location=new point(x-70,y+150)Picturebox1.location=new point(x,y)Label5.autosize=tureTimer1.interval=10Timer1.enabled=trueEnd subPrivate sub timer1_tick(byval sender as system.object,byval e as system.eventargs)handles timer1.tickLabel4.text=label5.left()If flag=true thenY-=1Label5.location=new point(x-70,y+150)Picturebox1.location=new point(x,y)Label2.text="上"Label5.backcolor=color.blueLabel5.forecolor=color.floralwhiteIf(integer.parse(label5.left)<=0)thenFlag=falseEnd ifElseY+=1Label5.location=new point(x-70,y+150)Picturebox1.location=new point(x,y)Label2.text="下"Label5.backcolor=color.foralwhiteLabel5.forecolor=color.blueIf(integer.parse(label5.left)+integer.parse(label5.width)>=integer.parse(me.width))thenFlag=falseEnd ifEnd ifEnd sub5自己动手做一做1）建立界面和设置属性启动程序，新建项目添加三个个label控件设置属性如下：控件名属性Label1 Text="你单机窗体的次数为"Label2 Text="次"Label3 Text="",autosize=false;borderstyle=fixed3d 2）添加代码双击窗体，打开代码窗口输入以下代码Private sub form1_click(byval sender as object,byval e as system.enventargs)handleslabel1.text=val(label1.text)+1End sub6.一个简单的应用程序设计1）建立界面和设置属性启动程序，新建项目建立两个textbox控件，四个label控件，两个button控件设置属性如下：控件名属性Form1 Text=“乘方运算”Label1 Text="的"Label2 Text="方次"Label3 Text="为"Label4 Text=""Button1 Text="="Button2 Text="判断结果"2）添加代码双击窗体，打开代码窗口输入以下代码Publc class form1Private sub button1_click(byval sender as system.object,byval e as system.eventargs)handles Label4.text=textbox1.text^textbox2.textEnd subPrivate sub button2_click(byval sender as system.object,byval e as system.eventargs)handles button1.clickIf Label4.text=textbox1.text^textbox2.text thenMsgbox("结果正确"，rmation,"提示")End ifElseMsgbox("结果错误"，rmation,"提示")End class。
(完整版)《VB程序设计》实验报告
台州学院《VB程序设计》实验报告实验1.1设计一个程序，程序运行的初始界面如图1-1所示。
当单击“显示”按钮时，在文本框中显示“欢迎使用VB！”（图1-1）；当单击“清除”按钮时，清除文本框内的文本；当单击“退出”按钮时，结束程序运行。
Private Sub Command1_Click() Text1.Text = "欢迎使用VB！"End SubPrivate Sub Command2_Click() Text1.Text = ""End SubPrivate Sub Command3_Click() EndEnd Sub实验1.2 设计一个程序，程序运行的初始界面如图1-3所示，其中“显示”按钮为不可用。
同时要求：（1）当单击“改变文字”按钮时，在左边标签文字内容改为“你好，张三！”，同时“改变文字”按钮变为不可用（图1-4）；（2）当单击“隐藏”按钮时，将左边标签设为不可见，同时“隐藏”按钮变为不可用，“显示”按钮变为可用（图1-5）；（3）当单击“显示”按钮时，重新显示左边标签，同时“隐藏”按钮变为可用，“显示”Private Sub Command1_Click() Label1.Caption = "你好，张三！"Command1.Enabled = False End SubPrivate Sub Command2_Click()Label1.Visible = FalseCommand3.Enabled = TrueCommand2.Enabled = False End SubPrivate Sub Command3_Click() Label1.Visible = TrueCommand2.Enabled = TrueCommand3.Enabled = False End Sub实验2.1 设计一个程序，运行时界面如图2-1所示。
VB程序设计实验报告
1一个富翁试图与陌生人做一笔换钱生意;换钱规则为：陌生人每天给富翁10万元钱;直到满30天为止；而陌生人每天给富翁一分钱;第二天2分;第三天4分;............富翁每天给陌生人的钱是前一天的2倍;直到满一个月..分别显示富翁给陌生人的钱和陌生人给富翁的钱为多少
VB是一种可视化的程序语言..具有基于对象的可视化设计工具;事件驱动的编程机制；提供易于学习易用程序集成开发环境；结构化程序设计语言；强大的网络数据库多媒体功能；完备的联机帮助功能..
本次做的这个实验虽然中间遇到许多困难;但在我的坚持不懈中还是自己独立完成了本次试验;唯一不足的是没有办法把做的实验结果放到本次实验报告中..
2用计算机安排考试日程..期末某专业在周一到周六的六天时间内要考x;y;z三门课;考试顺序为;先考x;再考y;最后考z;规定一天只能考一门;且z课程只能安排在周五或周六考..编写程序安排考试日程;要求列出满足条件的所有方案
五、实验步骤
1private sub form-click
Dim x%; y%; z%; w%
2用计算机安排考试日程..期末某专业在周一到周六的六天时间内要考x;y;z三门课;考试顺序为;先考x;再考y;最后考z;规定一天只能考一门;且z课程只能安排在周五或周六考..编写程序安排考试日程;要求列出满足条件的所有方案..
二实验环境
在宿舍用自己的电脑做出的
三实验目的
1掌握for语句的使用..
2掌握do语句的形式使用..
- 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。