學(xué)習(xí)成績(jī)統(tǒng)計(jì)程序設(shè)計(jì)報(bào)告

1、河北工業(yè)大學(xué)計(jì)算機(jī)基礎(chǔ) VB課程設(shè)計(jì)班級(jí)：機(jī)設(shè) 054學(xué)院：機(jī)械學(xué)院：成績(jī)：一，題目：設(shè)計(jì)一個(gè)學(xué)生成績(jī)統(tǒng)計(jì)系統(tǒng)的程序二，設(shè)計(jì)思路：1， 按照任務(wù)書的要求本題是由；求平均分，讀文件，顯示。，畫圖，自定義坐標(biāo)系等，幾個(gè)簡(jiǎn)單小程序雜和的程序，比較復(fù)雜而不難2， 根據(jù)任務(wù)書和提示：（1），在界面中放picture，label，text 控件和3 個(gè)命令按鈕d2 和d3不可操作，單擊“讀入數(shù)據(jù)”讀入數(shù)據(jù)文件中的學(xué)生信息，顯示讀入了多少人的d2 可操作，單擊“統(tǒng)計(jì)”計(jì)算出平均分，顯示一個(gè)統(tǒng)計(jì)簡(jiǎn)表，統(tǒng)計(jì)各分?jǐn)?shù)段人數(shù)。信息，（4）單擊“繪圖”繪出分布圖。具體方法見(jiàn)“四，程序”三，用圖示方法給出過(guò)程和函數(shù)的調(diào)用

2、關(guān)系四，程序及說(shuō)明定義全局變量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 過(guò)程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)重定義數(shù)組Text1.Text = 讀入了 + j + 位同學(xué)的信息 Label1.Visible = FalseText1.Visible = Trued2.Enabled = True顯示 1設(shè)置控件屬性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) & 數(shù)學(xué) & Space(3) & 英語(yǔ) & Space(4) & Text1.Text = 計(jì)

6、算機(jī) & 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調(diào)用 mysub 過(guò)程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)統(tǒng)計(jì)各分?jǐn)?shù)段的人數(shù) 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 定義坐標(biāo)系 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)繪制學(xué)生成績(jī)分布圖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() 讀入文件并統(tǒng)計(jì)人數(shù)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 = 學(xué)生成績(jī)統(tǒng)計(jì)系統(tǒng) Label1.Fon

12、tSize = 30Text1.Visible = False Picture1.Visible = Falsed2.Enabled = Falsed3.Enabled = FalseEnd Sub五，設(shè)計(jì)更完善方案可將 form1 的 picture 屬性變一下，使窗體有背景可用d2-doubleclick 事件使 label 顯示各分段同學(xué)并寫入語(yǔ)句，如：if average(j)=80 then label1.caption=names(j)&很好，繼續(xù)努力elseif average(j)=60then label1.caption=names(j)&繼續(xù)努力 elselabel1.caption=names(j)&需要努力六，收獲心得體會(huì)在設(shè)計(jì)過(guò)程中，我遇到了一些問(wèn)題，但通過(guò)不斷看了， 最終完成了設(shè)計(jì)，雖然還有些缺陷，終究還是很欣慰的。，將每個(gè)用到的過(guò)程都理解