VB課程設(shè)-117567測(cè)繪C111班趙子恒

1、. 學(xué)生成績(jī)處理設(shè)計(jì)報(bào)告學(xué)院 土木工程學(xué)院 班級(jí) 測(cè)繪C111 學(xué)號(hào) 117567 姓名 趙子恒 成績(jī) 一、設(shè)計(jì)思路1.要達(dá)到的目的學(xué)習(xí)VB程序設(shè)計(jì)的方法，充分體會(huì)VB在程序設(shè)計(jì)方面的強(qiáng)大功能和特點(diǎn)，培養(yǎng)運(yùn)用VB解決實(shí)際問(wèn)題的能力。通過(guò)本次課程設(shè)計(jì)，使學(xué)生進(jìn)一步鞏固課堂上學(xué)到的知識(shí)，能利用VB中的基本控件和數(shù)組編寫一個(gè)小的應(yīng)用軟件 學(xué)生成績(jī)處理。2.關(guān)鍵問(wèn)題的解決設(shè)計(jì)程序界面選取ProgressBar 控件添加TXT文件二、模塊之間的調(diào)用關(guān)系，或程序流程圖調(diào)用調(diào)用調(diào)用調(diào)用讀取文件、計(jì)算平均分Singleplayer模塊doubleplayers模塊Singlehelp模塊doublehelp模

2、塊三、部分程序關(guān)鍵源代碼及注釋Dim data(100, 3) As StringDim num As IntegerPrivate Sub Command1_Click(Index As Integer)Close #1Select Case IndexCase 0Open "d:成績(jī).txt" For Append As #1Dim flag As BooleanFor i = 0 To 3If Text1(i) = "" Then MsgBox "請(qǐng)確認(rèn)學(xué)號(hào),姓名,分?jǐn)?shù)都已輸入", vbOKOnly, "提示"

3、; flag = TrueEnd IfNextIf Not flag Then Write #1, Text1(0).Text; Text1(1).Text; Val(Text1(2).Text); Val(Text1(3).Text) MsgBox "添加成功"End IfCase 1 Picture1.Cls Dim StrLine As String, a() As String Dim x As Integer, b As Integer Open "D:成績(jī).txt" For Input As #1 i = 0 Do While Not EOF

4、(1) Line Input #1, StrLine If StrLine <> "" Then a() = Split(StrLine, ",") For j = 0 To 3 data(i, j) = a(j) Next End If i = i + 1 Loop num = i For x = 0 To num For j = 0 To 3 Picture1.Print data(x, j) + " " Next Picture1.Print NextCase 2 Picture2.Cls Open "d:

5、成績(jī).txt" For Input As #1 While Not EOF(1) Line Input #1, StrLine ss = ss + StrLine + vbCrLf Wend Picture2.Print ssEnd SelectClose #1End SubPrivate Sub Form_Load()Open "D:成績(jī).txt" For Append As #1End SubPrivate Sub Form_Unload(Cancel As Integer) Close #1End Sub四、設(shè)計(jì)方案的完善及目前存在的問(wèn)題1設(shè)計(jì)方案要完善的地

6、方添加1個(gè)圖片框和一個(gè)命令按鈕控件，將命令按鈕的caption屬性設(shè)為“按平均分排序”。對(duì)程序的調(diào)用。對(duì)編程語(yǔ)言的進(jìn)一步書(shū)寫。五、本次設(shè)計(jì)的收獲及心得體會(huì) 通過(guò)對(duì)“學(xué)生成績(jī)處理”進(jìn)行VB編程，使我發(fā)現(xiàn)了自己的一個(gè)很大的毛?。鹤砸詾槭?。本來(lái)以為VB很簡(jiǎn)單，自己學(xué)得很好，結(jié)果卻遠(yuǎn)非所料，許多東西都不知道。自己學(xué)習(xí)的那點(diǎn)知識(shí)如同大海的一葉扁舟，根本不值得提。通過(guò)對(duì)“學(xué)生成績(jī)處理”進(jìn)行VB編程，使我發(fā)現(xiàn)原來(lái)VB如此的美妙，許多自己常用的東西原來(lái)基本上都可以用VB進(jìn)行編輯。VB的用處之大，太讓我興奮了。有時(shí)，我為了自己編了一個(gè)程序而感到欣慰，太棒了。我為學(xué)VB而感到自豪，雖然我懂得不算太多，但畢竟可以做一些簡(jiǎn)單的程序，今后有機(jī)會(huì)一定要好好學(xué)習(xí)VB。通過(guò)對(duì)“學(xué)生成績(jī)處理”進(jìn)行VB編程，使我又懂得了一些簡(jiǎn)單的命令及一些簡(jiǎn)單的控件，如porogressbar控件，timer控件，文件的打開(kāi)及寫入，畫直線及其用直線能畫出的圖形，可以說(shuō)是收獲頗豐吧。 最后還得謝謝老師的檢查及指導(dǎo)。六、對(duì)該題目和VB設(shè)計(jì)的意見(jiàn)和建議1. 對(duì)該題目的意見(jiàn)和建議希望能多加一些控件，多一些我們已經(jīng)學(xué)過(guò)的程序，那樣也算可以學(xué)以至用了吧，當(dāng)然，有一些沒(méi)學(xué)過(guò)的程序也好，可以提高自己的自學(xué)能力。2對(duì)本次設(shè)計(jì)的意見(jiàn)和建議這次設(shè)計(jì)的不算很完美，