面向对象课程设计-- 学生成绩管理

《面向对象课程设计-- 学生成绩管理》由会员分享，可在线阅读，更多相关《面向对象课程设计-- 学生成绩管理（7页珍藏版）》请在毕设资料网上搜索。

1、 目 录 一 概述 2 （一）课程设计的目的 . 2 （二）课程设计的要求 . 2 （三）总体方案设计 . 2 二 调试的结果与运行结果说明 . 3 三课程设计心得 5 学学生成绩管理 一 概述 （一）课程设计的目的 1、使自己进一步理解和掌握课堂上所学 VB 程序设计中各种基本数据、数 组、常用过程的定义与使用，各种程序设计逻辑结构设计，界面设计与常用控 件的使用方法。 2、使自己掌握复杂程序设计的基本内容和设计方法，培养规范化软件设计 的能力。 3、使自己掌握使用各种计算机资料和有关参考资料，提高程序实际的自我 学习能力。 （二）课程设计的要求 1.界面简洁美观； 2.学生成绩信息包括：姓

2、名、性别 、成绩，学校； （三）总体方案设计 系统功能分析： 1.学生成绩信息管理：实现学校学生成绩管理，包括学生的姓名、性别、 成绩、学校； 2.包括对学生成绩的输入 ，显示，查询，添加数据，读取数据功能 （四）详细设计 界面设计 界面设计共用到四种控件：Label 、Textbox 、Command 、Combol 1.创建两个窗体：Form1 。 2.Form1 设计： 1）添加 4 个标签框：Label 1、Label 2、Label 3 、Label 4； 添加 1 个文本框：Textbox1； 2） 添加 5 个命令按钮； 二 调试的结果与运行结果说明 主窗口界面如图 1 图 1

3、主窗口 运行结果如图 2 图 2 运行结果 模块代码 Type studtype name As String * 5 Sex As String * 1 score As Integer school As String * 10 End Type 工程代码 Dim stud(99) As studtype Dim n% Private Sub Command1_Click() If n = 100 Then MsgBox (输入的人数超过数组声明个数) Else With stud(n) .name = Text1 .Sex = Text2 .score = Text3 .school =

4、 Combo1.Text End With Text1 = “: Text2 = “: Text3 = “: n = n + 1 End If End Sub Private Sub Command2_Click() Dim i% Picture1.Cls Picture1.Print “ 姓名 性别 成绩 学校“ Picture1.Print “-“ For i = 0 To n - 1 With stud(i) Picture1.Print Trim(.name); Tab(9); .Sex; Tab(14); .score; Tab(22); .school End With Next i End Sub Private Sub Command3_Click() Dim TSchool As String, i% Picture2.Cls TSchool = InputBox(“请输入欲查询的学校“) Picture2.Print “姓名 学校“ For i = 0 To n - 1 If