【正文】 該系統(tǒng)的不盡如人意的地方和功能上的缺陷，這些我都會進(jìn)一步的改善。但是由于時間、技術(shù)等各方面因素，本系統(tǒng)仍不完善，有很多問題需要解決。 amp。如下3張圖，分別以班級，教室，教師排列的課表。排列可以將該教師加入課表中去。 .dat For Output As 1 Dim TeacherClassCount As String For h = 0 To 47 TeacherClassCount = (h).Text Write 1, TeacherClassCount Next h Close 1 Open .\data\teacher_name\ amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 .dat For Output As 9Close 9Open .\data\room_name\ amp。 (first_class).Text amp。 For Input As 1‘使用循環(huán)For b1 = 0 To zong 1 Input 1, ww If doingct(b1) = Then doingct(b1) = ww 39。 .dat For Input As 1 For b1 = 0 To zong 1 Input 1, ww If doingct(b1) = Then doingct(b1) = ww 39。該系統(tǒng)所有的數(shù)據(jù)都是以變量的形式分別存入dat文件中，然后從文件中的變量讀取數(shù)據(jù)?？焖僭偷谋硎緢D如下： 原型表示圖運(yùn)行該系統(tǒng)，進(jìn)入主窗體界面，界面上有多個菜單選項(xiàng)，對這些菜單進(jìn)行操作就能實(shí)現(xiàn)該系統(tǒng)的主要功能，該系統(tǒng)的主要窗體有主界面，添加/刪除班級，添加/刪除教師，添加/刪除教室，添加/刪除課程，添加教室，選擇老師，查詢課表，由主界面能進(jìn)入各個窗體，并能進(jìn)行相應(yīng)的操作。經(jīng)過簡單快速分析，快速實(shí)現(xiàn)一個原型，用戶與開發(fā)者在試用原型過程中加強(qiáng)通信與反饋，通過反復(fù)評價和改進(jìn)原型，減少誤解，彌補(bǔ)漏洞，適應(yīng)變化，最終提高軟件質(zhì)量。　　9. 使用動態(tài)數(shù)組，而不是靜態(tài)數(shù)組　　使用動態(tài)數(shù)組對代碼的執(zhí)行速度不會產(chǎn)生太大的影響，但是在某些情況下可以節(jié)約大量的資源。但遺憾的是，沒有辦法可以避免它。在這種情況下，你可以把函數(shù)中的代碼拷貝到原來調(diào)用函數(shù)的地方。在這種情況下，你可以把循環(huán)展開。4. 盡量使用數(shù)組，避免使用集合　　除非你必須使用集合（Collection），否則你應(yīng)該盡量使用數(shù)組。通常使用變體類型的目的是為了減少設(shè)計(jì)的工4作量和代碼量，也有的程序員圖個省事而使用它。例如程序中約定有三位小數(shù)，那么只需要將保存在Integer變量中的數(shù)值除以1000就可以得到結(jié)果。也許你不相信，但是正確地選擇數(shù)據(jù)類型可以大幅度提升代碼的性能。字符串處理函數(shù)關(guān)鍵字說明示例Ucase將字符串中的字母改為大寫Ucase(Kim)返回KIMLcase將字符串中的字母改為小寫Lcase(Kim)返回kimLen確定字符串的長度（以字符為單位）Len(Mississ)返回7Right返回字符串右部指定個數(shù)的字符Right(Budapest,3)返回pesLeft返回字符串左部指定個數(shù)的字符Left(Budapest,4)返回BudaMid從某一指定起始點(diǎn)開始返回字符串中指定個數(shù)的字符Mid(Sommers, 4, 3) 返回merInStr從一個較大字符串中查找另一個字符Int(n)返回?cái)?shù)字的整數(shù)部分。 Sqr(n)返回n的平方根。Exp(n)返回e的n次方。例如幾個窗體上的添加、刪除、返回按鈕的作用，就是通過在各個相應(yīng)按鈕的代碼窗口中輸入相應(yīng)的代碼，來達(dá)到當(dāng)在幾個按鈕上出現(xiàn)單擊（Click）事件后，相應(yīng)按鈕實(shí)現(xiàn)添加、刪除、返回的功能的。這樣，設(shè)計(jì)一個Windows應(yīng)用程序簡化為用鼠標(biāo)在屏幕上點(diǎn)擊、拖拽并添加少量的代碼就可以完成了，大大降低了對程序設(shè)計(jì)的要求，提高了應(yīng)用程序的開發(fā)效率。用戶通過在屏幕上生成窗體，在窗體中繪制所需要的控件和按鈕，設(shè)計(jì)菜單和對話框，VB會自動生成相應(yīng)的代碼。屬性決定對象的外觀，有時也決定對象的行為。控件和窗體是Visual Basic中所有對象的示例。事件的示例有擊鍵、單擊鼠標(biāo)、一段時間的限制，或從端口接收數(shù)據(jù)。用戶認(rèn)為可用Visual Basic快速創(chuàng)建Windows程序，在現(xiàn)在還可以編寫企業(yè)水平的客戶／服務(wù)器程序及強(qiáng)大的數(shù)據(jù)庫應(yīng)用程序，Visual Basic新版中還有更多可用新功能。從VB4開始，VB也引入了面向?qū)ο蟮某绦蛟O(shè)計(jì)思想。但在當(dāng)時，它是第一個“可視”的編程軟件?！　〉谒碾A段：（1991年以來） Visual BASIC 　　自從1991年，微軟推出了Visual 。s Allpurpose symbolic instruction Code（初學(xué)者通用符號指令代碼）的縮寫，是國際上廣泛使用的一種計(jì)算機(jī)高級語言。第三，可以充分發(fā)揮計(jì)算機(jī)在信息處理方面的優(yōu)勢，可以讓繁瑣的工作由計(jì)算機(jī)處理。本文就是講解基于Visual Basic的排課系統(tǒng)。3） 該系統(tǒng)功能還不夠完善，排課功能使用操作比較麻煩。 For Input As 1 Dim class_room As String Do Until EOF(1) Input 1, class_room kkk(k) = class_room k = k + 1 LoopClose 1 For k = (3 * (heng + 2) + 2) To (((shu) * 3 + 2)) * (heng + 2) + 2 Step (heng + 2) * 2 + (heng 1) + 3 For i = k To k + (heng 1) (i) = kkk(o) o = o + 1 Next i Next kEnd If//當(dāng)選擇不同時，清除之前選項(xiàng)并顯示當(dāng)前選項(xiàng)Private Sub SSTab1_Click(PreviousTab As Integer)If = 班級 ThenOpen .\data\ For Input As 1Dim Read As StringDo Until EOF(1)Input 1, ReadIf Read Then (Read)LoopClose 1 fg1_init_classEnd IfIf = 教師 ThenOpen .\data\ For Input As 3Do Until EOF(3)Input 3, ReadIf Read Then (Read)LoopClose 3fg1_init_teacherEnd IfIf = 教室 ThenOpen .\data\ For Input As 3Do Until EOF(3)Input 3, ReadIf Read Then (Read)LoopClose 3fg1_init_roomEnd IfEnd Sub第五章 開發(fā)總結(jié)經(jīng)過1個多月的學(xué)習(xí)和實(shí)踐，基本上完成了排課系統(tǒng)的整體設(shè)計(jì)和開發(fā)，并具備一定的使用價值。 .dat For Input As 1 //從文件讀出現(xiàn)有班級Dim class_lesson As StringDo Until EOF(1) Input 1, class_lesson kkk(k) = class_lesson k = k + 1 LoopClose 1//用循環(huán)實(shí)現(xiàn)課表排列 For k = (heng + 2 + 2) To (((shu) * 3)) * (heng + 2) + 2 Step (heng + 2) * 2 + (heng 1) + 3 For i = k To k + (heng 1) (i) = kkk(o) o = o + 1 Next i Next kk = 0o = 0Open .\kcb_done\class_kcb\ amp。選中其中一選項(xiàng)后，在具體選擇一班級或者教室后者教師后，可以看到此班級，教師，或者教室的具體課表。 .dat For Output As 1 Dim TeacherXueshi As String For h = 0 To 11 TeacherXueshi = Text_xueshi(h).Text Write 1, TeacherXueshi Next h Close 1 End Sub當(dāng)進(jìn)行完教師與班級的關(guān)聯(lián)之后，就可以選擇菜單排列下拉菜單排列此教師選項(xiàng)。 class amp。 For Input As 2Do Until EOF(2)Input 2, abIf ab Then (ab)LoopClose 2End Sub對老師與他所要教的班級進(jìn)行關(guān)聯(lián)，如下圖部分代碼如下：Private Sub Form_Load()//設(shè)置主界面為可用狀態(tài) = True//打開存儲班級的dat文件Open .\data\ For Input As 1 Do Until EOF(1) Input 1, addc_one If addc_one Then (addc_one) LoopClose 1//打開存儲教師的dat文件Open .\data\room_name\ amp。 For Input As 2Do Until EOF(2)Input 2, abIf ab Then (ab)LoopClose 2End Sub//將已關(guān)聯(lián)的教師姓名顯示出來Private Sub Command1_Click()If Empty Then = //將關(guān)聯(lián)數(shù)據(jù)存入文件中Private Sub selectedS_Click()Open .\data\lesson_name\ amp。如下圖實(shí)現(xiàn)此功能的代碼如下://從文件中讀出已有課程的名稱，以下拉列表的形式顯示出來Private Sub selectedS_Click()Open .\data\lesson_name\ amp。 ,第 amp。 For Input As 1 Do Until EOF(1) Input 1, qq (qq) Loop Close 1 Open .\kcb_done\class_kcb\ amp。 For Output As 2 Close 2 Open .\kcb_done\class_kcb\ amp。 For Output As 2For h = 0 To CInt() 1Write 2, Next hClose 2Open .\kcb_done\class_kcb\ amp。下面以添加刪除教室的代碼為例：Private Sub Command1_Click()If Empty Then //判斷文本框中內(nèi)容是否為空 Dim i As Integer For i = 0 To 1 = i If = Then MsgBox 不能重復(fù)!, , 警告！ //判斷是構(gòu)添加教室名稱重復(fù) Exit Sub End If Next iOpen .\data\ For Append As 1 //Dim M As StringM = Write 1, MClose 1Dim h As Integer () = Open .\kcb_done\class_kcb\ amp。 amp。讀入班的If (first_class).Text Then Open .\kcb_done\class_kcb\ amp。 amp。 (a1).Text amp。排列此老師：對老師進(jìn)行課程排列。即先用相對少的成本，較短的周期開發(fā)一個簡單的、但可以運(yùn)行的系統(tǒng)原型向用戶演示或讓用戶試用，以便及早澄清并檢驗(yàn)一些主要設(shè)計(jì)策略，在此基礎(chǔ)上再開發(fā)實(shí)際的軟件系統(tǒng)?？焖僭褪抢迷洼o助軟件開發(fā)的一種新思想。在VB中，數(shù)組是最高效的數(shù)據(jù)結(jié)構(gòu)之一。