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

1、. 學(xué)生成績處理設(shè)計報告學(xué)院 土木工程學(xué)院 班級 測繪C111 學(xué)號 117567 姓名 趙子恒 成績 一、設(shè)計思路1.要達(dá)到的目的學(xué)習(xí)VB程序設(shè)計的方法，充分體會VB在程序設(shè)計方面的強(qiáng)大功能和特點，培養(yǎng)運用VB解決實際問題的能力。通過本次課程設(shè)計，使學(xué)生進(jìn)一步鞏固課堂上學(xué)到的知識，能利用VB中的基本控件和數(shù)組編寫一個小的應(yīng)用軟件 學(xué)生成績處理。2.關(guān)鍵問題的解決設(shè)計程序界面選取ProgressBar 控件添加TXT文件二、模塊之間的調(diào)用關(guān)系，或程序流程圖調(diào)用調(diào)用調(diào)用調(diào)用讀取文件、計算平均分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:成績.txt" For Append As #1Dim flag As BooleanFor i = 0 To 3If Text1(i) = "" Then MsgBox "請確認(rèn)學(xué)號,姓名,分?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:成績.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、成績.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:成績.txt" For Append As #1End SubPrivate Sub Form_Unload(Cancel As Integer) Close #1End Sub四、設(shè)計方案的完善及目前存在的問題1設(shè)計方案要完善的地

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