- 1、本文档共5页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VB课程设计任务书 – 期末成绩处理 第 PAGE 5页共 NUMPAGES 5页
河北工业大学计算机软件技术基础(VB)
课 程 设 计 任 务 书
本题难度级别:B 实现基本要求代码: 约150行
主要控件及算法: Command 、Label、Timer、Text及ProgressBar;vb和EXCEL的连接、柱形图的绘制方法。
一、设计题目:期末成绩处理(出题人:李惠然)
二、目的与要求
1.目的
培养学生综合利用VB语言进行程序设计的能力,主要是通过使用VB的标准控件,加深对控件的多个属性的认识及如何使用属性进行程序设计。
2.基本要求
设计一个具有两个窗口的期末成绩统计的小程序。
其中第一个窗口完成:
学生人数和4门课成绩的录入,4门课的名称及学生人数由用户输入。
每录入完一个学生成绩后,将各门课成绩写入Excel表格中。
打开Excel表格查看写入的数据是否正确。
第二个窗口用来绘制描述各科目平均成绩的柱形图,界面中还应包含坐标系、图表名称、各科成绩的平均分值、课程名称及色块。
对窗口1的4个文本框要求:在输入成绩之前,焦点要在第一个文本框中,且文本为可编辑状态;当第一个文本框中输入2位数据后,焦点自动移入下一个文本框中,且文本状态和第一个相同。
文本框中只允许输入数字0、1、2、3、4、5、6、7、8、9及小数点“.”;文本框中文本的位数最大为2位。
输入学生成绩时窗口上要提示输入的是第几个学生成绩,并要求输入最后一个学生成绩后“写入数组”控件隐藏。
全部学生成绩输入完成后,单击“写入Excel文件”控件,把学生成绩全部放在Excel表格中,要求有字段名内容。
单击“打开Excel文件”控件,将打开刚刚生成的Excel表。
单击“绘制柱形图”控件,打开第二个窗口,并显示以课程平均分为依据的柱状图。
要想结束程序,应单击“退出”按钮。
3.创新要求
在完成基本要求后,可进行如下创新设计:
在第二个窗体中添加一个命令按钮、一个ProgressBar控件。单击命令按钮,在ProgressBar控件中完成所有科目平均分柱状图的绘制。
三、设计方法和基本原理
1.问题描述
单击VB环境中的“运行”按钮,系统弹出第一个窗口,焦点位于第一个文本框,且该文本框内容处于可编辑状态;
输入一个学生4门课成绩后,单击“写入数组”按钮,如此反复,直到把所有学生成绩输入完毕。
单击“写入Excel表”按钮,将保存在数组中的全部学生成绩写入Excel表格中。这里主要掌握在vb中对Excel表格的操作:创建表格、表格的打开、数据的写入、表格的保存及关闭;
单击“打开Excel表格”按钮,即可将新生成的电子表格打开,以便查看写入的数据是否正确。
单击“绘制柱形图”按钮,打开第二个窗口,并且在该窗口中绘制坐标系、柱状图,添加标题、色块和分数值。
单击“退出”按钮,结束程序运行。
2. 问题的解决方案
在第一个窗体中设置一个文本框控件数组,用来输入4门课的成绩。
设置4个命令按钮控件,在其单击事件中分别完成“写入数组”、“写入Excel表格”、“打开Excel表格”;单击“绘制柱形图”按钮,打开第二个窗口。
在第二个窗口中用画线命令完成柱形图的绘制。
在第二个窗体上添加ProgressBar 控件,完成4门课的总平均分柱状图的绘制。(创新内容)
四、主要技术问题的描述:
本题技术问题不多,主要解决vb中对Ecxel表格的读写操作,和ProgressBar 控件的使用方法。
1.VB中读写EXCEL文件
VB本身提供自动化功能,可以读写EXCEL表,其方法如下:
从工程菜单中选择引用栏;选择Microsoft Excel 9.0 Object Library(EXCEL2000),然后选择确定。表示在工程中要引用EXCEL类型库。,并选取项目中的“Microsoft Excel 11.0 object library”项。然后选择确定。表示在工程中要引用EXCEL类型库。由于你的Excel版本不同,所以这个选项的版本号可能不同
在通用对象的声明过程中定义EXCEL对象
Dim XlApp As Excel.Application
Dim XlBook As Excel.Workbook
Dim XlSheet As Excel.Worksheet
在程序中操作EXCEL表常用命令
★创建EXCEL对象
Set xlApp = CreateObject(Excel.Application)
★打开已经存在的EXCEL工件簿文件
Set xlBook = xlApp.Workbooks.Open(App.Path ??\文件名.xls)
★设置EXCEL对象可见(或不可见)
xlApp.Visible = Tr
文档评论(0)