第一篇：vB作業(yè)說明書（共）

VB期末作業(yè)

學(xué)生信息管理系統(tǒng)

班級：測控1101 學(xué)號：1110340110 姓名：劉太麗

目錄

設(shè)計(jì)目的…………………………………………………………………………………………1 設(shè)計(jì)目標(biāo)…………………………………………………………………………………………1 設(shè)計(jì)說明…………………………………………………………………………………………2 程序代碼…………………………………………………………………………………………3

1.設(shè)計(jì)目的

學(xué)校的學(xué)生信息管理系統(tǒng)采用人工方式,由于現(xiàn)在學(xué)生人數(shù)不段增多,且學(xué)生信息的工作都在月底進(jìn)行,時(shí)間要求緊.所以給學(xué)校學(xué)籍科人員的工作負(fù)擔(dān)重,效率低,要不段修改和增減學(xué)生的信息,所以我校學(xué)籍科迫切要求開發(fā)一個(gè)計(jì)算機(jī)學(xué)生信息管理系統(tǒng),用以取代現(xiàn)行的手工操作。

按照軟件項(xiàng)目開發(fā)計(jì)劃書所確定的工作范圍為指南。為明確軟件需求，搞清該項(xiàng)目的數(shù)據(jù)流向和數(shù)據(jù)結(jié)構(gòu)，為設(shè)計(jì)階段打下堅(jiān)實(shí)的基礎(chǔ)；確定系統(tǒng)功能，設(shè)計(jì)時(shí)應(yīng)遵循的原則，約束條件以及性能等要求；建立和保持與用戶之間的通信，確保以后的工作能夠比較順利的開展，撰寫需求規(guī)格說明書即當(dāng)前文檔。本文檔供項(xiàng)目經(jīng)理、設(shè)計(jì)人員、測試人員等軟件開發(fā)成員以及用戶參考。

2.設(shè)計(jì)目標(biāo)

用計(jì)算機(jī)管理系統(tǒng)代替手工學(xué)生信息管理,計(jì)算機(jī)學(xué)生信息管理系統(tǒng)應(yīng)實(shí)現(xiàn)以下目標(biāo):（1）對原有的原始學(xué)生信息管理進(jìn)行分析整理.用做原始的數(shù)據(jù)輸入到計(jì)算機(jī),原始數(shù)據(jù)保存待查。

（2）取消有關(guān)手工學(xué)生信息系統(tǒng)的操作,所以數(shù)據(jù)都保存在計(jì)算機(jī)磁盤上。

（3）各種表及有關(guān)數(shù)據(jù)都又計(jì)算機(jī)系統(tǒng)生成并且輸出。（4）有靈活方便的學(xué)生信息數(shù)據(jù)更新。（5）可以隨時(shí)查詢我班學(xué)生的學(xué)生信息等。3.功能說明

（1）學(xué)生基本信息的增加、保存和刪除。學(xué)生基本信息包括：學(xué)號、姓名、性別、生日和宿舍。

（2）查找學(xué)生信息，可通過姓名、學(xué)號查找

（3）登錄界面

4.程序代碼 1.Form1 Private Sub Command1_Click()Form1.Hide Form2.Show End Sub

Private Sub Form_Load()

End Sub

Private Sub Text1_Change()End End Sub

2.Form2 Private Sub Command1_Click()

Adodc1.Recordset.MoveFirst

Adodc2.Recordset.MoveFirst

End Sub

Private Sub Command10_Click()ask = MsgBox(“刪除否？”, vbYesNo, “警告”)If ask = 6 Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast Adodc2.Recordset.Delete Adodc2.Recordset.MoveNext If Adodc2.Recordset.EOF Then Adodc2.Recordset.MoveLast End If

End Sub

Private Sub Command2_Click()

Adodc1.Recordset.MoveLast

Adodc2.Recordset.MoveLast End Sub

Private Sub Command3_Click()

Adodc1.Recordset.MovePrevious

If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst

Adodc2.Recordset.MovePrevious

If Adodc2.Recordset.BOF Then Adodc2.Recordset.MoveFirst End Sub

Private Sub Command4_Click()

Adodc1.Recordset.MoveNext

If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast

Adodc2.Recordset.MoveNext

If Adodc2.Recordset.EOF Then Adodc2.Recordset.MoveLast End Sub

Private Sub Command5_Click()Dim xm

xm = InputBox(“輸入姓名”, “查找窗”)

Adodc1.Recordset.Find “姓名=' ” & xm & “ '”, , , 1

If Adodc1.Recordset.EOF Then MsgBox “無此姓名！”, , “提示” End Sub

Private Sub Command6_Click()

Dim mno As String

mno = InputBox(“輸入學(xué)號”, “查找窗”)

Adodc1.Recordset.Find “學(xué)號=' ” & mno & “ '”, , , 1

Adodc2.Recordset.Find “學(xué)號=' ” & mno & “ '”, , , 1

If Adodc1.Recordset.EOF Then MsgBox “無此學(xué)號！”, , “提示” End Sub

Private Sub Command7_Click()ask = MsgBox(“是否退出？”, vbYesNo, “提示”)If ask = 6 Then

Form1.Show Form2.Hide End If

End Sub

Private Sub Command8_Click()Adodc1.Recordset.AddNew Adodc2.Recordset.AddNew End Sub

Private Sub Command9_Click()Adodc1.Recordset.Update Adodc2.Recordset.Update

End Sub

Private Sub DataGrid2_Click()

End Sub

Private Sub Form_Load()

End Sub

第二篇：VB程序設(shè)計(jì)(2014大作業(yè))

《VB程序設(shè)計(jì)》大作業(yè)

一、大作業(yè)的內(nèi)容

本次大作業(yè)要求學(xué)生根據(jù)所學(xué)知識以及個(gè)人愛好，設(shè)計(jì)開發(fā)一個(gè)VB應(yīng)用小程序。要能體現(xiàn)出：

1．《VB程序設(shè)計(jì)》各種語句的綜合使用能力； 2．《VB程序設(shè)計(jì)》各種相關(guān)控件的使用能力；

3．根據(jù)具體的設(shè)計(jì)題目，設(shè)計(jì)清晰、美觀界面的能力； 4．一定的綜合設(shè)計(jì)能力。

二、大作業(yè)的要求

本次大作業(yè)應(yīng)滿足以下要求：

實(shí)用性：應(yīng)用程序要有明確的應(yīng)用主題，有一定的實(shí)用價(jià)值。結(jié)構(gòu)性：應(yīng)用程序具有良好的程序結(jié)構(gòu)?？勺x性：應(yīng)用程序具有較好的可讀性。全面性：應(yīng)用程序應(yīng)包含比較全面的功能。

友好性：合理使用VB提供的各種控件，設(shè)計(jì)友好、美觀的使用界面。

三、大作業(yè)的步驟 1．根據(jù)個(gè)人興趣、愛好，以及提交時(shí)間的要求，自己確定設(shè)計(jì)題目（可參考附件1）； 2．查找與設(shè)計(jì)題目相關(guān)的資料；

3．進(jìn)行應(yīng)用程序總體結(jié)構(gòu)、使用功能的設(shè)計(jì)； 4．進(jìn)行應(yīng)用程序的界面設(shè)計(jì)和源程序代碼的編寫； 5．上機(jī)編輯、調(diào)試程序；

6．保存應(yīng)用程序, 并生成可執(zhí)行文件； 7．撰寫設(shè)計(jì)報(bào)告。

四、設(shè)計(jì)報(bào)告的基本格式

設(shè)計(jì)報(bào)告的基本內(nèi)容至少包括封面、正文、總結(jié)三部分。(1）．封面(包括：題目、班級、姓名、指導(dǎo)教師、完成日期等信息)(2)．正文

1、課題的選材過程（設(shè)計(jì)思路）；

2、設(shè)計(jì)的將要達(dá)到的目標(biāo)；

3、總體設(shè)計(jì)結(jié)構(gòu)與功能；

（1）總體設(shè)計(jì)結(jié)構(gòu)介紹（繪制：結(jié)構(gòu)流程圖）

（2）各功能模塊運(yùn)行界面的功能、算法和操作步驟；

4、設(shè)計(jì)結(jié)果分析；（運(yùn)行結(jié)果展示、正確性分析）(3)．總結(jié)（感想、收獲、啟發(fā)、存在的問題）

五、課程大作業(yè)提交

（1）形式

設(shè)計(jì)報(bào)告 + 源程序文件(含可執(zhí)行文件)

其中：<1>設(shè)計(jì)報(bào)告的封面統(tǒng)一（附件2）；

<2>源程序文件（含 *.vbp；*.frm；*.exe）打包壓縮成一個(gè)文件，以學(xué)號+姓名（例如： 11020741姓名）為文件名。

（2）時(shí)間

2014年5月10日 之前；

（3）方法

紙質(zhì)報(bào)告及壓縮文件交各班學(xué)委，按順序排好后由學(xué)委統(tǒng)一上交；

附件一：

參考題目

1、《班級信息系統(tǒng)》

描述：如同班級和每個(gè)成員的成長日記，信息量大，生動(dòng)活潑，有紀(jì)念意義。要求：具有數(shù)據(jù)庫、圖片庫等功能。

2、《幼兒算術(shù)游戲》

本系統(tǒng)面向3-6歲幼兒進(jìn)行加、減法練習(xí)，要生動(dòng)活潑，寓教于樂，主要以圖形、動(dòng)畫、聲音等多媒體形式提供學(xué)習(xí)環(huán)境。要求：

題型包括選擇題和填空題兩種形式。

隨機(jī)出題，范圍為100以內(nèi)的加、減法，也可以是加減法的混合運(yùn)算。以練習(xí)和試卷兩種形式出題。

答案可以提供圖片的形式進(jìn)行選擇，也可以從鍵盤輸入。答題后要用聲音或者動(dòng)畫給出獎(jiǎng)勵(lì)或評價(jià)。

提供背景音樂。

3、《記事本程序》

記事本主要是對文字進(jìn)行編輯處理的軟件。能進(jìn)行新建、打開、保存等功能；并且能運(yùn)用 剪貼、復(fù)制、粘貼、清除功能，對文字更方便的錄入。另外還可以根據(jù)用戶的需要查找相應(yīng)的 文字，實(shí)現(xiàn)編輯功能。

由于記事本是一套簡單的文本編輯器。要求記事本不但要具備完善的編輯、方便的性能，還要提供更簡便的操作。這就要求設(shè)計(jì)人員在編輯過程當(dāng)中盡可能的考慮到。包括以下內(nèi)容： *對文本進(jìn)行編輯； *用戶根據(jù)不同的權(quán)限可對文本進(jìn)行添加、刪除、修改等操作；*對記事本進(jìn)行各種編輯（精確、簡單）；

4、《科學(xué)計(jì)算器》設(shè)計(jì)

本科學(xué)計(jì)算器是一種能實(shí)現(xiàn) 加、減、乘、除、倒數(shù)、乘方、正玄、余玄、正切、In、n!函數(shù)、進(jìn)制、弧度轉(zhuǎn)換等運(yùn)算功能，并帶有存儲器、統(tǒng)計(jì)框等，基本實(shí)現(xiàn)了Windows自帶計(jì)算器的所有功能。要實(shí)現(xiàn)計(jì)算器的這些功能就用到我們所學(xué)的VB知識編寫程序來實(shí)現(xiàn)運(yùn)算功能并解決問題，也是我們實(shí)訓(xùn)要達(dá)到的目的。

5、個(gè)人日常收入與開銷記錄、統(tǒng)計(jì)與查詢

個(gè)人日常收入與開銷記錄包括收入與開銷的時(shí)間、收入與開銷來源或者去向、類型，備注，統(tǒng)計(jì)功能按月統(tǒng)計(jì)與按年統(tǒng)計(jì)，查詢包含按時(shí)間段和類型查詢。

6、《學(xué)生成績管理系統(tǒng)》

本系統(tǒng)由三部分組成：系統(tǒng)管理、學(xué)籍管理、成績管理、報(bào)表。1.用戶管理：實(shí)現(xiàn)用戶的添加、刪除、密碼修改、用戶登錄等功能。2.成績管理：實(shí)現(xiàn)學(xué)生的成績錄入、成績的查詢、成績的統(tǒng)計(jì)。4.報(bào)表：可以打印學(xué)生的學(xué)籍信息、成績。數(shù)據(jù)存放到access數(shù)據(jù)庫中。使用菜單、界面友好、功能完善。

VB學(xué)單詞

本系統(tǒng)功能要求：

1.能夠自動(dòng)顯示單個(gè)單詞中英文及詞性。

2.顯示單個(gè)單詞的時(shí)間可以調(diào)整，并隨時(shí)顯示已用時(shí)間。3.有暫停功能。

4.可用文本文件存儲單詞。

題目：飯店點(diǎn)菜系統(tǒng)

目的 通過該題目的設(shè)計(jì)，使學(xué)生掌握軟件開發(fā)過程的問題分析、系統(tǒng)設(shè)計(jì)、程序編碼、測試等基本方法和技能；掌握利用VB開發(fā)數(shù)據(jù)庫系統(tǒng)的方法

主要內(nèi)容和要求（包括原始數(shù)據(jù)、技術(shù)參數(shù)、設(shè)計(jì)要求等）

主要功能有：

菜式瀏覽功能：能分類瀏覽飯店的所有菜式、采樣及價(jià)格；

點(diǎn)菜功能：進(jìn)行點(diǎn)菜操作后能預(yù)覽點(diǎn)菜結(jié)果，并可對其進(jìn)一步修改； 留言板功能：記錄顧客的意見和建議，并具有瀏覽功能；

抽獎(jiǎng)功能：當(dāng)顧客的消費(fèi)達(dá)到指定金額時(shí)，可分檔抽取小獎(jiǎng)品。要求：

用數(shù)據(jù)庫或文件保存相關(guān)信息。

VB程序語言設(shè)計(jì)

課程大作業(yè)

題目名稱：_________________________________ 班 級：_________________________________ 姓 名：_________________________________ 學(xué) 號：_________________________________ 課程教師：

溫海駿

學(xué) 期： 2013-2014學(xué)年

第2學(xué)期

完成時(shí)間：

第三篇：可視化程序設(shè)計(jì)(VB)第一次作業(yè)

可視化程序設(shè)計(jì)（VB）第一次作業(yè)

一、單項(xiàng)選擇題

1.Visual Basic程序中分隔各語句的字符是(:)

2.工程文件的擴(kuò)展名是（vbp）

3.下列運(yùn)算符中，運(yùn)算級別最高的是（*）

4.下列可作為Visual Basic的變量名的是(Filename)

5.下面的程序的輸出結(jié)果是(21 21)

x=5

For i = 1 To 20 Step 2

x=x+i5

Next i

Print x, i

6.下列賦值語句合法的是（A=A+B）

7.下列屬性中，目錄列表框和文件列表框都有的屬性為（Path）。

8.執(zhí)行下面的程序段后，x的值為(21)

x=5

For i = 1 To 20 Step 2

x=x+i5

Next i

9.向一個(gè)順序文件中寫數(shù)據(jù)時(shí)，（Append）是從文件末尾添加的方式打開順序文件。

10.Seek方法用于在（表）類型的記錄集中查找滿足條件的記錄。

11.當(dāng)函數(shù)EOF()的返回值為真時(shí)，表示文件的指針指向（尾部）

12.如果要退出Do?Loop循環(huán)，可使用語句（Exit Do）。

13.在VB中，稱對象的數(shù)據(jù)為（屬性）。

14.不論何對象，都具有（Name）屬性。

15.使用Public Const語句聲明一個(gè)全局的符號常量時(shí)，該語句應(yīng)放在（標(biāo)準(zhǔn)模塊的通用聲明段）。

16.下面關(guān)于變量的作用域，正確的描述是（同一模塊中不同級的變量不能同名）。

17.設(shè)a=2，b=3，c=4，d=5，下列表達(dá)式的值是（False）a＞b AND c＜=d OR 2*a＞c

18.把數(shù)值型轉(zhuǎn)換為字符（串）型需要使用下列哪一個(gè)函數(shù)？（Str）

19.以下敘述錯(cuò)誤的是（KeyPress事件中可以識別鍵盤上某個(gè)鍵的按下與釋放）

20.用于設(shè)置或返回文件類型的屬性是（Pattern）。

21.要?jiǎng)h除列表框中的某一個(gè)項(xiàng)目，需要使用（ReMoveItem）方法。

22.以下語句的輸出結(jié)果是(在立即窗口中)(Δ27ΔΔ65Δ)a=27 ＜CR＞(＜CR＞為回車)b=65 ＜CR＞ Print a;b ＜CR＞

23.語句Print 5*55/5的輸出結(jié)果是(25)

24.編寫如下事件過程：

private sub form_mousedown（button as integer，shift as integer，x as single，y as single）

if shift=6 and button=2 then

print “BBBB”

end if

end sub

程序運(yùn)行后，為了在窗體上輸出“BBBB”，應(yīng)執(zhí)行的操作為（同時(shí)按下ctrl、alt鍵和鼠標(biāo)右鍵）

25.如果X是一個(gè)正實(shí)數(shù)，對X的第三位小數(shù)四舍五入的表達(dá)式是（0.01 * Int(100 *(X +0.005))）

第四篇：西北農(nóng)林科技大學(xué) vb實(shí)習(xí)作業(yè)

第五章

(1)例 5-2

Private Sub Command1_Click()Dim sum!, n%, aver!sum = 0 n = 0 x = Val(InputBox(“請輸入”))Do While x <>-9999 sum = sum + x n = n + 1 x = Val(InputBox(“請輸入”))Loop aver = sum / n MsgBox “共輸入” & n & “ 個(gè)數(shù),平均值為:” & aver End Sub

(2)例 5-3 Private Sub Command1_Click()Dim a%(65 To 90), c As String * 1 le = Len(Text1)For i = 1 To le c = UCase(Mid(Text1, i, 1))If c >= “A” And c <= “Z” Then j = Asc(c)a(j)= a(j)+ 1 End If Next i For j = 65 To 90 If a(j)> 0 Then Picture1.Print “";Chr(j);”=“;a(j);”“;Next j End Sub

(3)例 5-4 Private Sub Command1_Click()Dim a$()Dim x(0 To 10)As Integer a = Split(Text1, ”,“)For i = o To UBound(a)

If(a(i)<= 100 And a(i)> 0)Then

k = a(i)10

x(k)= x(k)+ 1

End If

Next i

Print

Print ”100分的有:“ & x(10)& ”人“

For i = 9 To 0 Step-1

Print i * 10 & ”分-“;i * 10 + 9&;”分有:“ & x(i)& ”人“

Next i

End Sub

Private Sub Command2_Click()End End Sub

(4))輸入多名學(xué)生的一門課程成績（成績用數(shù)組存放，要求成績用文本框輸入），統(tǒng)計(jì)0-

59、60-69、70-79、80-89、90-100個(gè)分?jǐn)?shù)段人數(shù)。

Private Sub Command1_Click()Dim a$()Dim x(0 To 10)As Integer a = Split(Text1, ”,“)For i = o To UBound(a)

If(a(i)<= 100 And a(i)> 0)Then

k = a(i)10

x(k)= x(k)+ 1

End If

Next i

Print

Print ”90-100分的有:“ & x(10)+ x(9)& ”人“

For i = 8 To 6 Step-1

Print i * 10 & ”分-“;i * 10 + 9&;”分有:“ & x(i)& ”人“

Next i

For i = 0 To 5

s = x(i)+ s

Next i

Print ”0-59分的有“ & s;”人“ End Sub

(5)例 5-6(用窮舉法、輾轉(zhuǎn)相除法兩種方法)Private Sub Command1_Click()Dim m%, n% m = Val(InputBox(”請輸入第一個(gè)數(shù)m:“))n = Val(InputBox(”請輸入第二個(gè)數(shù)n:“))If m < n Then t = m: m = n: n = t For x = m To m * n If x Mod m = 0 And x Mod n = 0 Then Print ”最小公倍數(shù)為:";x End Sub(6)例 5-7(7)例 5-8(8)例 5-9(9)用比較交換法對10個(gè)學(xué)生成績實(shí)現(xiàn)從低到高排序

(10)用選擇法對10個(gè)學(xué)生成績實(shí)現(xiàn)從低到高排序

(11)例 5-12(12)第136頁第3題(13)第136頁第4題(14)第136頁第5題(15)第136頁第7題(16)第136頁第8題(17)第136頁第11題

第五篇：VB作業(yè)-模擬成績管理系統(tǒng)

VB程序設(shè)計(jì) 模擬成績管理系統(tǒng)

學(xué)院：汽車學(xué)院

專業(yè)：（交通運(yùn)輸）汽車運(yùn)用工程 班級： 姓名 學(xué)號：

模擬成績管理系統(tǒng)

2016 《VB程序設(shè)計(jì)》作業(yè)要求

1.做一個(gè)成績管理系統(tǒng)。

2.系統(tǒng)中包括部分學(xué)生個(gè)人信息，如學(xué)號，姓名，性別，出生年月日，班級，籍貫，家庭住址，家庭電話，備注等，及若干（不少于8門）課程成績和課程學(xué)分；輸入不少于10條記錄；

3.需計(jì)算總評成績（即學(xué)分加權(quán)平均成績），并計(jì)算排名，且反映在字段中； 4.程序需具備的功能：記錄瀏覽，添加，修改，刪除，查詢（按姓名或?qū)W號查詢）

5.建議不要用ADO控件 6.作業(yè)的提交：（1）電子版。

a.該版本應(yīng)該是在你的或老師的電腦上都能運(yùn)行的，與數(shù)據(jù)庫的路徑無關(guān)的，提交以前請?jiān)谄渌瑢W(xué)電腦上運(yùn)行一下，確保程序的運(yùn)行和電腦無關(guān)；

b.把所有文件放在同一個(gè)文件夾中，壓縮文件名：VB-班級-學(xué)號-姓名，如：VB-汽運(yùn)1班-xxxxxxxx-張三.zip； c.提交郵箱隨后公布；

（2）紙質(zhì)版。紙質(zhì)版應(yīng)包括：

a.封面，作業(yè)要求； b.主要界面；

c.主要代碼，附程序功能注釋及主要語句注釋。d.附必要的說明。

模擬成績管理系統(tǒng)

系統(tǒng)運(yùn)行界面

查詢功能

檢索框內(nèi)輸入學(xué)號或姓名，點(diǎn)擊查詢，即可在右方顯示基本信息，并顯示總評成績。點(diǎn)擊清空按鈕后，可繼續(xù)輸入。

例如:輸入學(xué)號“09”后，顯示界面如下圖

如果沒有找到紀(jì)錄，則發(fā)出警告，如下圖

主要代碼： 查詢按鈕: Private Sub Command1_Click()

Me.Data1.Recordset.Movefirst 將記錄指針指向第一個(gè)紀(jì)錄

If Me.Combo1.Text <> “" Then

Me.Data1.Recordset.FindFirst ”name='“ & Combo1.Text & ”'“

If Me.Data1.Recordset.NoMatch Then

MsgBox ”請重新輸入！“, 48, ”注意“ 未找到匹配的紀(jì)錄，則顯示提示

Combo1.Clear

Combo2.Clear

Else

Me.Data1.Recordset.FindFirst ”name='“ & Combo1.Text & ”'“ 查找

Combo2.Text = Data1.Recordset(”number“)顯示

End If

End If

If Me.Combo2.Text <> ”“ Then 輸入學(xué)號時(shí)

模擬成績管理系統(tǒng)

Me.Data1.Recordset.FindFirst ”number='“ & Combo2.Text & ”'“

If Me.Data1.Recordset.NoMatch Then

MsgBox ”請重新輸入！“, 48, ”注意“

Combo1.Clear

Combo2.Clear

Else

Me.Data1.Recordset.FindFirst ”number='“ & Combo2.Text & ”'“

Combo1.Text = Data1.Recordset(”name“)

End If End If Private grade As String * 5

grade =(Val(Text8.Text)* Val(Me.Text17.Text)+ Val(Text9.Text)* Val(Me.Text18.Text)+ Val(Text10.Text)* Val(Me.Text20.Text)+ Val(Text11.Text)* Val(Me.Text21.Text)+ Val(Text12.Text)* Val(Me.Text22.Text)+ Val(Text13.Text)* Val(Me.Text23.Text)+ Val(Text14.Text)* Val(Me.Text24.Text)+ Val(Text15.Text)* Val(Me.Text25.Text)+ Val(Text16.Text)* Val(Me.Text26.Text))/(Val(Me.Text17.Text)+ Val(Me.Text18.Text)+ Val(Me.Text20.Text)+ Val(Me.Text21.Text)+ Val(Me.Text22.Text)+ Val(Me.Text23.Text)+ Val(Me.Text24.Text)+ Val(Me.Text25.Text)+ Val(Me.Text26.Text))

計(jì)算加權(quán)成績

Me.Text19.Text = grade End Sub

添加功能

點(diǎn)擊“添加”按鈕后，彈出新窗口，輸入完整信息后，點(diǎn)擊更新，如果信息 不完整，系統(tǒng)會提示“請輸入完整數(shù)據(jù)！”。輸入完成后，點(diǎn)擊更新，數(shù)據(jù)便錄入 數(shù)據(jù)表中，并返回初始界面，可繼續(xù)輸入。點(diǎn)擊“取消”按鈕后，退出窗口2，返回窗口一，繼續(xù)進(jìn)行其他操作。

模擬成績管理系統(tǒng)

主要代碼： 添加按鈕

Private Sub Command3_Click()

inNum = 1

Form2.Show 1

End Sub 窗口二代碼

Private Sub Command1_Click()

If Text1.Text = ”“ Or Text2.Text = ”“ Or Text3.Text = ”“ Or Text4.Text = ”“ Or Text5.Text = ”“ Or Text6.Text = ”“ Or Text7.Text = ”“ Or Text8.Text = ”“ Or Text9.Text = ”“ Or Text10.Text = ”“ Or Text11.Text = ”“ Or Text12.Text = ”“ Or Text13.Text = ”“ Or Text14.Text = ”“ Or Text15.Text = ”“ Or Text16.Text = ”“ Or Text17.Text = ”“ Or Text18.Text = ”“ Or Text20.Text = ”“ Or Text21.Text = ”“ Or Text22.Text = ”“ Or Text23.Text = ”“ Or Text24.Text = ”“ Or Text25.Text = ”“ Or Text26.Text = ”“ Then 提示輸入完整數(shù)據(jù)

b = MsgBox(”請輸入完整數(shù)據(jù)！“, 4 + 48, ”注意“)

Text1.SetFocus

Exit Sub

End If

With Data1

.Recordset.AddNew

.Recordset(”number“)= Text1.Text 將數(shù)據(jù)寫入data1

.Recordset(”name“)= Text2.Text

.Recordset(”sex“)= Text3.Text

.Recordset(”birthday(year)“)= Text4.Text

……

.Recordset.Update

End With

Text1.Text = ”“: Text2.Text = ”“: Text3.Text = ”“: Text4.Text = ”“: Text5.Text = ”“: Text6.Text = ”“: Text7.Text = ”“: Text8.Text = ”“: Text9.Text = ”“: Text10.Text = ”“: Text11.Text = ”“: Text12.Text = ”“: Text13.Text = ”“: Text14.Text = ”“: Text15.Text = ”“: Text16.Text = ”“: Text17.Text = ”“: Text18.Text = ”“: Text20.Text = ”“: Text21.Text = ”“: Text22.Text = ”“: Text23.Text = ”“: Text24.Text = ”“: Text25.Text = ”“: Text26.Text = ”“: Text1.SetFocus End Sub Private Sub Command2_Click()

Unload Me

點(diǎn)擊取消按鈕時(shí)

Form1.Show

End Sub

窗口二與data1數(shù)據(jù)表連接

Private Sub Form_Load()

Me.Data1.DatabaseName = App.Path + ”201322020301-呂天翔.mdb“

Me.Data1.RecordSource = ”grade management“

模擬成績管理系統(tǒng)

End Sub

修改功能

點(diǎn)擊“修改”按鈕后，按鈕消失，‘保存’按鈕出現(xiàn)，同時(shí)課程學(xué)分部分顯現(xiàn)，可一并修改，修改完成后，點(diǎn)擊保存，顯示警告“當(dāng)前記錄將被修改，確定修改？”

點(diǎn)擊確定，完成修改，并回到初始界面。

主要代碼： 點(diǎn)擊修改按鈕

Private Sub Command4_Click()

Me.Text17.Visible = True

Me.Text18.Visible = True

Me.Text20.Visible = True

Me.Text21.Visible = True

Me.Text22.Visible = True

Me.Text23.Visible = True

Me.Text24.Visible = True

Me.Text25.Visible = True

Me.Text26.Visible = True

Label8(2).Visible = True

Me.Command3.Visible = False

Me.Command4.Visible = False

Me.Command5.Visible = False

Me.Command6.Visible = False

Me.Command10.Visible = True End Sub 點(diǎn)擊保存按鈕

調(diào)整 課程學(xué)分部分 可見性

調(diào)整按鈕可見性

顯示提示

選擇“否”時(shí)選擇退出 否則進(jìn)入

寫入

狀態(tài)

模擬成績管理系統(tǒng)

Private Sub Command10_Click()

a = MsgBox(”當(dāng)前記錄將被修改，確定修改？“, 4 + 48, ” 警告 “)

If a = vbNo Then Exit Sub

Me.Data1.Recordset.Edit

With Data1

.Recordset(”number“)= Text1

.Recordset(”name“)= Text2

.Recordset(”sex“)= Text3

… …

.Recordset(”transportation-xuefen“)= Me.Text24

.Recordset(”automobile-xuefen“)= Me.Text25

.Recordset(”engine-xuefen“)= Me.Text26

End With

Data1.Refresh

Combo1.Clear

Combo2.Clear

End Sub

刪除功能

點(diǎn)擊“刪除”按鈕后將彈出“當(dāng)前記錄將被刪除，確認(rèn)刪除？”對話框，點(diǎn)擊“是”按鈕后，將當(dāng)前記錄從data1中刪除，并更新data1；若點(diǎn)擊“否”，則退出，返回初始界面。

主要代碼：

Private Sub Command5_Click()

顯示提示

a = MsgBox(”當(dāng)前記錄將被刪除，確定刪除？“, 4 + 48, ” 警告 “)

If a = vbNo Then Exit Sub

Me.Data1.Recordset.Delete

進(jìn)行刪除操作

Me.Data1.Refresh

更新data1

Combo1.Clear

Combo2.Clear End Sub

總評成績計(jì)算

算法介紹

用課程學(xué)分部分?jǐn)?shù)據(jù)與考試成績計(jì)算總評成績，課程學(xué)分部分通常隱藏在窗體中。

情況一 瀏覽時(shí)即顯示總評成績

模擬成績管理系統(tǒng)

點(diǎn)擊data控件按鈕瀏覽數(shù)據(jù)的同時(shí)，該數(shù)據(jù)的總評成績也同時(shí)顯示。

主要代碼: Private Sub Data1_Validate(Action As Integer, Save As Integer)

If Me.Data1.Recordset.EOF = True Then

如果當(dāng)前界面沒有顯示數(shù)據(jù)

Me.Data1.Recordset.Movefirst

為防止瀏覽時(shí)出錯(cuò)

Else

grade =(Val(Text8.Text)* Val(Me.Text17.Text)+ Val(Text9.Text)*

Val(Me.Text18.Text)+ Val(Text10.Text)* Val(Me.Text20.Text)+ Val(Text11.Text)*

Val(Me.Text21.Text)+ Val(Text12.Text)* Val(Me.Text22.Text)+ Val(Text13.Text)*

Val(Me.Text23.Text)+ Val(Text14.Text)* Val(Me.Text24.Text)+ Val(Text15.Text)*

Val(Me.Text25.Text)+ Val(Text16.Text)* Val(Me.Text26.Text))/(Val(Me.Text17.Text)+

Val(Me.Text18.Text)+ Val(Me.Text20.Text)+ Val(Me.Text21.Text)+ Val(Me.Text22.Text)

+ Val(Me.Text23.Text)+ Val(Me.Text24.Text)+ Val(Me.Text25.Text)+

Val(Me.Text26.Text))

總評成績的計(jì)算

Me.Text19.Text = grade

End If End Sub

情況二：查詢時(shí)即顯示其總評成績

計(jì)算方法相同，此處不再贅述。

排名功能

點(diǎn)擊“排名”按鈕后，根據(jù)總評成績大小，在list控件中顯示當(dāng)前數(shù)據(jù)的排名情況，可以同時(shí)顯示“名次”“姓名”“總評成績”；同時(shí)在刪除或添加部分?jǐn)?shù)據(jù)后，能重新計(jì)算排名，此處通過動(dòng)態(tài)數(shù)組實(shí)現(xiàn)顯示個(gè)數(shù)隨數(shù)據(jù)個(gè)數(shù)同時(shí)變化。

算法介紹：

添加一個(gè)text控件，用來存放當(dāng)前窗口的總評成績。使用data1控件的movefirst,movenext,eof 等屬性完成數(shù)據(jù)庫“數(shù)據(jù)個(gè)數(shù)計(jì)算”“所有數(shù)據(jù)姓名與成績的提取與匹配”，使用動(dòng)態(tài)數(shù)組完成數(shù)據(jù)存放；利用循環(huán)完成賦值及大小比較，最后通過list顯示出來。

主要代碼：

Private Sub Command8_Click()

Do Until Me.Data1.Recordset.EOF = True

Me.Data1.Recordset.Movenext

h = h + 1

Loop

模擬成績管理系統(tǒng)

Me.Data1.Recordset.Movefirst

Dim t As String

Dim w As String

ReDim a(h, 2)As String * 5

定義與數(shù)據(jù)個(gè)數(shù)相同行數(shù)的二位動(dòng)態(tài)數(shù)組

Do Until Me.Data1.Recordset.EOF = True

Me.Text27.Text =(Val(Text8.Text)* Val(Me.Text17.Text)+ Val(Text9.Text)* Val(Me.Text18.Text)+ Val(Text10.Text)* Val(Me.Text20.Text)+ Val(Text11.Text)* Val(Me.Text21.Text)+ Val(Text12.Text)* Val(Me.Text22.Text)+ Val(Text13.Text)* Val(Me.Text23.Text)+ Val(Text14.Text)* Val(Me.Text24.Text)+ Val(Text15.Text)* Val(Me.Text25.Text)+ Val(Text16.Text)* Val(Me.Text26.Text))/(Val(Me.Text17.Text)+ Val(Me.Text18.Text)+ Val(Me.Text20.Text)+ Val(Me.Text21.Text)+ Val(Me.Text22.Text)

+ Val(Me.Text23.Text)+ Val(Me.Text24.Text)+ Val(Me.Text25.Text)+ Val(Me.Text26.Text))Text27中存放當(dāng)前數(shù)據(jù)的成績

a(i, 1)= Text2.Text

a(i, 2)= Text27.Text 把姓名和成績賦值給數(shù)組

i = i + 1

Me.Data1.Recordset.Movenext

Loop

For i = 1 To h

For j = i + 1 To h

If a(i, 2)< a(j, 2)Then

t = a(i, 1)

w = a(i, 2)對數(shù)組中的成績進(jìn)行比較并重新排序

a(i, 1)= a(j, 1)

a(i, 2)= a(j, 2)

a(j, 1)= t

a(j, 2)= w

End If

Next

Next

p = ” 第 “ & k & ” 名 “ & a(1, 1)& a(1, 2)

List1.AddItem p

List1.AddItem ”“ 輸出排序

For i = 2 To h

k = k + 1

p = ” 第 “ & k & ” 名 “ & a(i, 1)& a(i, 2)

List1.AddItem p

List1.AddItem ”“

Next

Text19.Text = ”"

End Sub

模擬成績管理系統(tǒng)

課程學(xué)分的顯示及修改功能

通過點(diǎn)擊 課程學(xué)分顯示 按鈕，課程學(xué)分部分變?yōu)榭梢?，并可通過點(diǎn)擊修改按鈕進(jìn)行修改，點(diǎn)擊 返回 按鈕后，該部分繼續(xù)隱藏。

瀏覽功能

通過點(diǎn)擊data1控件按鈕進(jìn)行瀏覽。