资源描述：
《软件项目管理实验bug票管理系统》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。
1、内蒙古工业大学信息工程学院内蒙古工业大学信息工程学院实验报告课程名称：软件项目管理实验名称：BUG票信息管理系统实验类型：验证性□综合性√设计性□实验室名称：信息工程学院九楼机房班级：学号：姓名：组别：同组人：成绩：实验日期：2013年4月第18页内蒙古工业大学信息工程学院预习报告成绩：指导教师审核（签名）：年月日预习报告一、实验目的：（1）掌握BUG票信息及BUG管理有关信息。（2）掌握熟悉Excel图表及常用工具栏的使用。（3）掌握VBA编程基本知识和编程技巧，并能够进行简单的系统开发。二、实验题目：设计一
2、个BUG票管理系统，实现对软件项目中产生BUG信息的管理,从而提高软件项目过程的效率和质量，提高企业生产率。三、实验要求：（1）根据BUG票信息管理的特征，设计BUG票模板；（2）分析BUG票所具有的属性字段，并进行整理；（3）抽取BUG条件列表；（4）自动生成趋势曲线或统计表格。四、实验用仪器设备、器材或软件环境：软件环境：WindowsXP以上操作系统，MicrosoftExcel2003或MicrosoftExcel2007；硬件环境：PC机一台。第18页内蒙古工业大学信息工程学院实验报告成绩：指导教师审
3、核（签名）：年月日实验报告一、实验目的：（1）掌握BUG票信息及BUG管理有关信息。（2）掌握熟悉Excel图表及常用工具栏的使用。（3）掌握VBA编程基本知识和编程技巧，并能够进行简单的系统开发。二、实验题目：设计一个BUG票管理系统，实现对软件项目中产生BUG信息的管理,从而提高软件项目过程的效率和质量，提高企业生产率。三、实验要求：（1）根据BUG票信息管理的特征，设计BUG票模板；（2）分析BUG票所具有的属性字段，并进行整理；（3）抽取BUG条件列表；（4）自动生成趋势曲线或统计表格。四、实验用仪器设
4、备、器材或软件环境：软件环境：WindowsXP以上操作系统，MicrosoftExcel2003或MicrosoftExcel2007；硬件环境：PC机一台。五、实验原理及设计方案：（1）利用BVA编程基础知识和BUG票相关信息进行系统设计。（2）设计方案:a.系统主界面：如图1-1首先，打开Excel表格，打开Office按钮中的Excel选项，选中“在功能区显示“开发工具”选项卡”。然后再Sheet1中利用开发工具栏中菜单，设计出如图所示的界面。第18页内蒙古工业大学信息工程学院图1-1主界面调用的部分宏
5、代码：Sub添加BUG票信息_Click()添加BUG票信息.ShowEndSubSub管理BUG票信息_click()管理BUG票信息.ShowEndSubSub提取BUG票信息_click()提取BUG票信息.ShowEndSubSub产生数据()Sheets("Sheet4").Selectn=Sheet2.UsedRange.Rows.CountDimjAsIntegerj=3Sheet4.Cells(2,5).Value=Sheet4.Cells(2,3).ValueIfSheet4.Cells(2,
6、2).Value=Sheet4.Cells(1,6).ValueThenSheet4.Cells(2,6).Value=1Sheet4.Cells(2,7).Value=0Sheet4.Cells(2,8).Value=0ElseIfSheet4.Cells(2,2).Value=Sheet4.Cells(1,7).ValueThenSheet4.Cells(2,6).Value=0Sheet4.Cells(2,7).Value=1Sheet4.Cells(2,8).Value=0Else第18页内蒙古工业大学
7、信息工程学院Sheet4.Cells(2,6).Value=0Sheet4.Cells(2,7).Value=0Sheet4.Cells(2,8).Value=1EndIfEndIfFori=3TonIfSheet4.Cells(i-1,3).Value=Sheet4.Cells(i,3).ValueThenIfSheet4.Cells(i,2).Value=Sheet4.Cells(1,6).ValueThenSheet4.Cells(j-1,6).Value=Sheet4.Cells(j-1,6).Valu
8、e+1ElseIfSheet4.Cells(i,2).Value=Sheet4.Cells(1,7).ValueThenSheet4.Cells(j-1,7).Value=Sheet4.Cells(j-1,7).Value+1ElseSheet4.Cells(j-1,8).Value=Sheet4.Cells(j-1,8).Value+1EndIfEndIfElseSheet4.Cel
