長江大學VB上機實習報告范本

1、計算機上機實習報告學院:石油工程學院班級:儲運11204姓名:魏亞榮學號:XXXXXXX班內序號：XX指導教師：XXX-3四 . 系統(tǒng)設計分析-3五窗體設計與程序代5六心得體會二、實習目的：綜合應用所學理論知識， 聯系實際開發(fā)一個具備簡易功能的班級學生成績管 理系統(tǒng)。熟悉程序編寫與調試，熟悉數據文件的創(chuàng)建、打開、讀寫、關閉等相關 操作，同時讓我們熟悉VB6.0的開發(fā)環(huán)境,掌握基本的編程方法,熟悉用VB語言 完成一個應用程序的設計過程 , 掌握有關編輯和調試程序的方法和技巧 。1、用記事本新建一個文本文件，將本班的 M名學生的有關信息及本學期的 N門 考試課的成績 （要求用假想分數， 并要求將自

2、己的每門課的放在第一列） 輸入到 這個文件中 , 建議按如下形式存放 （ 注：三、系統(tǒng)功能概要為例 ）:序號姓名幸運日 出生日期英語VB數學 體育7作者自己8 1992.12.19 99100 9898 10010張某677768089855李某189889997953王某656764354772劉某382878579891孫某245566665684趙某582965685556陳某386866686879周某556966556568錢某656655656562、將本學期的N門課程及其學分（16學時為1 個學分 ） 輸入到另一個數據文件20< MK 50、5< NW 8,下文以 M

3、=10,N=5上題）中，建議如下列形式存放：專業(yè)課文件類型同號課程名稱課程學分1英語5.02vb程序設計43數學4.54體育3.05專業(yè)課10.0編1）找出“出生日”與幸運日相同的人，并打印出其信息（每行輸出一個人信息）2） 統(tǒng)計出分別擁有幸運數字 1， 2,3,4,5,6,7,8,9,0 的人數3）能查出任何一個你感興趣的人的信息4）可新添加一個人的信息5）和刪除一個人的信息6）可以對某個人的幸運數字進行修改，只改變其幸運數字，其他信息不變7）根據以上兩文件內容分別計算每個學生N門課的加權平均分（保留2位小數，4舍5入），按平均分排列名次，平均分相同則名次并列，如第1、2、2、4、5、5、7

4、名。用 VB創(chuàng)建一個數據文件，存放班級的成績表，建議按以下形式存放。學號姓名英語vb程序設計數學 平均成績 名次1張某76898980.522李某91966778.233王某75585688.814趙某58677768.548）分別統(tǒng)計全班每門課的平均分，并計算各分數段（60分以下；6069; 7079; 8089;90分以上）的學生人數。用 VB創(chuàng)建一個新的數據文件，在該文件中存放數據的格式如下：范圍 .英語 VB .>=9035.80-891012.9）打印每名學生成績條（并將結果存放到用 VB創(chuàng)建的一個新的數據文件中）。10）打印所有存在不及格課程學生的名單 （含學號、不及格課程名

5、稱、 課程的學分及成績） 。11）打印優(yōu)等生名單（學號、N門課成績、平均分名次） 優(yōu)等生條件：a）平均分 90 分b）名次在本班位于前三名c）平均分 85分，并且有二門課的成績都 95 分選做內容： 打印每門課成績分布圖說 明：所有輸出結果應寫入用 VB創(chuàng)建的文件中，格式要整齊，并有適當的文字說明。 實習報告要求 ：應包括分析設計與說明、部分過程（函數）的源程序清單、程序調試過程中 遇到的問題及解決方法， 有待改善或改進的意見， 對本次實習的意見與建議、收獲等。 其中 原始數據及程序運行的結果應作為附錄附于實習報告之后。四、系統(tǒng)設計分析 ：1、該成績管理系統(tǒng)中要同時表示學生的學號、 姓名、成績

6、等一些信息， 及課程、 課程學分等一些信息，由于每項信息的意義不同，數據類型也不同，但還要 同時作為一個整體來描敘和處理，因此需要通過用戶自定義來解決。所以在 編程之前新建一個標準模塊用來定義自定義類型。2、為了便于后面執(zhí)行求加權平均分、排名等命令，在 Forml發(fā)生Load事件時 應將學生信息和課程信息讀取并放到兩個數組中，由于這兩個數組在該管理 系統(tǒng)的全程序都要用到，因此應定義為全局類型。如是在標準模塊中定義兩 個數組。3、由于原始數據文件中相鄰的兩列之間空格的長短不一， 因此在調用 Split 函 數之前應窗體通用模塊中自定義一個 space1 函數將原始數據文件中相鄰的 兩列之間空格數

7、變?yōu)橄嗤?、在編寫程序時，由于該系統(tǒng)的程序代碼較多，因此在編寫時要合理。5、在打印成績條、不及格名單、優(yōu)等生等信息時，應邊用 write 語句分別將數 據存入一個新的文件中。6、實習必須按著老師的嚴格要求完成所有的實習任務，并整理成文件打印。五.窗體設計與程序代碼1.此次窗體設計使用了 11個命令按鈕分別對應不同的系統(tǒng)功能要求，具體界 面如下2.程序代碼統(tǒng)計“出生日”與幸運日相同的人Dim stu() As stude nt, n%, kc() As keche ng, x%Private Sub Comma nd1_Click()ClsFor i = 1 To UBou nd(stu()I

8、f Right(stu(i).birthday, 2) = stu(i).luckyday ThenPrint stu(i). num; stu(i). name; stu(i ).lu ckyday; stu(i).birthday;Forj = 1 To 5Print stu(i).score(j);Next jPrintEnd IfNext iEnd Sub統(tǒng)計不及格學生的名單Private Sub Comma nd1O_Click()CisPrint "序號"Spc(3);" 姓名"Spc;" 成績"Spc;" 學分

9、"Spc;" 課程"For i = 1 To UBou nd(stu()Forj = 1 To 5If stu(i).score(j) < 60 ThenPrint Tab(0);stu(i). num;Spc(3); stu(i). name; Spc(2);stu(i).score(j); Spc(3); kc(j).xf; Spc(3); kc(j).km;End IfNext jNext iEnd Sub打印優(yōu)等生名單Private Sub Comma nd11_Click()ClsPrint " 學號""英語"

10、;Space(3); "VB" Space(3);" 數學"Space(3);" 體育 "Space(3);" 專業(yè)課"Space(3);" 排名"Dim zxf%, i%, j%, k%For i = 1 To UBou nd(kc()zxf = zxf + kc(i).xfNext iFor j = 1 To UBou nd(stu()For k = 1 To 5stu(j).average = stu(j).average + stu(j).score(k) * kc(k).xf / zx

11、f stu(j).average = Format(stu(j).average, "0.00")Next kNext jFor m = 1 To UBou nd(stu()stu(m).ra nk = 1For n = 1 To UBou nd(stu()If stu(m).average < stu (n ).average Thenstu(m).ra nk = stu(m).ra nk + 1End IfNext nNext mFor i = 1 To UBou nd(stu()k = 0Forj = 1 To 5If stu(i).score(j) >=

12、 95 Thenk = k + 1End IfNext jIf stu(i).average >= 90 Or stu(i).ra nk <= 3 Or (stu(i).average >= 85And k >= 2) ThenPrint stu(i). num; Space(3); stu(i). name;For m = 1 To 5Print stu(i).score(m); Spc(4);Next mPrint stu(i).ra nkEnd IfNext iEnd Sub統(tǒng)計各幸運數字的人數Private Sub Comma nd2_Click() ClsFo

13、r i = 0 To 9Dim luckypeople%For j = 1 To UBou nd(stu()If Val(stu(j).luckyday) = i The nluckypeople = luckypeople + 1End IfNext jPrint "幸運數字為"& i;"的人數為："& luckypeopleluckypeople = 0Next iEnd Sub查詢信息Private Sub Comma nd3_Click()ClsDim rm As Stri ng, i%, j%rm = In putBox(&qu

14、ot;請輸入你想要查詢的同學的姓名")For i = 1 To UBou nd(stu()If Trim(stu(i). name) = rm ThenPrint stu(i). num; stu(i). name; stu(i) .lu ckyday; stu(i).birthday;Forj = 1 To 5Print stu(i).score(j);Next jEnd IfNext iEnd Sub添加信息Private Sub Comma nd4_Click()ClsDim xin xueshe ng As Stri ngxin xueshe ng = In putBox(&

15、quot;請依次按照序號，姓名，幸運日，出生日期，英語,vb，數學，體育，專業(yè)課的順序輸入新同學的信息，中間用空格隔開")Open "e:vb 作業(yè) 1.txt" For Append As #1Print #1, xin xueshe ngPrintClose #1Do While In Str(Trim(x in xueshe ng), " ") <> 0xin xueshe ng = Replace(Trim(x in xueshe ng),"","")Loopa = Split(x i

16、n xueshe ng,"")n = n + 1ReDim Preserve stu( n)stu( n).num = a(0)stu( n). name = a(1)stu (n).lu ckyday = a(2)stu( n).birthday = a(3)For i = 1 To 5stu (n ).score(i) = a(3 + i)Next iFor i = 1 To UBou nd(stu()Print stu(i). num; stu(i). name; stu(i) .lu ckyday; stu(i).birthday;Forj = 1 To 5Prin

17、t stu(i).score(j);Next jPrintNext iEnd Subfc電£m聲臣毎占Li同r''t忻盂干+12202bIB2耳 sfss*二lileTlM 拒羊 王歹t':-AVI 2 3 寸 nGTMsG 1 llllllull :Q 戈一199-a. i im1004. UL 021W, 01. 18：1995. 02. 03 199JI. OR. J5 1994. 10. 02LM4. 02. 30L993. OB. 9119CP. CIS. d£> 他 3M. 10 的呼窗p 1M4. 0C-02 3W3. M. 15

18、 m4. 10. <36 3M4. 0£ 131 嘶 g 211996. 10.2E 辭M IQ. 20 1M4. Olr Zi lW4.01-2( lr-. 01. 02：i-7172J J239-s二-?5LI yl&w E 二居 1;. - Tosa-I o s h- - i -1 fl- 6 s - I & -Q s 6 - i _s I -j 7 -I 495 Ml 00 74 林76昶51 知 7E91 鴕78 騎527 0SQ76 甜56-甘 t：6- 旳L .-7o 目二ai：:： 切5：E0冊涉；雀碾陣也T9 7 9 丁6* 8flc eb1

19、t n Bbl,“出生日'與葺:運曰帕同的氐| 齢h&宇運蚊匸曲人甜團除倚擔|忸畝幸運數I討梅忙事主的平均分統(tǒng)計康SB些瑋I訂EP學主或鍛備|平艮幡爭空霉單 打印優(yōu)等呈g單弓 I 凈-1I3O-*!*-帕I/佃IVO1 1宦也訃 wlrtw 呼u-:尹1Wifi "HPI VV九1 *>«>：!*1卻于1931 W*e 191*3 IUVLI i9*h T"LJ IQfh I MM2和丿蜚HM 皈zn1¥nn?!>.Hd I:O:E;:1;»5林 f 北H5? nJfiHJfiHT 0¥0>a

20、h nTST5?7 A77TSan?»tl A<杓理95 S67119”S3”H& HD2HUi樺刊N2W H斥斗弋W耳7 ft fl產加 A M7 HI0 7*«?JS5：刪除信息Private Sub Comma nd5_Click()CisDim rm As Stri ngrm = In putBox("請輸入你要刪除的同學的姓名")For i = 1 To nIf Trim(stu(i). name) = rm ThenExit ForEnd IfNext iFor j = i To n - 1stu(j) = stu(j + 1)

21、Next jReDim Preserve stu(n - 1)For i = 1 To UBou nd(stu()Print stu(i). num; stu(i). name; stu(i) .lu ckyday; stu(i).birthday;Forj = 1 To 5Print stu(i).score(j);Next jPrintNext iEnd Sub22182o2616o 1 a. - 3 4-3-6 M i . i 會 cp I1 T11- 1 i 1* 1111 A/- n-卷4三:i:;u.t 上7|7? 王sf XJK-TPLIF忘R3Q1W4. 1LC0199-1.

22、12. 021993. 01.1B1995.02 0» 】砂W. 021994. 02. 501995. 08. 911094. 00, QB】網，07. 101993. «.2C1994. 0*0. 02 1W3-Q9. 15 曲4. 10- 0S1QM 應 132K5.O4- 211M. 10.25 】航IG 20IWip ALM m4. 01 20 86書4 i ；8 8a 91 需 -IJD 鼻 7S &4 6: 71 7£ EE7172由4 I33fl 8 W ,.-3 9 r二c-v .-!一二 1 d - 1 :¥n二一 c -Q

23、.b - I - i Ah s- -5 p- - - -V- -u.-苗 _ I - i - I 7 * I 4i 口3。;訂95I:I:-63LSS-52巫5i6G53£0so6645907862 鮎 鼠I7S 時73Bl卍607ES2OS6C- 餡86816&I?燔改幸運竝孚河牛學空的平峋井議計良維廿布I打S爭生魄誼埶豐及榕學生足單修改幸運數子Private Sub Comma nd6_Click()CisDim rm As Stri ng, shuzi As Stri ng, i%, j%rm = In putBox("請輸入你要修改的同學的姓名")

24、 shuzi = InputBox("請輸入你要修改后的幸運數字")For i = 1 To UBou nd(stu()If Trim(stu(i). name) = rm Thenstu(i ).lu ckyday = shuziPrint stu(i). num; stu(i). name; stu(i ).lu ckyday; stu(i).birthday;Forj = 1 To 5Print stu(i).score(j);Next jEnd IfNext iEnd SubIta x&暢対世村io射.心燒能匸幣兇制計算每個學生的平均分Private Sub

25、 Command7_Click()ClsDim zxf%, i%, j%, k%For i = 1 To UBound(kc()zxf = zxf + kc(i).xfNext iFor j = 1 To UBound(stu()For k = 1 To 5stu(j).average = stu(j).average + stu(j).score(k) * kc(k).xf / zxfstu(j).average = Format(stu(j).average, "0.00")Next kNext jFor m = 1 To UBound(stu()stu(m).rank

26、 = 1For n = 1 To UBound(stu()If stu(m).average < stu(n).average Thenstu(m).rank = stu(m).rank + 1End IfNext nNext m成績單 .txt" For Append As #3Print #3, " 序號" Space(3); " 姓名" Space(3); " 幸運日 " Space(3); " 出 生日期" Space(4); " 數學" Space(4); "

27、 英語" Space(4); "vb" Space(4); "物理" Space(3); " 專業(yè)課" Space(3); " 平均分" Space(3); " 排名" For i = 1 To UBound(stu()Print #3,Print #3, stu(i).num; Space(3); stu(i).name; Space(3); stu(i).luckyday;Space(3); stu(i).birthday; Space(3);For j = 1 To 5Print

28、 #3, stu(i).score(j); Space(3);Next jPrint #3, stu(i).average; Space(3); stu(i).rank;Next iClose #3End Sub12356 7il出生日期數竽英皓yb物理專平彫1 w11.09968995899017S.82199M-12.02tC08918578102.361993.01.18777595S215®.902 >0378757h961&2B2fi1993 08.1588656S673810.0285ASTiBae151&3fi1 0蝕02.309189867817

29、2.361M3.08.31詐75283911A1.1219911.DA.0986916573isa.&a1993,C7.I075S368S91D6.20tl82787578151.1119911.Q9.fl?R11S?nn1IIT.Mim.09-15SIS7Sfi7 ft10,nfl佔fi77Ss?1U7.AUB5 _137172A5気&1U7 _1HTfi81S2S3as154-111 995 .1fl_256575so85ia.2o7173008296阿仏EII.2U727576SBaiQI.707?72AS統(tǒng)計成績分布Private Sub Comma nd8_Click

30、()CisDim i%, j%, bsix%, ss%, se%, en%, anine%, a(1 To 25) As Integer, b(1 To5) As In teger, c(1 To 5) As In teger, d(1 To 5) As In teger, e(1 To 5) AsIn teger, o(1 To 5) As In teger, p(1 To 5) As In teger, q(1 To 5) As In teger, r(1 To 5) As In teger, s(1 To 5) As In tegerFor i = 1 To 5kc(i).zf = 0F

31、or j = 1 To UBou nd(stu()kc(i).zf = kc(i).zf + stu(j).score(i)Next jkc(i).average = kc(i).zf / UBo un d(stu()kc(i).average = Format(kc(i).average, "0.00")Print kc(i).averageNext i成績分布.txt" For Append As #4Print #4," 范圍"Space(8);" 數學"Space(3);" 英語"Space(3)

32、; "vb"Space(3);"物理"Space(3);" 專業(yè)課"For i = 1 To 5For j = 1 To UBou nd(stu()If stu(j).score(i) >= 90 The no(i) = o(i) + 1ElseIf stu(j).score(i) >= 80 The np(i) = p(i) + 1ElseIf stu(j).score(i) >= 70 Then q(i) = q(i) + 1ElseIf stu(j).score(i) >= 60 Then r(i) =

33、r(i) + 1Elses(i) = s(i) + 1End IfNext jNext iPrint #4, ">=90" Spc(8);For i = 1 To 5Print #4, o(i); Spc(4);Next iPrint #4,Print #4, ">=80" Spc(8);For i = 1 To 5Print #4, p(i); Spc(4);Next iPrint #4,Print #4, ">=70" Spc(8);For i = 1 To 5Print #4, q(i); Spc(4);Nex

34、t iPrint #4,Print #4, ">=60" Spc(8);For i = 1 To 5Print #4, r(i); Spc(4);Next iPrint #4,Print #4, " 其他" Spc(8);For i = 1 To 5Print #4, s(i); Spc(4);Next iPrint #4,Close #4End SubB12 B-UH 7. Gd L(11)打印學生成績條Private Sub Comma nd9_Click()Dim stu(1 To 20) As Stri ng成績單.txt" Fo

35、r In put As #5For i = 1 To 20Line In put #5, stu(i): Print stu(i)Next iClose #5End Sub細HEJUrh呻 吐瑞WM.£t-6 srBsflaM 93L&孕-ld&l G6iCl£irfl-Q H 13 2B<OI± B *p 晅9IB4I-R-9-r9TlgTEoaBs'0A&571&3L4s52cifli3o2a乩創(chuàng)&晶亦月&和 RTHC:日-IJCDRE nlo5戌町911HG 丄E 也衛(wèi)0 frvlIB:»&tiiE>FEsfl.7 6&7.>站 uaR廉flm 廿冷?冷1721 o 3-n.fi fi c 7 6 7 76 3 c . o1 o > 2 21 21日 0 二B.o-譏 MLAo-版區(qū)0.6 lo&il4 43 6 344-34 5 JI1