学习成绩统计程序设计报告

1、河北工业大学计算机基础 VB课程设计班级：机设 054学院：机械学院：成绩：一，题目：设计一个学生成绩统计系统的程序二，设计思路：1， 按照任务书的要求本题是由；求平均分，读文件，显示。，画图，自定义坐标系等，几个简单小程序杂和的程序，比较复杂而不难2， 根据任务书和提示：（1），在界面中放picture，label，text 控件和3 个命令按钮d2 和d3不可操作，单击“读入数据”读入数据文件中的学生信息，显示读入了多少人的d2 可操作，单击“统计”计算出平均分，显示一个统计简表，统计各分数段人数。信息，（4）单击“绘图”绘出分布图。具体方法见“四，程序”三，用图示方法给出过程和函数的调用

2、关系四，程序及说明定义全局变量Dim math() As Single, computer() As Single, english() As Single Dim names() As StringDim average() AsegerDim agood Aseger, bgood AsegerDim simple Aseger, pass Aseger, unpass AsegerDim i As Single, j As SingleDim r Aseger定义 mysub 过程Sub mysub(x() As Single, s As Single)Private Subd2_Cli

3、ck()Call mysub(math(), mave)Call mysub(english(), englishave) Call mysub(computer(), computerave Call mysub(average(), average)Sub mysub(x() As Single, s As Single) s = 0For j = 1 To i s = s + x(j)Next j s = s / iEnd Subs = 0For j = 1 To i s = s + x(j)Next j s = s / iEnd SubPrivate SubDim e Asd1_Cli

4、ck()eger, j AsegerReDim names(j) ReDim math(j) ReDim english(j) ReDim computer(j)ReDim average(j)重定义数组Text1.Text = 读入了 + j + 位同学的信息 Label1.Visible = FalseText1.Visible = Trued2.Enabled = True显示 1设置控件属性e = FreeFileOpen App.Path & d:mouge.txt For Input As #e For j = 1 To iIf Not EOF(e) ThenInput #e, n

5、ames(j), math(j), computer(j), english(j) End IfNext jEnd Sub读入文件Private Subd2_Click()eger, englishave AsDim mave AsegerDim computerave Asegerd3.Enabled = TrueFor j = 1 To iaaverage(j) = (math(j) + english(j) + computer(j) / 3 Next j求各生平均分显示& Space(5) & 数学 & Space(3) & 英语 & Space(4) & Text1.Text = 计

6、算机 & Space(3) & 平均分 + vbNewLineText1.Text=Text1.Text+ + vbNewLineFor j = 1 To iText1.Text = Text1.Text + names(j) + Space(3) + Str(math(j) + Space(3)Str(computer(j) + Space(3) + Str(english(j) + Space(9) + Str(average(j) + vbNewLine + _+vbNewLineNext j调用 mysub 过程Call mysub(math(), mave)Call mysub(en

7、glish(), englishave) Call mysub(computer(), computerave) Call mysub(average(), average)Text1.Text = Text1.Text + 平均分 + Space(6) + Str(ma Str(englishave) + Space(6) + Str(computerave) + Space(6) + Str(average)统计各分数段的人数 For j = 1 To iIf average(j) = 90 Then agood = agood + 1ElseIf average(j) = 80 Then

8、 bgood = bgoog + 1ElseIf average(j) = 70 Then simple = simple + 1ElseIf average(j) = 60 Then pass = pass + 1Elseunpass = unpass + 1 End IfNextve)+Space(6)+End SubPrivate SubText1.Visible = Falsed3_Click()Picture1.Visible = True 定义坐标系 Picture1.ScaleLeft = 10Picture1.ScaleTop = 2210Picture1.ScaleWidth

9、 = 3790Picture1.ScaleHeight = -2210 绘 x , y 轴 Picture1.DrawWidth = 5Picture1.Line (100, 500)-(3500, 500), RGB(0, 0, 225)Picture1.Line (100, 2000)-(100, 500), RGB(0, 0, 225)绘制学生成绩分布图r = agood + bgood + simple + pass + unpassPicture1.Line (600, 500)-(600, 500 + unpass / r * 3000), RGB(0, 225, 0)Pictur

10、e1.Line (1200, 500)-(1200, 500 + pass / r * 3000), RGB(0, 225, 0)Picture1.Line (1800, 500)-(1800, 500 + simple / r * 3000), RGB(0, 225, 0)Picture1.Line (2400, 500)-(2400, 500 + bgood / r * 3000), RGB(0, 225, 0)Picture1.Line (3000, 500)-(3000, 500 + agood / r * 3000), RGB(0, 225, 0)加入图形注释文字 Picture1.

11、CurrentX = 300Picture1.CurrentY = 400Picture1.Pr90Private Sub Form_Activate() 读入文件并统计人数e = FreeFileOpen App.Path & D:mouge.txt For Input As #e j = 0Do While Not EOF(e)Input #e, names(j), math(j), computer(j), english(j) j = j + 1LoopEnd SubPrivate Sub Form_Load() Label1.Caption = 学生成绩统计系统 Label1.Fon

12、tSize = 30Text1.Visible = False Picture1.Visible = Falsed2.Enabled = Falsed3.Enabled = FalseEnd Sub五，设计更完善方案可将 form1 的 picture 属性变一下，使窗体有背景可用d2-doubleclick 事件使 label 显示各分段同学并写入语句，如：if average(j)=80 then label1.caption=names(j)&很好，继续努力elseif average(j)=60then label1.caption=names(j)&继续努力 elselabel1.caption=names(j)&需要努力六，收获心得体会在设计过程中，我遇到了一些问题，但通过不断看了， 最终完成了设计，虽然还有些缺陷，终究还是很欣慰的。，将每个用到的过程都理解