VB制作學(xué)生成績統(tǒng)計分析系統(tǒng)

1、用vb制作學(xué)生成績統(tǒng)計分析系統(tǒng)一.程設(shè)計的目的和意義每個學(xué)校都要舉行考試，有的班級更是經(jīng)?？荚嚒榱苏莆諏W(xué)生的學(xué)習(xí)情況，老師們不得不花費大量時間和精力對考試成績進行統(tǒng)計分析，因此，開發(fā)一個統(tǒng)計分析軟件，具有重要的意義。為強化和鞏固所學(xué)的知識，本文所采用的程序是建立在以教材vb程序設(shè)計使用教程所涉及內(nèi)容為基礎(chǔ)之上的。二.系統(tǒng)功能設(shè)計在本系統(tǒng)中，將主要實現(xiàn)如下的一些功能：1.對各分?jǐn)?shù)段的人數(shù)及所占比例進行統(tǒng)計2.對最高分、最低分、平均分進行查詢3.對不及格人數(shù)及所占比例進行統(tǒng)計4.將成績分布用直方圖表示出來三.設(shè)計思路在對課程項目進行分析以后，認(rèn)為系統(tǒng)應(yīng)有如下幾條要求：1. 要有系統(tǒng)登錄界面2.

2、要有成績錄入框3. 要有統(tǒng)計結(jié)果顯示界面4. 要能對成績進行保存四.設(shè)計流程圖五.設(shè)計界面、基本控件使用方法簡介：1.按退出鍵，關(guān)閉界面，退出程序。 2.按進入鍵，進入成績輸入界面，如下圖所示。 3.建議在1028*768顯示分辨率下使用。1. 因文件寫入和讀出之間有“系統(tǒng)誤差”，所以用逗號開頭，以消除“誤差”2. 按確定鍵，系統(tǒng)自動將成績保存在“d:kcsjcjb.txt”文件，并對文件數(shù)據(jù)進行讀入和運算處理，將統(tǒng)計結(jié)果顯示在顯示界面。3. 按取消鍵，則返回登錄界面。1. 本界面為統(tǒng)計結(jié)果顯示界面。2. 按返回鍵，關(guān)閉本界面，返回上一界面，即成績輸入界面。3. 按退出鍵，關(guān)閉各界面，結(jié)束程序

3、。六.關(guān)鍵程序/后為該程序段解釋private sub form_load()dim sg() as single, im(9) as integerdim int1, int2, int3 as integer: dim x, y, sb, sg1 as singledim n, m, z as integerdim a, b, c as integeropen "d:kcsjcjb.txt" for input as #1 /打開文件im(0) = -1 n = 0 do while not eof(1) n = n + 1 redim preserve sg(n) i

4、nput #1, sg(n) loop /讀入數(shù)據(jù) close #1 /關(guān)閉文件 m = 2 do while m <= n select case sg(m) case is >= 90 im(9) = im(9) + 1 case is >= 80 im(8) = im(8) + 1 case is >= 70 im(7) = im(7) + 1 case is >= 60 im(6) = im(6) + 1 case is >= 50 im(5) = im(5) + 1 case is >= 40 im(4) = im(4) + 1 case i

5、s >= 30 im(3) = im(3) + 1 case is >= 20 im(2) = im(2) + 1 case is >= 10 im(1) = im(1) + 1 case is >= 0 im(0) = im(0) + 1 case else a = 1 end select m = m + 1 loop /將各成績按分?jǐn)?shù)段分類統(tǒng)計 l15.caption = n 2 /顯示班級人數(shù) int2 = 0 do until int2 > 9 l1(int2).caption = im(int2) /顯示各分?jǐn)?shù)段人數(shù) sb = im(int2) * 1

6、00 / (n - 2) l1(int2 + 10).caption = format(sb, "0.0") /顯示各分?jǐn)?shù)段人數(shù)比例 int2 = int2 + 1 loop a = 1: b = 0 do b = b + sg(a) a = a + 1 loop while a <= n - 1 lav.caption = format(b / (n - 2), "0.0") /顯示平均分 for int1 = 2 to n - 2 for int2 = int1 + 1 to n - 1 if sg(int1) > sg(int2) th

7、en sg1 = sg(int1) sg(int1) = sg(int2) sg(int2) = sg1 end if next next lmax.caption = sg(n - 1) /顯示最高分 lmin.caption = sg(2) /顯示最低分 z = im(0) + im(1) + im(2) + im(3) + im(4) + im(5) lren.caption = z /顯示不及格人數(shù) lbi.caption = format(z / n, "0") /顯示不及格人數(shù)所占比例 shape1(0).height = 0: shape1(1).height

8、 = 0: shape1(2).height = 0: shape1(3).height = 0 shape1(4).height = 0: shape1(5).height = 0: shape1(6).height = 0: shape1(7).height = 0 shape1(8).height = 0: shape1(9).height = 0 int2 = 0 do until int2 > 9 sb = im(int2) / (n - 2) shape1(int2).height = sb * label7.height shape1(int2).top = line23.y1 - shape1(int2).height if shape1(int2).height = 0 then shape1(int2).visible = false else: shape1(int2).fillstyle = 0 end if int2 = int2 + 1 loop /顯示直方圖 end sub七心得