【導(dǎo)讀】隨著現(xiàn)代計(jì)算機(jī)科學(xué)的發(fā)展，計(jì)算機(jī)信息系統(tǒng)越來越受到重視，在學(xué)校管理中的許多工作都由計(jì)算機(jī)完成。由于對(duì)課程的排列時(shí)一項(xiàng)。繁瑣的工作，所以它已經(jīng)逐漸改為由計(jì)算機(jī)完成。本文就是講解基于。首先介紹開發(fā)工具VisualBasic，接著介紹。的實(shí)現(xiàn)，在最后做了開發(fā)總結(jié)。

　　

【正文】 的事件的方法?？丶痛绑w是 Visual Basic中所有對(duì)象的示例。 過程 — 為完成任務(wù)而編寫的代碼段。過程通常用于響應(yīng)特定的事件。 屬性 — 對(duì)象的特征，如尺寸、位置、顏色或文本。屬性決定對(duì)象的外觀，有時(shí)也決定對(duì)象的行為。屬性也用于為對(duì)象提供數(shù)據(jù)和從對(duì)象取回信息。 Visual Basic 的特點(diǎn) VB的重要特點(diǎn)之一是可視 性。系統(tǒng)引進(jìn)了窗體和控件的機(jī)制，用于設(shè)計(jì)應(yīng)用程序界面。用戶通過在屏幕上生成窗體，在窗體中繪制所需要的控件和按鈕，設(shè)計(jì)菜單和對(duì)話框， VB會(huì)自動(dòng)生成相應(yīng)的代碼。 VB 的另一重要特點(diǎn)是事件驅(qū)動(dòng)。當(dāng)窗體或控件上發(fā)生一個(gè)事件時(shí)， VB 立即把控制權(quán)交給程序員。程序員不必?fù)?dān)心如何判斷事件是否已發(fā)生，只需要編寫一段代碼告訴計(jì)算機(jī)在事件發(fā)生以后應(yīng)該做什么工作就可以了。這樣，設(shè)計(jì)一個(gè) Windows應(yīng)用程序簡(jiǎn)化為用鼠標(biāo)在屏幕上點(diǎn)擊、拖拽并添加少量的代碼就可以完成了，大大降低了對(duì)程序設(shè)計(jì)的要求，提高了應(yīng)用程序的開發(fā)效率。 利用 VB 的 可視性特點(diǎn)，可方便的設(shè)計(jì)了程序的窗體界面，并在各個(gè)窗體中的合適位置繪制所需的每種控件。如要修改窗體或控件的某項(xiàng)屬性，只需在相應(yīng)的窗體或控件的屬性窗口修改相應(yīng)的參數(shù)便可達(dá)到需要的設(shè)計(jì)效果。 利用 VB 的事件驅(qū)動(dòng)性特點(diǎn)，只需在窗體或控件上的代碼窗口中添加少量的代碼，便可達(dá)到告訴當(dāng)在相應(yīng)的窗體或控件上發(fā)生某一事件時(shí)，它們?cè)谑录l(fā)生后應(yīng)該做什么工作的目的。例如幾個(gè)窗體上的添加、刪除、返回按鈕的作用，就是通過在各個(gè)相應(yīng)按鈕的代碼窗口中輸入相應(yīng)的代碼，來達(dá)到當(dāng)在幾個(gè)按鈕上出現(xiàn)單擊（ Click）事件后，相應(yīng)按鈕實(shí)現(xiàn)添加、刪 除、返回的功能的。 第三章 Visual Basic 技術(shù) Basic 常用函數(shù)介紹 Abs(n) 返回 n 的絕對(duì)值。 Atn(n) 返回 n 的反正切值，以弧度為單位。 Cos(n) 返回 n 的余弦值，以弧度為單位。 Exp(n) 返回 e 的 n 次方。 Rnd(n) 產(chǎn)生 0 到 1 之間的一個(gè)隨機(jī)數(shù)。 Sgn(n) n 小于 0 時(shí)返回 1， n 等于 0 時(shí)返回 0， n 大于 0 時(shí)返回 1。 Sin(n) 返回 n 的正弦值，以弧度為單位。 Sqr(n) 返回 n 的平方根。 Str(n) 把數(shù)值值轉(zhuǎn)換成字符串。 Tan(n) 返回 n 的正切值，以弧度為單位。 Val(n) 把字符串轉(zhuǎn)換為數(shù)值值。 Int(n) 返回?cái)?shù)字的整數(shù)部分。 9 Fix(n) 返回?cái)?shù)字的整數(shù)部分。 8 數(shù)據(jù)類型轉(zhuǎn)換函數(shù) 轉(zhuǎn)換函數(shù) 將表達(dá)式轉(zhuǎn)換成 CBool Boolean CByte Byte CCur Currency 39。只在 以下有效 CDate Date CDbl Double CInt Integer CLng Long CSng Single CStr String CVar Variant ‘只在 以下有效 CVErr Error 39。只在 以下有效 字符串處理函數(shù) 關(guān)鍵字 說明 示例 Ucase 將字符串中的字母改為大寫 Ucase(Kim)返回 KIM Lcase 將字符串中的字母改為小寫 Lcase(Kim)返回 kim Len 確定字符串的長(zhǎng)度（以字符為單位） Len(Mississ)返回 7 Right 返回字符串右部指定個(gè)數(shù)的字符 Right(Budapest,3)返回 pes Left 返回字符串左部指定個(gè)數(shù)的字符 Left(Budapest,4)返回 Buda Mid 從某一指定起始點(diǎn)開始返回字符串中指定個(gè)數(shù)的字符 Mid(Sommers, 4, 3) 返回 mer InStr 從一個(gè)較大字符串中查找另一個(gè)字符 start% = InStr(bob,bobby)start%變量返回值 1 String 重復(fù)指定字符串中的字符，返回新的字符串 String(8, *)返回 ******** Asc 返回指定字母的 ASCII 代碼 Asc(A) 返回 65 Chr 返回指定 ASCII 代碼對(duì)應(yīng)的字 符 Chr(65) 返回 A Xor 對(duì)兩個(gè)數(shù)字執(zhí)行“異或”操作，其返回值可用來對(duì)文本 進(jìn)行加密、解密 65 Xor 50 返回 115 115 Xor 50 返回 65 編寫高質(zhì)量的 vb 下面的這些方法可以幫助你提高代碼的運(yùn)行速度： 1. 使用整數(shù)（ Integer）和長(zhǎng)整數(shù)（ Long） 提高代碼運(yùn)行速度最簡(jiǎn)單的方法莫過于使用正確的數(shù)據(jù)類型了。也許你不相信，但是正確地選擇數(shù)據(jù)類型可以大幅度提升代碼的性能。在大多數(shù)情況下，程序員可以將 Single，Double 和 Currency 類型的變量 替換為 Integer 或 Long 類型的變量，因?yàn)?VB 處理 Integer 和Long 的能力遠(yuǎn)遠(yuǎn)高于處理其它幾種數(shù)據(jù)類型。 在大多數(shù)情況下，程序員選擇使用 Single 或 Double 的原因是因?yàn)樗鼈兡軌虮４嫘?shù)。但是小數(shù)也可以保存在 Integer 類型的變量中。例如程序中約定有三位小數(shù)，那么只需要將保存在 Integer 變量中的數(shù)值除以 1000 就可以得到結(jié)果。根據(jù)我的經(jīng)驗(yàn)，使用 Integer 和 Long替代 Single， Double 和 Currency 后，代碼的運(yùn)行速度可以提高將近 10 倍。 2. 避免使用變體 對(duì) 于一個(gè) VB 程序員來說，這是再明顯不過的事情了。變體類型的變量需要 16 個(gè)字節(jié)的空間來保存數(shù)據(jù)，而一個(gè)整數(shù)（ Integer）只需要 2 個(gè)字節(jié)。通常使用變體類型的目的是為了減少設(shè)計(jì)的工 4 作量和代碼量，也有的程序員圖個(gè)省事而使用它。但是如果一個(gè)軟件經(jīng)過了嚴(yán)格設(shè)計(jì)和按照規(guī)范編碼的話，完全可以避免使用變體類型。 3. 盡量避免使用屬性 在平時(shí)的代碼中，最常見的比較低效的代碼就是在可以使用變量的情況下，反復(fù)使用屬性（ Property），尤其是在循環(huán)中。要知道存取變量的速度是存取屬性的速度的 20 倍左右。 4. 盡量 使用數(shù)組，避免使用集合 除非你必須使用集合（ Collection），否則你應(yīng)該盡量使用數(shù)組。據(jù)測(cè)試，數(shù)組的存取速度可以達(dá)到集合的 100 倍。這個(gè)數(shù)字聽起來有點(diǎn)駭人聽聞，但是如果你考慮到集合是一個(gè)對(duì)象，你就會(huì)明白為什么差異會(huì)這么大。 5. 展開小的循環(huán)體 在編碼的時(shí)候，有可能遇到這種情況：一個(gè)循環(huán)體只會(huì)循環(huán) 2 到 3 次，而且循環(huán)體由幾行代碼組成。在這種情況下，你可以把循環(huán)展開。原因是循環(huán)會(huì)占用額外的 CPU 時(shí)間。但是如果循環(huán)比較復(fù)雜，你就沒有必要這樣做了。 6. 避免使用很短的函數(shù) 和使用小的循環(huán) 體相同，調(diào)用只有幾行代碼的函數(shù)也是不經(jīng)濟(jì)的 調(diào)用函數(shù)所花費(fèi)的時(shí)間或許比執(zhí)行函數(shù)中的代碼需要更長(zhǎng)的時(shí)間。在這種情況下，你可以把函數(shù)中的代碼拷貝到原來調(diào)用函數(shù)的地方。 7. 減少對(duì)子對(duì)象的引用 在 VB 中，通過使用 .來實(shí)現(xiàn)對(duì)象的引用。例如： 在上面的例子中，程序引用了兩個(gè)對(duì)象： Form1 和 Text1。利用這種方法引用效率很低。但遺憾的是，沒有辦法可以避免它。程序員唯一可以做就是使用 With 或者將用另一個(gè)對(duì)象保存子對(duì)象（ Text1）。 8. 使用數(shù)組，而不是多個(gè) 變量 當(dāng)你有多個(gè)保存類似數(shù)據(jù)的變量時(shí) , 可以考慮將他們用一個(gè)數(shù)組代替。在 VB 中，數(shù)組是最高效的數(shù)據(jù)結(jié)構(gòu)之一。 9. 使用動(dòng)態(tài)數(shù)組，而不是靜態(tài)數(shù)組 使用動(dòng)態(tài)數(shù)組對(duì)代碼的執(zhí)行速度不會(huì)產(chǎn)生太大的影響，但是在某些情況下可以節(jié)約大量的資源。 第四章 使用 Visual Basic 開發(fā)排課系統(tǒng) 開發(fā)使用的過程模型 在開發(fā)此套系統(tǒng)之前，首先要按照軟件工程的方法確定所使用的開發(fā)模型，利用軟件工程的相關(guān)知識(shí)，確定采用的過程模型是 快速原型 。 快速原型是利用原型輔助軟件開發(fā)的一種新思想。經(jīng)過簡(jiǎn)單快速分析，快速實(shí) 現(xiàn)一個(gè)原型，用戶與開發(fā)者在試用原型過程中加強(qiáng)通信與反饋，通過反復(fù)評(píng)價(jià)和改進(jìn)原型，減少誤解，彌補(bǔ)漏洞，適應(yīng)變化，最終提高軟件質(zhì)量。 由于種種原因，在需求分析階段得到完全、一致、準(zhǔn)確、合理的需求說明是很困難的，在獲得一組基本需求說明后，就快速地使其 “實(shí)現(xiàn) ”，通過原型反饋，加深對(duì)系統(tǒng)的理解，并滿足用戶基本要求，使用戶在試用過程中受到啟發(fā)，對(duì)需求說明進(jìn)行補(bǔ)充和精確化，消除不協(xié)調(diào)的系統(tǒng)需求，逐步確定各種需求，從而獲得合理、協(xié)調(diào)一致、無歧義的、完整的、現(xiàn)實(shí)可行的需求說明。又把快速原型思想用到軟件開發(fā)的其他階段 ，向軟件開發(fā)的全過程擴(kuò)展。即先用相對(duì)少的成本，較短的周期開發(fā)一個(gè)簡(jiǎn)單的、但可以運(yùn)行的系統(tǒng)原型向用戶演示或讓用戶試用，以便及早澄清并檢驗(yàn)一些主要設(shè)計(jì)策略，在此基礎(chǔ)上再開發(fā)實(shí)際的軟件系統(tǒng) ?？焖僭偷谋硎緢D如下： 原型表示圖 系統(tǒng)的基本組成及使用 運(yùn)行該系統(tǒng)，進(jìn)入主窗體界面，界面上有多個(gè)菜單選項(xiàng)，對(duì)這些菜單進(jìn)行操作就能實(shí)現(xiàn)該系統(tǒng)的主要功能，該系統(tǒng)的主要窗體有主界面，添加 /刪除班級(jí)，添加 /刪除教師，添加 /刪除教室，添加 /刪除課程，添加教室，選擇老師，查詢課表，由主界面能進(jìn)入各個(gè)窗體，并能進(jìn)行相應(yīng)的操作。 排課系統(tǒng)的使用： 課程設(shè)置 教師設(shè)置 班級(jí)設(shè)置 教室設(shè)置：在主界面的菜單上選擇設(shè)置，再進(jìn)入子菜單各項(xiàng)，對(duì)課程，教師，班級(jí)，教室分別進(jìn)行添加，并設(shè)置它所對(duì)應(yīng)的各項(xiàng)。 新建一門課程：選擇一門課程，進(jìn)行教師，教室的添加，可以選擇一個(gè)老師。 排列此老師：對(duì)老師進(jìn)行課程排列。 系統(tǒng)功能的實(shí)現(xiàn) 儲(chǔ)存數(shù)據(jù)形式 該系統(tǒng)所有的數(shù)據(jù)都是以變量的形式分別存入 dat 文件中，然后從文件中的變量讀取數(shù)據(jù)。代碼列舉如下： 39。將這一排所有班的課程數(shù)據(jù)都讀入一組變量 doingct For a1 = first_class To first_class + 3 If (a1).Text Then Open .\kcb_done\class_kcb\ amp。 (a1).Text amp。 .dat For Input As 1 For b1 = 0 To zong 1 Input 1, ww If doingct(b1) = Then doingct(b1) = ww 39。 form3_Text7(b1) = ww End If Next b1 Close 1 End If Next a1 39。將這個(gè)老師的課程數(shù)據(jù)也讀入這組變量 doingct Open .\kcb_done\teacher_kcb\ amp。 amp。 For Input As 1 ‘使用循環(huán) For b1 = 0 To zong 1 Input 1, ww If doingct(b1) = Then doingct(b1) = ww 39。 form3_Text7(b1) = ww End If Next b1 Close 1 39。以下將倆個(gè)（教師與班級(jí)）原始數(shù)據(jù)讀入 yuan，教室的 yuan 要在選中教室之后，寫入教室之前讀入 39。讀入班的 If (first_class).Text Then Open .\kcb_done\class_kcb\ amp。 (first_class).Text amp。 .dat For Input As 1 For i = 0 To zong 1 Input 1, ww class_form3_yuan1(i) = ww Next i Close End If 添加刪除數(shù)據(jù) 該系統(tǒng)設(shè)計(jì)到了多個(gè)數(shù)據(jù)的添加刪除，對(duì)教師，教室，課程，班級(jí)添加刪除。添加刪除課程的界面如下： 代碼如下： Private Sub Command1_Click() If = Empty Then MsgBox 請(qǐng)?jiān)谖谋究蛑休斎胛淖?, , 錯(cuò)誤 //若沒由輸入，出現(xiàn)提示框 Else Dim i As Integer For i = 0 To 1 = i If = Then MsgBox 不能重復(fù) !, , 警告！ //輸入課程重復(fù)，出現(xiàn)提示框 Exit Sub End If Next i Open .\data\ For Append As 4 //將輸入的課程名稱存入 中 Dim D As String D = Write 4, D Close 4 (D) Sen