VB课程设计任务书47-货单统计.docVIP

河北工业大学计算机软件技术基础（VB） 课 程 设 计 任 务 书 本题难度级别：B 实现基本要求代码250行 主要涉及: 文件读写、数组操作和菜单设计 一、设计题目：货单统计（出题人：路静） 二、目的与要求：1.目的：培养学生综合利用语言进行程序设计的能力，主要是培养学生 2.基本要求：3.创新要求：在基本要求达到后，进行创新设计，）、设计方法和基本原理： ?1.问题描述：2.问题的解决方案： I某超市的销售记录包含两个分表《商品清单》、《销售清单》 《商品清单》包含如下信息： 商品号、商品名称、进货价格、销售价格、月利润 月利润 = ( 销售价格 – 进货价格 ) ×月售出总量 注意：月售出总量 由《销售清单》中的“月售出量”统计得出。 《销售清单》包含如下信息： 促销员代号、商品号、月售出量、提成 提成=（销售价格 – 进货价格）× 月售出量 ×5% 《销售清单》中的“商品号”即《商品清单》中的“商品号”； 公式中的“销售价格”和“进货价格”需根据“商品号”这一关键字从《商品清单》中查找得到 该超市包含3个促销员，负责销售5种商品，一件商品可能由多个促销员负责，一个促销员也可能负责销售多种商品。 《商品清单》、《销售清单》分别保存在文本文档（.txt）里，假设已到月底，编写一个系统，对本月的销售情况进行统计，把上述两个清单填写完整，比如在《商品清单》里，“商品号”、“商品名称”、“进货价格”、“销售价格”为已知，系统须计算出“月利润”，并且保存在文本文档中；《销售清单》里，计算出“提成”并且保存；《销售清单》里，计算出“促销员代号”、“提成”并且保存。 II 如下图所示，是文件菜单包含的命令 用户可以使用“打开”命令，打开文本文档（如《销售清单》），并且把文件内容输出到文本框中；点击“退出”，文本框内容清空。利用“打开”可以打开原来的清单，也可以打开新生成的清单。 III 如下图所示，是导出菜单 单击“销售清单”，弹出如下对话框： 单击如上图红框所示按钮，弹出如下所示“打开”对话框，单击绿框所示按钮，弹出“另存为”对话框 在如上所示对话框中选择原来的《商品清单》《销售清单》 在如上所示对话框中输入欲导出的新文件名 四、问题的描述： lines_xsh = 1 Open file_xsh For Input As #1 Do While Not EOF(1) Input #1, cxydh, shph, yshchl ‘读入某一行的数据 xshqd_array(lines_xsh).cxydh = cxydh ‘赋值给结构体数组的每一个成员 xshqd_array(lines_xsh).shph = shph xshqd_array(lines_xsh).yshchl = yshchl Loop Close #1 一旦数组中有了文件的内容，则可以将其内容逐行地、通过字符串连接符赋给文本框的Text属性，就可以显示出来了。要控制文本框中文本的换行可以利用VB的系统常数vbCrLf来实现。 （3）某些变量须定义成模块级的 （4）清单数据可以放在自定义类型的数组里，比如《商品清单》 Public Type shpqd shph As Integer mch As String jhjg As Single xshjg As Single ylr As Single End Type Public shpqd_array(1 To 15) As shpqd 五、参考资料 Visual Basic 程序设计教程 及 Visual Basic 实验教程 VB6.0程序员指南 VB6.0控件参考手册 VB参考资料中的“文本编辑器.ZIP” MSDN中文版，课程设计网站上提供的其它资料。 六、设计部分的评分标准（本题难度为B级，综合时乘难度系数0.9） 完成基本要求前5项(项目符号为“■”部分) 60 基本要求全部完成 80 创新要求完成任意1项(不包括“其它”) 90 创新要求完成2项以上(含2项) 100 [注：最后得分是根据本部分得分(占最大比例)以及课程设计期间纪律、设计报告书、答辩情况综合得出。] VB课程设计任务书 – 学生成绩信息管理系统 第5页共5页