VB程序设计课程设计报告
班级：
姓名：
学号：
指导老师：
目录
1.课设的目的 (3)
2.功能介绍 (4)
3.界面设计…………………………………………………..
4.系统功能实施…………………………………………….
5.系统界面实现代码……………………………………….
6.系统不足………………………………………………….
7.总结与体会……………………………...............................
背景：
随着学校规模的不断扩大，学生数量急剧增加，有关学生的各科成绩信息量也成倍增长。面对庞大的成绩信息，需要学生管理系统来提高学生管理工作的效率。通过这样的系统可以做到成绩的规范管理、科学统计和快速查询、修改、增加、删除等，从而减少管理方面的工作量。
本系统主要用于学生成绩管理，总体任务是实现学生成绩信息的系统化、规范化和自动化。其主要任务是用计算机对学生各科成绩进行管理，如修改、增加、删除、统计总分，另外还考虑到学生名次的排序、统计、分析等，针对这些要求设计了学生成绩管理系统。
其功能主要有：1)有关学生信息的输入，包括输入学生所在班级、学号、姓名、各科成绩等 2)学生信息的修改及保存 3)学生成绩的查询，包括：按姓名查询，按班级查询等4）学生成绩的排名5）生成学生成绩的统计直方图 6）系统自动查询优等生等。
一：课设的目的
1.通过本次课程设计，提高实践动手能力；
2.通过本次课程设计，进一步理解计算机程序设计的思路与方法；
3.通过本次课程设计，进一步熟练运用VB的语言元素和流程控制
语句；
4.通过本次课程设计，达到能熟练使用各种常见的VB控件，理解
面向对象的思想；
5.通过本次课程设计，熟悉用户界面的设计；
6.通过本次课程设计，熟悉数据访问控件ADO及相关对象的使用，
能基于ADO控件实现Access的数据访问与操纵；
二：功能介绍
1.下面的界面为用户登录界面
用户名和密码以及登录身份均已设定，登录身份有三种：管理者、教师与学生。三者对应的账号与密码分别为“glz”和“111”，“js”和“222”，“xs”和“333”。只有三项分别对应输入正确，然后点击“登陆“按钮才能进入主界面。如果用户名或密码三次输入错误，则系统自动退出。当你点击“退出“按钮时，弹出一个对话窗，界面如下：
在对话框上点击“是”按钮，则退出系统，如果点击“否”或者“取消”，则该界面不变。2.当用户名和密码均输入正确，点击“登陆”按钮，进入主界面——“学生成绩管理系统”界面，该界面是其他子界面的入口，且该界面应用了菜单编辑框，节省了大量空间，界面如下：
2.进入主界面后，点击“学生管理（添加\删除\修改\保存\返回主窗体\统计总分）”，
进入学生管理界面，界面如下：
该界面上有一个ADO控件，用于连接数据库，当用户在六个文本框中输入数据时，点击第七个文本框可以计算学生成绩总分；点击“添加“按钮，可以将数据录入到数据库中；如果此时点击”删除“按钮，则刚才输入的数据就会被删除；点击”保存“按钮时，输入的数据就会
自动保存在数据库里；点击”返回主窗体“按钮，该窗体消失，主窗体出现。
3. 在主界面点击“按各科成绩查询“按钮，出现如下界面：
该界面有一个ADO控件，用来连接数据库，还有一个DataGrid控件，用来显示学生成绩的查询结果，当用户选择了要查询的科目和条件后，点击“查询“按钮，在DataGrid控件上就会显示出所查询的结果。下面为输入条件后查询的结果——
该界面有一个ADO控件，用来连接数据库，还有一个DataGrid控件，用来显示学生成绩的查询结果，当用户选择了要查询的科目和条件后，点击“查询“按钮，在DataGrid控件上就会显示出所查询的结果。下面为输入条件后查询的结果——
4.在主界面点击“姓名查询“按钮，出现如下界面：
DataGrid控件上显示所要查询的结果。下面为输入条件后查询的结果——
5.在主界面点击“班级查询“按钮，出现如下界面：
DataGrid控件上显示所要查询的结果。下面为输入条件后查询的结果——
6.在主界面上点击“各科成绩段查询“按钮后，会出现如下界面：
点击“计算各科分数段统计“按钮后，就会出现所要查询的结果。下面为查询的结果——
7、在主界面点击“排名“按钮后，出现如下界面：
在该界面上点击“排名“按钮后，在DataGrid控件上会显示出按成绩高低排名的结果，点击”清除排名“按钮后，刚才结果消失，显示原来结果。下面为所实现的结果——
8、在主界面点击“统计直方图“按钮后，出现如下界面：
在该界面点击各个按钮后，就会出现与之相关科目的成绩统计直方图，下面为查询的结果
9、在主界面点击“优等生“按钮后，出现如下界面：
点击按钮“查询优等生”后，结果就会在界面上显示出来。下面为所查询的结果——
三：界面设计
四：系统功能的实施
1.加载ADO 控件，DataGrid 控件，MSChart 控件
添加到窗体上即可
2.建立学生成绩信息表 ①
点击 部件
②
先将新建表保存在工程所在文件夹中，并命名③
在左边空白处点击右键，选择新建表
④为表命名
通过点击“添加字段”在字段列表中添加改工程期望的字段，例如：学号，integer ； 姓名，text ，8...完成之后，点击close--生成表。 ⑤ 在表中加入具体信息双击表名（如下student ）出现如下界面，添加所需信息更新即可
保存完毕之后，直接点击“close ”，关掉界面即可
如果表中信息出现错误，或者表中信息需要得到更改，步骤如下： 外界程序 可视化数据管理器 右击表名 设计 3.各个界面的ADO 控件如何连接数据库（以班级查询为例）
①点击adodc1属性框”ConnectionString ” 出现如下界面：
上海立信会计学院本科实验报告 班级： 学号： 姓名： 指导教师： 系部： 专业： 实验时间： 实验3 选择结构 一、 实验目的 1． 掌握单分支、双分支和多分支条件语句的使用 2． 掌握情况语句的使用及其与多分支条件语句之间的区别。 二、实验要求 1． 在C:\下建立子文件夹“VB 实验3”，按照题目要求，在该文件夹下为各题保存相应的文件，如本实验中的第一题，需保存的文件有：工程文件、窗体文件 及可执行文件（），本实验中的第二题，需保存的文件有：工程文件、窗体文件 及可执行文件（），其余实验依此类推。 2． 撰写实验过程中出现了哪些问题、错误，你是如何解决的，做一个小结。 三、 实验内容： 1. 编一程序输入上网的时间并计算上网费用，计算的方法如下： 费用= 50250~102.51030?? ???>≤>≤小时上网时间元，每小时小时上网时间元，每小时小时上网时间元，基数 同时为了鼓励多上网，采用累进计费制，但每月收费最多不超过150元。上网时间在文本框中输入；上网费用在标签中输出，所有控件字体默认、大小为小四。要求使用多分支结构（IF THEN ELSEIF ）编写，效果如图3-1所示。
图3-1 Option Explicit Private Sub Command1_Click() Dim s!, sum! s = Val If s <= 0 Then MsgBox "上网时间不能为负数和零", , "输入错误" Text1 = "" Else If s <= 10 Then sum = 30 ElseIf s > 10 And s <= 50 Then sum = 30 + (s - 10) * ElseIf s > 50 And s <= 60 Then sum = 130 + (s - 50) * 2 Else sum = 150
《VB程序设计》实验单元二 实验报告 专业班级：新闻班姓名: ________________ 学号：—指导教师：完成时间：2013.5 一、实验题目 数组和自定义类型 二、实验环境 Visual Basic6.0 程序软件 三、实验目的 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题：
70 53 57 28 30 77 1 76 81 70最大值81 最小值1 平均值54.3 4 41 86 79 37 96 87 5 94 36 最大值96 最小值4 平均值56.5 52 76 5 59 46 29 62 64 26 27 :最大值76 最小值5 平均值44.6 82 82 58 98 91 22 69 98 24 53最大值98 最小值22 平均值67.7 10 99 67 1 57 10 10 79 28 4 最大值99 最小值1 平均值36. 5 29 38 30 94 97 40 27 16 16 64实验 r Q Forml 回
沈阳航空航天大学 课程设计任务书 学院：机电工程学院专业：机械设计制造及其自动化班级：94060106 学号：2009040601204 题目：简单的汽车站售票系统 一、课程设计时间 2011年3月14日~20日（第二周），共计一周。 二、课程设计内容 假设每天“沈阳→植物园”有4个班次的汽车，具体的数据如下： 班次发车时间载客量已售票数 1 06:40 50 0 2 09:30 40 0 3 13:00 40 0 4 16:00 40 0 数据保存在文本文件或Access数据库中，请你为售票员开发一个程序，实现每天的“沈阳→植物园”的售票、退票等业务。要求：售票时按旅客要求选择班次，如果某个班次已过了发车时间，则该班次今天不再售票，如果某个班次的票已售完，则也不能再售票。 用户界面中的菜单至少应包括“售票”、“退票”、“显示当前售票情况”、“退出”4项。 三、课程设计要求 程序质量： ?贯彻事件驱动的程序设计思想。 ?用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。 ?代码应适当缩进，并给出必要的注释，以增强程序的可读性。 课程设计说明书： ?课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字 指导教师：________ 学生签名：________ 五、成绩 六、教师评语
目录 需求分析 (4) 设计分析 (4) 技术要点 (6) 主要界面截图 (7) 总结 (9) 完整的源程序 (10) 参考文献 (15)
需求分析 介于乘客买票十分麻烦，需要开发一套自动的售票系统，实现乘客自主的买票，退票，查询，为乘客创造方便。 设计分析 （1）概述： 本次设计涉及到数据库系统，SQL查询语言，ADO数据控件技术，实现了用户买票，退票，售票查询等功能，并且在售票界面，根据时间判断车次是否已经发车，且在查询系统中可以显示售票情况。 （2）总体设计： 汽车站售票系统应该有一个主界面，在主界面下，应该有售票界面，退票界面和查询界面。 （3）详细设计：
实验教材实验一 1：单项选择题： A A C C C D C B B C 2：填空题： （1）.bas （2）.vbp，.frm （3）视图工具箱 （4）对象 （5）属性对象事件方法 （6）Windows （7）事件行为 （8）窗体模块 实验二 1：单项选择题： A D C C A B A B D C B B C B C B A B D C 2：基本运算题： （1）27 （2）3.33333333333333 （3）3 （4）0 （5）-3 （6）2 （7）ab33 （8）类型不匹配 （9）3 （10）AB3 实验三 1：单项选择题： B C B D C 2：填空题： （1）300 （2）321456 （3）Shanghai （4）6 7 6 （5）True （6）2+3=5 （7）”area=” 12.56 （8）VISUAL 实验四 1：单项选择题： C A A C A 2：填空题： （1）7 （2）3 5
（3）输入的数小于0 （4）3 （5）False （6）2010 is not leap year. 试验五 1：单项选择题： A C C A B A C C C B 2：填空题： （1）9 （2）①n ②1 （3）①Len(a) ②n\2 ③Mid(a,(n-i+1),1) ④Mid(a,(n-i+1),1) （4）①n Mod 3=1 And n Mod 5=1 And n Mod 7=1 ②While CountN<5 （5）Mid(c1,1,i) 实验六 1：单项选择题： D B D C D A C A D D 2：填空题： （1）30 （2）3 （3）①a(2) ②a(3) ③a(1) （4）①1 ②2 ③a(i)=a(6-i) （5）①i+j ②0 ③a(i,j) （6）①Print ②k ③a(k,j)=a(j,k) ④a(k,j); 实验七 1：单项选择题： A B B A C B 2：填空题： （1）15 （2）①Preserve a(n+1) ②a(i+1)=a(i) ③Exit For ④a(i+1)=m⑤0 to n+1 (或LBound(a) to UBound(a)) （3）d,c,b,a 实验八 1：单项选择题： C A D B D C A C B 2：填空题： （1）a=9 b=4 （2） 36 25 16 9 4 1 （3）①a ②UBound(b) ③
山西财经大学《程序设计（VB+Acces）》实验报告 ＊＊＊＊年＊月＊＊日实验题目1选择结构程序设计 选课课号2015-2016-2-N081002S00-08034- 学院 ＊＊＊＊＊ 学院 班 级 ＊＊＊＊＊＊＊ 姓名＊＊＊ 学 号 ＊＊＊＊＊＊＊＊＊ 理论课教师李平珍 上机指 导教师 李平珍 实验目的及要求： 1．掌握条件表达式和分支语句 2．正确使用If．．．Then．．．Else和If．．．Then．．．ElseIf等语句3．使用选择性控件实现程序应用 编写以下程序段： 求一元二次方程ax2+bx+c=0的根 设计一个四则运算计算器 实验的详细操作步骤、程序代码及运行截图： 一． Private Sub Command1_Click() Dim A As Single, B As Single, C As Single Dim R1 As Single, R2 As Single A = Val B = Val
If B ^ 2 - 4 * A * C < 0 Then MsgBox "该方程无解." ElseIf B ^ 2 - 4 * A * C = 0 Then R1 = -B / 2 / A MsgBox "该方程仅有一个根为" & R1 & "." Else R1 = (-B + Sqr(B ^ 2 - 4 * A * C)) / (2 * A) R2 = (-B - Sqr(B ^ 2 - 4 * A * C)) / (2 * A) MsgBox "该方程有两个根分别为" & R1 & "和" & R2 & "." End If End Sub 二． Private Sub cmdCal-Click() Dim x1 As Single,sign As String,x2 As Single X1=Val(txtA):sign=txtB:x2=Val(txtC)
V B程序设计课程设计 报告 HEN system office room 【HEN16H-HENS2AHENS8Q8-HENH1688】
《VB程序设计》 课程设计报告（2016 — 2017 学年第 1 学期） 题目：排序演示 学院：经济与管理学院 班级：物流管理1502 学号： 姓名： 指导教师：阮冰 时间：起 2017年1月3日止 1月6日
一、课程设计基本信息 课程代码：05190124 课程名称：计算机基础课程设计 课程英文名称: Computer-based Course Design 课程所属单位（院（系）、教研室）：数学与计算机学院计算机基础课程群 课程面向专业：生物科学类、制药工程、制药工程(生物制药)、药物制 剂、物流管理 课程类型：必修课 先修课程：大学计算机基础通识选修课程、Visual Basic程序设计课程学分：1 总学时：16 二、课程设计目标 掌握所学语言程序设计的方法，熟悉所学语言的开发环境及调试过程，熟悉所学语言中的数据类型，数据结构、语句结构、运算方法，巩固和加深对理论课中知识的理解，提高学生对所学知识的综合运用能力。通过综合设计要求达到下列基本技能： 1．培养查阅参考资料、手册的自学能力，通过独立思考深入钻研问题，学会自己分析、解决问题。 2．通过对所选题目方案分析比较，确立方案，编制与调试程序，初步掌握程序设计的方法，能熟练调试程序。 3．系统设计编程简练，可用，功能全面，并有一定的容错能力。用户界面良好，有较好的输出功能。在完成课题基本要求后，具有创新型设计，具有一定的实用价值。 4．根据个人的设计调试过程，撰写设计报告。 三、课程设计内容 利用已掌握的VB程序设计语言基础，以及面向对象的程序设计方法、事件驱动的编程方式，进行应用程序和系统的开发设计。在强化巩固已有编程知识基础之上，训练新的设计与编程思路，通过综合应用所学知识设计、编制、调试实用的Visual Basic程序。 四、课程设计要求 1.要求每个同学都要认真对待，积极参与。 2.课程设计结束时，提交完成的所有源程序、相关文件和可执行文件。同 时填写并完成《课程设计报告册》。 3.不符合要求的程序、设计报告、抄袭的设计报告或源程序代码、在设计 中完全未参与的将作不及格处理。 五、考核方式
南京工程学院 课程设计说明书（论文）题目打字练习 课程名称VB语言课程设计 院(系、部、中心) 专业 班级 学生姓名 学号 设计地点图书馆基础教学机房 指导教师 设计起止时间：201x年x月x日至201x年x月x日 目录
一、设计任务 (3) 二、方法原理 (3) 三、总体设计思路 (3) 四、程序调试和解决问题 (4) 五、完善及存在的问题 (4) 六、收获体会 (4) 七、意见建议 (4) 八、示例截图 (5) 九、附录1（代码） (6) 十、附录2（主要参考资料） (10) 一、设计任务 1.题目介绍
在计算机及其他数码产品日益普及的今天，人们使用键盘应像用笔写字一样熟练。进行打字练习时熟悉键盘并提高打字速度的好方法。本体要求编制一个打字练习游戏程序，使用户在游戏过程中进行打字练习。 2.功能要求 （1）启动界面如图1 （2）选择难度和速度后，单击“开始”按钮，界面如图1。若选择简单，则落下字母；若选择复杂，单击开始后出现对话框，如图 2.单击确定，开始练习，落下单词。 （2）若用户在字符落到屏幕底部之前敲击了相应的键盘键，则该字符被“击中”然后消失。根据程序速度和难度的设置自动进行积分，实时分数时间正确率掉落个数显示在窗体的上部。 积分规则：正确击中一个字母或一个单词，加一分；反之，不得分，亦不扣分。（4）当游戏者单击“暂停”按钮时，程序停止运行，在单击“开始”按钮，程序继续运行；当单击“退出”按钮时，则弹出对话框（如截图示例3），单击“取消”按钮，程序继续运行，单击“确定”按钮，则弹出对话框（如截图4），此时对话框显示分数，单击“确定”按钮，退出程序。 （5）为了增加视觉效果，每个掉落的字符的颜色随机产生。 二、方法原理 根据题目要求，使用控件数组，用标签标题表示字符，键盘事件的处理判断打字正确与否，随机值的产生方法随机产生字符，用Timer控件属性反映时间、控制字符下落速度。 三、总体设计思路 首先在窗体上画出三个按钮标题分别为开始、暂停、退出。画六个标签分别表示已落字母个数、已花时间、得分与正确率。 画出一个含有五个元素的标签控制数组用以显示字符。 画出两个时间控件，一个用来返回已用时间，一个控制字符下落。 最后编写相关代码
实验报告一 课程VB程序设计实验项目Visual Basic环境 顺序选择程序设计(4学时) 成绩 专业班级 姓名学号实验日期 实验目的 （1）熟悉Visual Basic6.0集成开发环境 （2）掌握Visual Basic程序的开发过程，能够运行一个完整的Visual Basic程序（3）掌握选择控制结构（If、Select case）语句实现程序分支 （4）掌握控制结构相关控件（单选按钮、复选框） （5）能综合运用选择及循环控制结构解决较复杂的问题 实验内容 一、VB环境和顺序结构 【实验1】设计一个简单VB程序（10分） 它由一个窗体、一个文本框和3个命令按钮组成。窗体的标题为"Visual Basic 程序设计示例"，当用户单击命令按钮“显示”时，文本框中出现“欢迎使用Visual Basic 6.0”,窗体上显示“你好”，单击命令按钮“清除”时,清除文本框中显示的内容和窗体上的内容，单击命令按钮“结束”时，结束程序。 实验结果： 【实验1 代码】 【实验1 典型结果】 【实验2】编写程序，其功能为输入三角形的三边，求三角形的面积。计算公式为：
S=(a+b+c)/2，面积=sqr(s*(s-a)*(s-b)*(s-c)) （20分） 程序界面如下所示 实验结果： 【实验2 代码】 【实验2 典型结果】 【选做1】单击窗体时，随机产生一个三位正整数，然后逆序输出该数，产生的数与逆序数同时显示，结果如下所示,要求用两种方法实现（使用数字的逆序和字符串的逆序）（15分） 实验结果： 【方法1 代码】 【方法1 典型结果】 【方法2 代码】 【方法2 典型结果】
[心得体会]vb程序设计实验心得4篇数据库课程设计大赛的尘嚣渐渐远去，怀着对这次大赛的些许不舍，怀着对当初课程设计开始时候的豪情万丈的决心的留恋，怀着通过这次课程设计积累的信心与斗志，我开始写这篇文章，为自己的足迹留下哪怕是微不足道但是对自己弥足珍贵的痕迹并期望与大家共勉。 首先，让我的记忆追溯到大二暑假，在老大的指引下，我接触到Microsoft 公司的.NET产品。那个时候我已经学过vc和asp，因为windows程序设计实验的课的关系，接触过vb，但是没有专门去学他，因为习惯了c++里面的class，int，觉得vb的sub，var 看着就不是很顺心。我是一个好奇心很强的人，突然看到了一个号称“.网络是用于创建下一代应用程序的理想而又现实的开发工具”，而且主推c#语言，由于对c语言的一贯好感，我几乎是立刻对他产生了兴趣。我就开始了对c#的学习，任何语言都不是孤立存在的，所以数据交互是很重要的，暑假的时候我把我们这学期的课本数据库系统概论看了一遍。我记得以前用c语言编程的时候，数据是在内存中申请空间，譬如使用数组等等。很耗费内存空间。这个时候就是数据库站出来的时候啦，于是我又装上了sql serverXX，以前学asp的时候用的是aess，那个时候只是照着人家做，理论是什么也不是很清楚。
通过一个暑假的学习，基本搞清楚了理论方面的东西，具体怎么 用也不是很清楚。但是这为这学期的课程设计打下了铺垫。 来到学校后，随着这学期的数据库课程大赛开始了，我有一个看 法就是我自己应该具备的能力不是我会多少，而是我应该具备快速学会东西的能力。遇到什么就学什么。我们有时候很容易被一些专业名词说吓着，包括什么建模，软件工程，数据分析，数据挖掘等等。我身边就有很多同学被这些纸老虎所唬住，而没有勇气去接触他们，总是说这个太难了之类的退堂鼓的话，他们低估了自己的潜力同时也压抑住了他们自己的好奇心。其实都是纸老虎，又不是什么国家科研难题，只是去用一些工具，发明工具是很难，但是用一个工具就容易多了，just do it！我记得我做这个数据库之前，我们老师说要做好前期分析，我就在网上搜索用什么分析工具好。最后我选择了roseUML 建模工具。在此之前，我脑袋里面没有软件建模的思想，什么UML建模对我而言就是一张空白的纸。但是真正接触后并没有想象的那么难，有什么不懂的上网去搜索，这是一个信息横流的世界，有google，baidu就没有不能解决的知识难题。以及后来的数据库分析的时候用到的powerdesigner也是一样。 开发的时候我想过用什么架构，c/s模式？模式有很多，怎么选择？我就上网搜索现在最流行的架构是什么。结果搜到了MVC架构，就是你啦。我决定用这个架构，不会，没关系，咱学。Just do it！
台州学院 《VB程序设计》实验报告 实验1.1设计一个程序，程序运行的初始界面如图1-1所示。当单击“显示”按钮时，在文本框中显示“欢迎使用VB！”（图1-1）；当单击“清除”按钮时，清除文本框内的文本；当单击“退出”按钮时，结束程序运行。Private Sub Command1_Click() Text1.Text = "欢迎使用VB！" End Sub Private Sub Command2_Click() Text1.Text = "" End Sub Private Sub Command3_Click() End End Sub 实验1.2 设计一个程序，程序运行的初始界面如图1-3所示，其中“显示”按钮为不可用。同时要求： （1）当单击“改变文字”按钮时，在左边标签文字内容改为“你好，张三！”，同时“改变文字”按钮变为不可用（图1-4）； （2）当单击“隐藏”按钮时，将左边标签设为不可见，同时“隐藏”按钮变为不可用，“显示”按钮变为可用（图1-5）； （3）当单击“显示”按钮时，重新显示左边标签，同时“隐藏”按钮变为可用，“显示” Private Sub Command1_Click() Label1.Caption = "你好，张三！" Command1.Enabled = False End Sub Private Sub Command2_Click() Label1.Visible = False Command3.Enabled = True Command2.Enabled = False End Sub Private Sub Command3_Click() Label1.Visible = True Command2.Enabled = True Command3.Enabled = False End Sub 实验2.1 设计一个程序，运行时界面如图2-1所示。当单击“左”、 “右”、“上”、“下”按钮时，标签分别向左、右、上、下移动。 Private Sub Command1_Click() Label1.Left = Label1.Left - 100 End Sub Private Sub Command2_Click() Label1.Left = Label1.Left + 100 End Sub Private Sub Command3_Click() Label1.Top = Label1.Top - 100 End Sub Private Sub Command4_Click() Label1.Top = Label1.Top + 100 End Sub
《VB程序设计》实验报告 专业：信息管理与信息系统 班级：1502班 学号： 姓名： 日期：2016年12月20日
一、实验题目：记事本程序的设计 二、实验目的 1、掌握菜单编辑器的使用方法。 2、掌握菜单事件的编程方法。 3、初步掌握多窗体程序设计方法。 三、实验内容与步骤 1、实验内容：设计一个记事本程序。 2、界面设计（贴出对象属性表和界面设计图）。 ①在窗体frmPad上添加一个文本框text1，并根据下表修改窗体及控件属性。 对象窗体属性设置 对象名属性值 FrmPad Caption “记事本” Text1 MultiLine True ScrollBars 2-Vertical Text 清空 ②使用菜单编辑器在窗体上建立菜单：选中窗体frmpad后，单击“工具”菜 单的“菜单编辑器”命令，弹出“菜单编辑器“对话框，如下图所示。 ③根据下表设置菜单。 菜单设置 菜单项标题菜单项名称快捷键其他属性编辑mnuEdit ···剪切mnuCut Ctrl+X ···复制mnuCopy Ctrl+C ···粘贴mnuPaste Ctrl+V
文本风格mnuStyle ···粗体（&B）mnuBold "复选"属性为True ···斜体（&I）mnuItalic "复选"属性为True 弹出菜单popMenu "可见"属性为True ···剪切popCut ···复制popCopy ···粘贴popPaste 设计好程序窗体如下图所示。 菜单编辑器
界面设计 3、编写程序代码。 Private Sub Form_Load() Text1.FontSize = 16 Text1.Text = "Visual Basic程序设计" mnuBold.Checked = False mnuItalic.Checked = False End Sub '剪切 Private Sub mnuCut_Click() Clipboard.Clear Clipboard.SetText Text1.SelText Text1.SelText = "" End Sub '复制
第1章 统设计的目的与意义: 客房管理系统用于宾馆旅客入住情况登记,包括旅客的姓名及身份证号的登记,以及入住房间信息.当旅客离开时,需要办理退房结帐手续.对于一定时间没的旅客入住情况实现基本查询,报表打印功能.对于宾馆本身也实现了客房增减,入住情况查询等功能. 无论各种等级的宾馆,使用客房管理系统都具有非常实用的价值.使用该系统可以大大节省时间,提高办公效率,而且非常方便的实现旅客信息的查询,以及对宾馆本身客房入住情况及时了解.因此,客房管理系统的开发无疑具有深远的意义. 系统功能设计 系统设计包括数据库设计,主界面设计,菜单设计以及功能设计.而其他功能设计包括系统登录设计,旅客信息登记,旅客信息查询,退房信息处理设计以及报表输入等功能设计,系统功能设计流程图如图所示
第2章 数据库设计 旅客信息表为旅客的个人信息加入住客房信息，数据结构如表 表2.1 客房信息表为客房入住情况的基本信息，数据结构如表 表2.2 旅客退房记录表为旅客退房相关的一些记录信息，数据结构如表 旅客退房记录表设置 表2.3 管理人员信息表存储宾馆管理人员使用该系统的帐号密码，数据结构表 管理人员信息表设置
表2.4 第3章 主体内容 3．1 设计标准模块 本系统设计过程中，创建一个通用函数模块，用于实现数据库连接及按需要打开一个数据表。程序代码如下： Option Explicit Public Sub opentable(pado As Adodc, precordsource As String) With pado .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/Total.mdb" .CommandType = adCmdUnknown .RecordSource = precordsource .Refresh End With End Sub 3.2 户登录界面设计 用户登录的作用是判断使用本程序的用户是否是合法用户。在程序进入登录界面时要求输入用户名和密码，如果用户名，密码正确程序继续执行。当密码错误输入的次数超过设定次数时，给出提示信息退出程序，这样防止了非法用户对本程序的使用。 3．2．1工作界面设计
VB程序设计报告 姓名：阮玮娜学号：020******* 设计题：3.诗词欣赏电子书 （一）程序简介 窗体出现后单击打开命令按钮时出现打开对话框，在目录文件中选择作者并按“确定”键。 目录列表框中会出现诗词目录，从列表框中选择要欣赏的诗词则两个文本框中会出现相应的内容和注释与题解。当单击向上（或向下）按钮时列表框中条目会上移（或下移）一个条目，同时两个文本框也会进行相应的变化。 在此程序中我所新增功能是：当诗词条目处在第一个（或最后一个）时，单击向上（或向下）按钮时列表框中条目会自动循环到最后一个（或第一个）条目，同时两个文本框也会进行相应的变化。 （二）程序用到的主要控件：窗体(form)，文本框（textbox）,标签(label)、框架(frame)、列表框(listbox)、命令按钮(commandbutton) （三）程序用到的主要控件，属性，过程： 1．列表框的应用： 用以显示打开的诗词名，其中style属性设为0 2．文本框的应用： 用以显示与“*.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用于记录文件路径
vb课程设计报告心得感想 vb课程设计报告心得感想篇1 在课程设计过程中，虽然我对程序设计不是很熟悉，但是通过老师详细的讲解，我按照步骤去做，遇到问题的时候先自己想办法解决，解决不了的就去问同学，问老师，通过这种学习，收获很大，学会了自己解决棘手问题，知道了团结的力量。 刚开始做程序的时候，就是完全按照老师的要求，老师的步骤去做的，结果却发现，怎么运行不了?明明是按照老师的步骤去做的，明明是按照老师的要求去做的，但是就是会遇到一些问题使程序运行不了。开始也没有管那么多，仍然是按照课本上的去做。 第一次，在上机课的时候，我根据老师讲的，在机房里做了一次，但没有做完。于是把东西存在了自己的MP3里面，以便以后上机的时候再来做。但真的没有想到，我的MP3，在一次上电子阅览室的时候，忘了拔了。于是乎，我辛辛苦苦做了一大节课的程序就这样没了。心里真的很不舒服，但是，不舒服归不舒服，这个程序，还是得继续做下去，这么以点点小小的失误不算什么，然后跑到学校机房，继续我的VB程序设计。但由于时间问题，做的还是有点粗糙，还是不免存在一定的问题，比如说开始的时候打开不了文件，总是出现错误，自己总也找不出来，后来请教了一下同学，结果发现时代码的编写出现了错误，把代码改过来之后，程序终于可以打开运行了。然后，检查的时候，又发现查找运行错误，又是代码那里出现的黄色的字样，结果发现，是代码拼写错误，于是，拿着同学的代码对比一下，发现了错误所在之地，然后更正了过来。 经过一番努力，程序终于做完了。 后来，室友看了我的程序，她说运行不了的，就是出现了错误，出现了错误，就应该改过啊，这时的我才恍然大。是错误，那么就要改正的! 于是当天，我就去了学校机房，再一次运行我的程序，仍然出现错误情况，需要调试，我回忆起上课的时候，老师是怎么跟我们讲的，哪里出现了错误，需要怎么样改正。于是，我就耐着性子，一个一个，一个一个得改正，编辑代码，一个一个得检查，终于完成了。完成之后，我在运行一下，一切正常，心里终于舒了一口气。经过这次的VB程序设计，让我知道了更多学习的方法。具体如下：(1)保持良好的学习心态，第一，要有自信，自强，积极主动学习.第二，克服畏难情绪，树立学好程序设计的信心(2)要了解概念：VB程序设计本身并不复杂，变量，函数，条件语句，循环语句等概念较多.要真正能进行程序设计，就要深入理解这些概念.应该重视概念的学习. (3)自己动手编写程序，亲自动手进行程序设计是培养逻辑思维的好方法.因此我们得多动手编写程序，逐渐提高写程序的能力.自己动手，编写一些程
专业实践 课 程 设 计 报 告 班级：08计科一班 姓名：*** 学号：*************
学生信息管理系统 1.需求分析: 随着学校的规模不断扩大，学生人数急剧增加，有关学生的各种信息也成倍增长。面对庞大的信息量需要有学生管理系统来提供学生管理工作的效率。通过这样的系统可以做到信息的规范管理，科学统计和快速查询，修改，增加，删除等，从而减少管理方面的工作量。实现学生信息关系的系统化，规范化，自动化，用计算机对学生各种信息进行日常管理。 本系统主要包括学生信息查询和信息添加等功能，来初步实现学生信息的计算机化管理，更多相关功能有待以后慢慢完善。 2.系统功能： 本学生信息管理系统采用的语言是Visual Basic,用SQL Sever 2000数据库完成，有以下功能: (1)有较好的权限管理; (2) 原始数据修改简单方便,支持多条件修改; (3)方便的数据查询，支持多条件查询. 2.1采用Visual Basic有以下特点： 2.1.1可视化编程 Visual Basic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。 2.1.2结构化程序设计语言 Visual Basic是在BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。Visual Basic语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。
VB 设计计算器 实验报告 姓名: 专业: 学号: 二0 一一年十一月七日
设计功能完整的计算器，实现如下图所示按钮（除“ MC，“MR , “MS，“M+ ）及菜单功能，如图： 一、解题思路、分析： 对于我来说，设置一个完整的计算器是一个艰巨的任务，一开始想了一小段时间，自己试着编了一些，但就是无法达到一个完整的计算器，于是，就到网上去下载了一些有关计算 器的程序进行参考分析。首先先定义一些量，比如说前后两个操作数opl、op2，小数点是 否真存在的量DecimalFlag ，操作数个数NumOps上一次按键的类型等。接着对窗体进行初始化，同时设置所有变量为其初始。然后对各个键盘的命令进行编写程序，对0---9按键设 置为一个按键命令组，编写一个程序，同时加减乘除设置一个命令组，也编写一个程序，其 他按键都各自设置为一个命令，分别单独进行编写程序。同时在多个命令中都要对显示器中 的小数点进行分析，看它是否是真实存在。同时对于除法分母是否为0，也要加以考虑。 、源程序: Private Sub Form_Load() DecimalFlag = False NumOps = 0 LastI nput = "NONE" OpFlag ="" Text1.Text = Format(0, "0.") 'Decimal.Captio n = Format(0, ".") End Sub Opti on Explicit Dim Op1, Op2 Dim DecimalFlag As In teger Dim NumOps As In teger Dim LastInput 类型 Dim OpFlag Dim TempReadout ' 窗体的初始化过程 ' 设置所有变量为其初始值 前面输入的操作数 小数点仍然存在吗？ 操作数个数 指示上一次按键事件的 指示未完成的操作
（北京)计算机语言课程设计 ——背单词 院系：地球物理与信息工程学院 专业：自动化09 小组成员：常润秀、覃丹丹、周衍彤 陈建龙、黄冬 完成日期： 2011年7月14 日 小组设计成绩：
一、设计目的： 综合运用面向对象开发工具，设计Windows风格的软件。通过此次程序设计题目，使学生熟练掌握Windows应用程序的开发过程，为以后专业课的学习奠定基础。 二、所选编程语言：Visual Basic 6.0 三、系统总体设计思路： 背单词软件是英语学习类软件的分支，是专门针对用户背诵英语单词，掌握词汇量而制作的辅助学习软件。由于媒介为个人电脑，所以背单词软件有着其它背单词工具无法达到的智能化与互动性，但相对应的，过于依赖电脑和较差的便携性成为其缺陷。所以作为背单词的软件的设计思路应该简单为原则。用户操作必须简单、方便为原则。 （1）本题目共提供了“大学英语四级词汇”和“大学英语六级词汇”两个词库文件（分别是grade4.txt和grade6.txt），通过“词库设置”中的“词库”组合框可以选择想要的词库。默认的词库是“大学英语四级词汇”。 （2）为了便于用户使用，程序允许选择想要记忆的单词范围。默认的单词范围是“A至Z”，即全部单词。如果选择的范围是“A至C”，那么程序只显示以A、B和C字母开头的单词。程序应保证“起始字母”在“终止字母”之前，即不会出现类似于“C至A” 的情况。 （3）据需要选择“随机”或“循环”复选框。如果不选择“随机”，则显示单词时是以单词在词库中的顺序（即字母的顺序）显示的，否则以随机顺序显示。如果不选择“循 环”复选框，单词显示一遍之后自动停止回到起始状态。如果选择了“循环”复选 框，显示一遍之后会自动从头开始显示。 在随机方式之下，循环是没有意义的，所以当“随机”复选框选定时，“循环”复选 框应变为无效且呈现未选定状态。 （4）毕后，单击“开始”按钮，窗口最上方显示区域从右向左以字幕方式动态显示所选的单词，包括词性和词义。在显示过程中可以改变字体大小、滚动速度和背景显示 颜色。单击“暂停”按钮可以暂停滚动，这时“暂停”按钮变为“继续”，单击会继续滚动。单击“退出”按钮退出主界面。 设计任务分工安排： 由于小组由五名成员构成，可将界面模块分为五个部分： 1.滚动字幕以及部分相关控制控件。设计人员：陈建龙。 2.字体大小，滚动速度，背景颜色控制。设计人员：常润秀。 3.词库选择。设计人员：覃丹丹，黄冬。 4.显示方式（随机，循环）设计人员：覃丹丹，黄冬。 5.主界面其他相关控件，以及其他弹出界面和进入界面。设计人员：周衍彤。 设计进度安排： 设计时间：2011.7.7~2011.7.8, 2011.7.11~2011.7.13 7、8号找到各部分设计思路，进行初步设计
湖北文理学院 VB程序设计课程实验报告 学院物电学院 专业自动化 班级 1211 学号
姓名王亮 任课教师王福林 实验一、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的值赋给b If b > c Then '嵌套，如果b>c t = b: b = c: c = t '把b的值赋给t，b 的值赋给c，t的值赋给c If a > b Then '再次嵌套，如果a>b t = a '把a的值赋给t a = b 'b的值赋给a b = t 't的值赋给b End If End If Print a; "、"; b; "、"; c '输出 a "、"b;"、"; c End Sub Private Sub Command2_Click() End '退出程序 End Sub 程序2如下： Private Sub Command1_Click() Dim i As Integer, k As Integer, n As Integer '定义整形变量
课程设计报告 课程：Visual Basic 程序设计 课题：文本编辑器（易记本） 专业：计算机信息管理 班级： 学号： 姓名：@一路偏向北 教师： 2011-12-23
一、课程设计目的 通过一学期的Visual Basic 程序设计学习，以及平时的上机实验，初步掌握了VB程序设计的各种方法，学会了编写最基本的VB程序；对于完整的VB程序设计来讲是很不足的，平时掌握的只是单独的窗体(Form)程序编写，以及各种简单控件的使用，没有做到很好连贯性，所以有必要做一次完整的VB程序设计，结合所学的基本知识，使用多个窗体自成一套系统，加上各种控件的综合运用，初步设计一个合格的VB应用程序；这样在巩固VB所学的同时，更好地学会程序设计的一些思想和方法，对于以后的编程学习或是工作有重要的实践意义。 二、题目及简介 文本编辑器 模仿Windows自带的本文编辑器，要求：做到有下拉式菜单栏，有最基本的文本编辑功能，包括复制、剪切、粘贴、全选、查找；同时拥有文本的管理功能，其中包括新建文本、打开、保存；以及完整的运行退出等系统应用功能，所有操作可选择设定快捷键，更快更方便地使用程序，同时对于一个小程序而言，可给出基本的使用说明以及相关信息。提示：注意使用消息框，以及使用右击弹出式菜单，注意程序的完整性可可用性。
三、设计说明 题目为文本编辑器，即是最基本的文本编辑程序，首先必须做好文本编辑器本身的功能，然后对其完善，做成一个完整的小程序功能设计说明：功能是这个文本编辑器的核心内容，也就是程序的作用，它是用来做什么的；本程序就是用来编写文本的，编写过程中要利用到窗体（Form）一个，控件包括：RichTextBox1（超文本框）、CommonDialog（通用对话框），以及InputBox（消息框）、菜单编辑器等，。要做的工作就是编写代码把这些控件和窗体等结合为一体，使得程序能够成为一体，顺畅运行。 本次设计在按照题目要求的前提下，为了完整地展示一个应用程序，在最初就设计为最基本的文本的编辑器，所以取名为“易记本”，就是简易记事本的简称，然后加入图标，在程序完成之后还进行了大包操作，得到应用程序的安装文件，最后安装在电脑上运行使用。 四、源代码（加注释） Dim sfind As String Dim FileType, FiType As String Private Sub Form_Load() = 7500 = 5000 End Sub '设置文本编辑框的位置和大小