面向对象程序设计(vb)-作业管理系统.doc

《面向对象程序设计(vb)-作业管理系统.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、实验报告课程名称面向对象程序设计(VB)实验学期2008至2009学年第一学期学生所在系部计算机系年级大二专业班级**************学生姓名******学号*****************任课教师*******实验成绩计算机系制《面向对象程序设计(VB)》课程综合性实验报告开课实验室：软件开发室一2008年12月31日实验题目作业管理系统一、实验目的使学生巩固和加深对面向对象程序设计(VB)理论知识的理解，进一步掌握编程技巧和方法，能融会贯通所学知识，提高编程和调试程序的水平，从而培养学生理论与实践相结合，独立操作与综合应用知识的能力。通过实验的操作以此系统掌握面向对象程序

2、设计(VB)的方法和要点，实验中要能熟练运用相关控件；掌握基本控制结构和编写程序的语言代码；进行界面设计，如建立通用对话框，菜单设计和建立工具栏，状态栏；学会对文件，图形的操作和建立控件数组。应而设计出来的小型系统具有实用价值。二、设备与环境PC兼容机、Windows操作系统、VB软件等。三、实验内容实验内容分为：1．建立主控程序，调用各章作业。主程序界面通过上弹菜单，级联菜单和下拉菜单，调用并运行各章作业。2．各章作业按章分组归纳并经过整理，各个作业窗口都已进行美化处理，各章作业的格调保持一致；各作业窗体被添加到工程中，适应多窗体的操作；各窗体的关闭不影响到主窗体的操作。3．在系统中

3、，通过对系统的规划布局，使系统更加丰富多彩。系统中还能根据自己的想法进行有条件的调用程序。4．可调用一个文件编辑器，通过菜单和工具栏实现对文本的编辑。5．生成可执行文件（.exe文件）。四、实验结果及分析1．功能模块简介和系统结构图：学生作业管理系统文本编辑器文本编辑器精彩推荐实验各个实验娱乐型经典例题2．程序的主要代码：主程序的主要代码：PrivateSubCommand1_Click()frmMDI.ShowfrmMDIChild.ShowEndSubPrivateSubCommand2_Click()List2.Visible=NotList2.VisibleEndSubPriv

4、ateSubCommand3_Click()List3.Visible=NotList3.VisibleEndSubPrivateSubCommand4_Click()Form2.ShowEndSubPrivateSubTimer1_Timer()Label1.ForeColor=QBColor(15*Rnd)Label2.ForeColor=QBColor(15*Rnd)Label3.ForeColor=QBColor(15*Rnd)Label4.MoveLabel4.Left-50Label4.ForeColor=QBColor(15*Rnd)IfLabel4.Left<4000T

5、henLabel4.Left=10080b=Int(Rnd*2000-200)Label4.ForeColor=QBColor(15*Rnd)Label4.Top=Label1.Top+bEndIfimage1.Moveimage1.Left-50Ifimage1.Left<1700Thenimage1.Left=10080EndIfEndSubPrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)StatusBar1.Panels(2).Text=xStatusBar1.Panels(4

6、).Text=yEndSubPrivateSubList1_Click()IfList1.ListIndex=0Then画线.ShowEndIf…………………………………………PrivateSubList2_Click()IfList1.ListIndex=0Then画线.ShowEndIf…………………………………………PrivateSubList3_Click()IfList1.ListIndex=0Then学生成绩管理.ShowEndIf…………………………………………PrivateSubTest11_Click()简单动画例.ShowEndSub…………………………………………

7、子程序代码:文本编辑器：PrivateSubFileNew_Click()FileNewProcEndSubPrivateSubFileOpen_Click()FileOpenProcEndSubPrivateSubFileSave_Click()FileSaveProcEndSubPrivateSubFilePrint_Click()OnErrorGoTonofilefrmMDI.ActiveForm.CommonDialog1.ShowPr