1、河北工業(yè)大學計算機軟件技術(shù)基礎（VB）課 程 設 計 任 務 書本題難度級別：B 實現(xiàn)基本要求代碼: 約150主要涉及:基本控件的使用、文件讀寫、數(shù)組操作和菜單設計一、設計題目：學生成績統(tǒng)計與查詢系統(tǒng)（出題人：趙秀平）二、目的與要求：1.目的：培養(yǎng)學生綜合利用VB語言進行程序設計的能力，主要是培養(yǎng)學生綜合使用基本控件的、文件讀寫、數(shù)組操作和菜單設計等能力。2.基本要求：設計一個學生成績統(tǒng)計與查詢系統(tǒng)，要求具有如下的功能：n 使用該系統(tǒng)時，首先要登陸，用戶名或密碼輸入正確才能使用（設置一個用戶名和一個密碼），即進入程序的主界面。最多可輸入3次口令，若3次輸入都錯誤，則禁止再次輸入。n 在程序的主

2、界面中進行菜單設計。n 通過菜單命令應能從數(shù)據(jù)文件中將學生姓名信息及課程的成績（至少三門課的成績）讀入，并顯示在文本框中。n 通過菜單命令應能計算并顯示每個學生的平均成績。 n 通過菜單命令應能計算并顯示數(shù)學、英語、計算機各科的平均成績和總平均成績及學生總?cè)藬?shù)。n 通過菜單命令應能計算出平均成績大于與或等于總平均成績、各科成績均大與或等于各科的平均成績的學生人數(shù)，即優(yōu)秀生的人數(shù)，并顯示優(yōu)秀生的信息。n 通過菜單命令應能根據(jù)學生的姓名進行查詢。3.創(chuàng)新要求：在基本要求達到后，進行創(chuàng)新設計，進一步完善系統(tǒng)。創(chuàng)新方向提示如下： 在程序運行時，可以設置多個條件，然后根據(jù)給定的多個條件來統(tǒng)計或查詢學生信

3、息（如統(tǒng)計某個分數(shù)段的學生人數(shù)和顯示該分數(shù)段內(nèi)的學生信息等）。 為某些命令設置快捷鍵。 增加工具欄，工具欄中應有常使用的工具按鈕。三、設計方法和基本原理：1. 問題描述：程序界面見上面的示意圖，功能描述參見基本要求和創(chuàng)新的內(nèi)容。設計時要注意一些功能需要在其它功能之后才能使用，如統(tǒng)計與查詢菜單下的命令需要在讀入數(shù)據(jù)后才能使用。2. 問題的解決方案：設計程序主界面 (主界面設計狀態(tài)示意圖如下)除了主窗體，還另外需要兩個窗體。一個用來進行登陸，一個用來顯示優(yōu)秀生的信息。登陸窗體用來限制非法用戶進入系統(tǒng)，所以該窗體應為啟動窗體。在用于登陸的窗體中，由于用戶密碼不能顯示出來的，所以要設置文本框的Pass

4、word屬性。編寫代碼需要對每一個窗體編寫事件處理過程。最主要的工作包含在主窗體中，代碼包括事件處理過程和必要的聲明。變量聲明部分聲明本程序所需要的變量和數(shù)組，由于單擊菜單命令時，要對數(shù)學、英語、計算機、平均成績數(shù)組及各累加變量進行操作，因此相應的數(shù)組和變量應定義為模塊級的。在編寫事件處理過程代碼時注意以下幾點：（1） 定義數(shù)組分別用于存放姓名、數(shù)學、計算機、英語、平均成績數(shù)據(jù)。（2） 單擊“數(shù)據(jù)”菜單中“讀入數(shù)據(jù)”，將數(shù)據(jù)文件中的數(shù)據(jù)依次讀入到相應數(shù)組中。（3） 計算每個學生的平均成績時，要計算每個學生所有科目的平均分，并存放在平均分數(shù)組的對應元素中；計算各科平均成績時，分別對數(shù)學、英語、計

5、算機的數(shù)組的數(shù)據(jù)求和，然后計算平均分；總平成績?yōu)楦骺破骄煽冎统钥颇繑?shù)（4） 利用InputBox 函數(shù)來輸入要查詢學生的姓名。（5） 利用MsgBox 函數(shù)或另一個窗體來顯示統(tǒng)計和查詢結(jié)果。（6） 利用另一個窗體來顯示優(yōu)秀生的信息四、主要技術(shù)問題的描述：（1） 菜單的設計參看課本第十章。（2） 文本的讀取為本題中的難點。將文本文件的內(nèi)容讀入字符串數(shù)組的部分代碼如下(文件名為隨本任務書一起提供score.txt)：Dim txt() As String,lines As Integerlines = 0 文件行數(shù)總計Open infile For Input As #1 打開文件。infi

6、le 變量中存放的是文本文件的名字Do While Not EOF(1) ReDim Preserve txt(lines + 1)開辟空間以存放新一行內(nèi)容 lines = lines + 1 Line Input #1, txt(lines)讀入一行并放入數(shù)組Text1.Text = Text1.Text & txt(lines) & vbCrLf在文本框中顯示LoopClose #1關(guān)閉文件一旦數(shù)組中有了文件的內(nèi)容，則可以將其內(nèi)容逐行地、通過字符串連接符賦給文本框的Text屬性，就可以顯示出來了。要控制文本框中文本的換行可以利用VB的系統(tǒng)常數(shù)vbCrLf來實現(xiàn)。（3） 在執(zhí)

7、行“統(tǒng)計”“優(yōu)秀生的人數(shù)與信息”時，由于信息是顯示在另一個窗體中的Text1控件中，所以應在Text1控件前加上窗體的名稱，并以點分隔來表明控件所屬的窗體。如：Form3.Text1.Text = Form3.Text1.Text & txt(lines) & vbCrLf在窗體Form3中的文本框中顯示五、參考資料 Visual Basic 程序設計教程 及 Visual Basic 實驗教程 VB6.0程序員指南 VB6.0控件參考手冊 VB參考資料中的“文本編輯器.ZIP” MSDN中文版，課程設計網(wǎng)站上提供的其它資料。六、設計部分的評分標準（本題難度為B級，綜合時乘難度系數(shù)0.9）完成基本要求前