VB课程设计任务书46-电子账簿.docVIP

河北工业大学计算机软件技术基础（VB） 课 程 设 计 任 务 书 本题难度级别：B 实现基本要求代码: 约200行 主要涉及: 基本控件的使用，文件 一、设计题目：电子账簿（出题人：路静） 二、目的与要求1.目的培养学生综合利用语言进行程序设计的能力，主要是利用进行设计。基本要求3.创新要求在基本要求达到后，进行创新设计， 增加工具栏，工具栏中应有常使用的工具按钮 对帐志按照“支出科目”进行统计，并绘制出各“支出科目”的消费金额之和的分布图。 三、设计方法和基本原理 1问题描述 各菜单包含的命令如下所示： 单击”打开”命令，读入文件中的账单信息，并显示在文本框里，如下图所示 单击“添加”命令，弹出如下对话框 单击“家庭人员”命令，绘制出各支出科目消费金额的分布图。 ③单击删除命令，弹出如下对话框，在文本框中输入消费标题后，程序把相应帐志删除。 2. 问题的解决方案④某些信息可以考虑存放在自定义类型数组里。 四、问题的描述：x1, y1)-(x2, y2), RGB(0, 0, 255) 表示从(x1, y1)到(x2, y2)画一条指定颜色RGB(0, 0, 255)的直线。在绘制分布图时，按一定的间隔分别画代表不同分数段的直线，线高由该分数段的累加变量进行控制。 因为系统默认坐标原点是在左上角，所以绘制直线之前要先使用scale函数调整坐标 比如：Picture1.Scale (0, 100)-(100, 0)，具体内容可按F1查帮助，或课本中相关章节 ③文本的读取为本题中的难点。将文本文件的内容读入字符串数组的部分代码如下(假设已经用通用对话框控件取得文件名)： Dim txt() As String,lines As Integer lines = 0 ‘ 文件行数总计 Open infile For Input As #1 ‘ 打开文件。infile 变量中存放的是文本文件的名字 Do While Not EOF(1) ReDim Preserve txt(lines + 1) ‘开辟空间以存放新一行内容 lines = lines + 1 Line Input #1, txt(lines) ‘读入一行并放入数组 Text1.Text = Text1.Text txt(lines) vbCrLf ‘在文本框中显示 Loop Close #1 ‘关闭文件 一旦数组中有了文件的内容，则可以将其内容逐行地、通过字符串连接符赋给文本框的Text属性，就可以显示出来了。要控制文本框中文本的换行可以利用VB的系统常数vbCrLf来实现。 ④添加消费记录 添加消费记录是指在原有文件里增加一条消费记录，此操作通过如上图所示的“添加”对话框来实现。在文件里增加一条记录： Open Form1.file For Append As #1 Print …… Close #1 ⑤删除消费记录 先让用户输入关键字：消费标题，程序查找包含该消费标题的记录并删除。 具体方案：可以把不包含该关键字的记录都拷贝到另一个新文件里，然后把原来的文件删除，并把新文件名改成原文件名。 五、参考资料 Visual Basic 程序设计教程 及 Visual Basic 实验教程 VB6.0程序员指南 VB6.0控件参考手册 VB参考资料中的“文本编辑器.ZIP” MSDN中文版，课程设计网站上提供的其它资料。 六、设计部分的评分标准（本题难度为C级，综合时乘难度系数0.8） 完成基本要求 （说明：必须完成，否则不能通过设计） 60-80 创新要求完成任意两项(不包括“其它”) 90 创新要求全部完成，并有自己独创性 100 [注：最后得分是根据本部分得分(占最大比例）以及课程设计期间纪律、设计报告书、答辩情况综合得出] VB课程设计任务书 – 学生成绩统计 第5页共5页