長江大學(xué)VB上機(jī)實(shí)習(xí)報(bào)告范本

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

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

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

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

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

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

7、變?yōu)橄嗤?、在編寫程序時(shí)，由于該系統(tǒng)的程序代碼較多，因此在編寫時(shí)要合理。5、在打印成績條、不及格名單、優(yōu)等生等信息時(shí)，應(yīng)邊用 write 語句分別將數(shù) 據(jù)存入一個(gè)新的文件中。6、實(shí)習(xí)必須按著老師的嚴(yán)格要求完成所有的實(shí)習(xí)任務(wù)，并整理成文件打印。五.窗體設(shè)計(jì)與程序代碼1.此次窗體設(shè)計(jì)使用了 11個(gè)命令按鈕分別對(duì)應(yīng)不同的系統(tǒng)功能要求，具體界 面如下2.程序代碼統(tǒng)計(jì)“出生日”與幸運(yùn)日相同的人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)計(jì)不及格學(xué)生的名單Private Sub Comma nd1O_Click()CisPrint "序號(hào)"Spc(3);" 姓名"Spc;" 成績"Spc;" 學(xué)分

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 " 學(xué)號(hào)""英語"

10、;Space(3); "VB" Space(3);" 數(shù)學(xué)"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)計(jì)各幸運(yùn)數(shù)字的人數(shù)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 "幸運(yùn)數(shù)字為"& i;"的人數(shù)為："& luckypeopleluckypeople = 0Next iEnd Sub查詢信息Private Sub Comma nd3_Click()ClsDim rm As Stri ng, i%, j%rm = In putBox(&qu

14、ot;請(qǐng)輸入你想要查詢的同學(xué)的姓名")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;請(qǐng)依次按照序號(hào)，姓名，幸運(yùn)日，出生日期，英語,vb，數(shù)學(xué)，體育，專業(yè)課的順序輸入新同學(xué)的信息，中間用空格隔開")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聲臣?xì)罢糒i同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冊(cè)涉；雀碾陣也T9 7 9 丁6* 8flc eb1

19、t n Bbl,“出生日'與葺:運(yùn)曰帕同的氐| 齢h&宇運(yùn)蚊匸曲人甜團(tuán)除倚擔(dān)|忸畝幸運(yùn)數(shù)I討梅忙事主的平均分統(tǒng)計(jì)康SB些瑋I訂EP學(xué)主或鍛備|平艮幡爭空霉單 打印優(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產(chǎn)加 A M7 HI0 7*«?JS5：刪除信息Private Sub Comma nd5_Click()CisDim rm As Stri ngrm = In putBox("請(qǐng)輸入你要?jiǎng)h除的同學(xué)的姓名")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 會(huì) 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】網(wǎng)，07. 101993. «.2C1994. 0*0. 02 1W3-Q9. 15 曲4. 10- 0S1QM 應(yīng) 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 時(shí)73Bl卍607ES2OS6C- 餡86816&I?燔改幸運(yùn)竝孚河牛學(xué)空的平峋井議計(jì)良維廿布I打S爭生魄誼埶豐及榕學(xué)生足單修改幸運(yùn)數(shù)子Private Sub Comma nd6_Click()CisDim rm As Stri ng, shuzi As Stri ng, i%, j%rm = In putBox("請(qǐng)輸入你要修改的同學(xué)的姓名")

24、 shuzi = InputBox("請(qǐng)輸入你要修改后的幸運(yùn)數(shù)字")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射.心燒能匸幣兇制計(jì)算每個(gè)學(xué)生的平均分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, " 序號(hào)" Space(3); " 姓名" Space(3); " 幸運(yùn)日 " Space(3); " 出 生日期" Space(4); " 數(shù)學(xué)" 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出生日期數(shù)竽英皓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佔(zhàn)fi77Ss?1U7.AUB5 _137172A5気&1U7 _1HTfi81S2S3as154-111 995 .1fl_256575so85ia.2o7173008296阿仏EII.2U727576SBaiQI.707?72AS統(tǒng)計(jì)成績分布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);" 數(shù)學(xué)"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)打印學(xué)生成績條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細(xì)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