【正文】 代碼中，最常見的比較低效的代碼就是在可以使用變量的 情況下，反復(fù)使用屬性（ Property），尤其是在循環(huán)中。 在大多數(shù)情況下，程序員選擇使用 Single 或 Double 的原因是因?yàn)樗鼈兡軌虮４嫘?shù)。 Val(n) 把字符串轉(zhuǎn)換為數(shù)值值。 Cos(n) 返回 n 的余弦值，以弧度為單位。程序員不必?fù)?dān)心如何判斷事件是否已發(fā)生，只需要編寫一段代碼告訴計(jì)算機(jī)在事件發(fā)生以后應(yīng)該做什么工作就可以了。 屬性 — 對(duì)象的特征，如尺寸、位置、顏色或文本。 事件 — 由用戶或操作系統(tǒng) 引發(fā)的動(dòng)作。并且從 VB3 開始，微軟將 ACCESS 的數(shù)據(jù)庫(kù)驅(qū)動(dòng)集成到了VB 中，這使得 VB 的數(shù)據(jù)庫(kù)編程能力大大提高。 第二階段：（ 1975 年～ 80 年代中） 微機(jī)上固化的 BASIC 第三階段：（ 80 年代中～ 90 年代初） 結(jié)構(gòu)化 BASIC 語(yǔ)言。 由計(jì)算機(jī)進(jìn)行排課的方式于傳統(tǒng)的方式相比較，優(yōu)勢(shì)是顯而易見的，首先， 可以省去大量人工，加速現(xiàn)代化的進(jìn)程；其次，避免了人工排課出錯(cuò)，使排課過程可以輕松進(jìn)行。本文就是講解基于Visual Basic 的排課系統(tǒng)。s Allpurpose symbolic instruction Code（初學(xué)者通用符號(hào)指令代碼）的縮寫，是國(guó)際上廣泛使用的一種計(jì)算機(jī)高級(jí)語(yǔ)言。 但在當(dāng)時(shí)，它是第一個(gè)“可視”的編程軟件。用戶認(rèn)為可用 Visual Basic 快速創(chuàng)建 Windows 程序，在現(xiàn)在還可以編寫企業(yè)水平的客戶／服務(wù)器程序及強(qiáng)大的數(shù)據(jù)庫(kù)應(yīng)用程序， Visual Basic 新版中還有更多可用新功能?？丶痛绑w是 Visual Basic中所有對(duì)象的示例。用戶通過在屏幕上生成窗體，在窗體中繪制所需要的控件和按鈕，設(shè)計(jì)菜單和對(duì)話框， VB會(huì)自動(dòng)生成相應(yīng)的代碼。例如幾個(gè)窗體上的添加、刪除、返回按鈕的作用， 就是通過在各個(gè)相應(yīng)按鈕的代碼窗口中輸入相應(yīng)的代碼，來達(dá)到當(dāng)在幾個(gè)按鈕上出現(xiàn)單擊（ Click）事件后，相應(yīng)按鈕實(shí)現(xiàn)添加、刪除、返回的功能的。 Sqr(n) 返回 n 的平方根。只在 以下有效 字符串處理函數(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ù)類型了。變體類型的變量需要 16 個(gè)字節(jié)的空間來保存數(shù)據(jù)，而一個(gè)整數(shù)（ Integer）只需要 2個(gè)字節(jié)。 5. 展開小的循環(huán)體 在編碼的時(shí)候，有可能遇到這種情況：一個(gè)循環(huán)體只會(huì)循環(huán) 2 到 3 次，而且循環(huán)體由幾行代碼組成。利用這種方法引用效率很低。經(jīng)過簡(jiǎn)單快速分析，快速實(shí)現(xiàn)一個(gè)原型，用戶與開發(fā)者在試用原型過程中加強(qiáng)通信與反饋，通過反復(fù)評(píng)價(jià)和改進(jìn)原型，減少誤解，彌補(bǔ)漏洞，適應(yīng)變化，最終提高軟件質(zhì)量。 系統(tǒng)功能的實(shí)現(xiàn) 儲(chǔ)存數(shù)據(jù)形式 該系統(tǒng)所有的數(shù)據(jù)都是以變量的形式分 別存入 dat 文件中，然后從文件中的變量讀取數(shù)據(jù)。 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 Output As 9 Close 9 Open .\data\room_name\ amp。 amp。 amp。 amp。 amp。 排列可以將該教師加入課表中去。 amp。 該系統(tǒng)的不盡如人意的地方和功能上的缺陷，這些我都會(huì)進(jìn)一步的改善。 因此，開發(fā)一個(gè)排課系統(tǒng)是很有必要的。這在當(dāng)時(shí)引起了很大的轟動(dòng)。 VB 功能強(qiáng)大，學(xué)習(xí)簡(jiǎn)單。 方法 — 嵌入在對(duì)象定義中的程序代碼，它定義 對(duì)象怎樣處理信息并響應(yīng)某事件。屬性也用于為對(duì)象提供數(shù)據(jù)和從對(duì)象取回信息。 利用 VB 的 可視性特點(diǎn)，可方便的設(shè)計(jì)了程序的窗體界面，并在各個(gè)窗體中的合適位置繪制所需的每種控件。 Rnd(n) 產(chǎn)生 0 到 1 之間的一個(gè)隨機(jī)數(shù)。 9 Fix(n) 返回?cái)?shù)字的整數(shù)部分。例如程序中約定有三位小數(shù)，那么只需要將保存在 Integer 變量中的數(shù)值除以 1000 就可以得到結(jié)果。 4. 盡量 使用數(shù)組，避免使用集合 除非你必須使用集合（ Collection），否則你應(yīng)該盡量使用數(shù)組。在這種情況下，你可以把函數(shù)中的代碼拷貝到原來調(diào)用函數(shù)的地方。 9. 使用動(dòng)態(tài)數(shù)組，而不是靜態(tài)數(shù)組 使用動(dòng)態(tài)數(shù)組對(duì)代碼的執(zhí)行速度不會(huì)產(chǎn)生太大的影響，但是在某些情況下可以節(jié)約大量的資源。 排課系統(tǒng)的使用： 課程設(shè)置 教師設(shè)置 班級(jí)設(shè)置 教室設(shè)置：在主界面的菜單上選擇設(shè)置，再進(jìn)入子菜單各項(xiàng)，對(duì)課程，教師，班級(jí)，教室分別進(jìn)行添加，并設(shè)置它所對(duì)應(yīng)的各項(xiàng)。 form3_Text7(b1) = ww End If Next b1 Close 1 End If Next a1 39。 .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í)添加刪除。 amp。 排列此老師：對(duì)老師進(jìn)行課程排列。 快速原型是利用原型輔助軟件開發(fā)的一種新思想。例如： 在上面的例子中，程序引用了兩個(gè)對(duì)象： Form1 和 Text1。這個(gè)數(shù)字聽起來有點(diǎn)駭人聽聞，但是如果你考慮到集合是一個(gè)對(duì)象，你就會(huì)明白為什么差異會(huì)這么大。 2. 避免使用變體 對(duì) 于一個(gè) VB 程序員來說，這是再明顯不過的事情了。只在 以下有效 CDate Date CDbl Double CInt Integer CLng Long CSng Single CStr String CVar Variant ‘只在 以下有效 CVErr Error 39。 Sin(n) 返回 n 的正弦值，以弧度為單位。 利用 VB 的事件驅(qū)動(dòng)性特點(diǎn)，只需在窗體或控件上的代碼窗口中添加少量的代碼，便可達(dá)到告訴當(dāng)在相應(yīng)的窗體或控件上發(fā)生某一事件時(shí)，它們?cè)谑录l(fā)生后應(yīng)該做什么工作的目的。系統(tǒng)引進(jìn)了窗體和控件的機(jī)制，用于設(shè)計(jì)應(yīng)用程序界面。 對(duì)象 — 程序的基本元素，它含有定義其特征的屬性，定義其任務(wù)和識(shí)別它可以響應(yīng)的事件的方法。 通過幾年的發(fā)展，它已成為一種真正的專業(yè)化的開發(fā)語(yǔ)言和環(huán)境。其實(shí)，以我們現(xiàn)在的目光來看， VB10 的功能實(shí)在是太弱了。 第二章 關(guān)于 Visual Basic Visual Basic 的歷史 Visual Basic 是由 BASIC 演化而來的， BASIC 是 Beginner39。由于對(duì)課程的排列時(shí)一項(xiàng)繁瑣的工作，所以它已經(jīng)逐漸改為由計(jì)算機(jī)完成。 amp。 生成課表 點(diǎn)擊主界面的查詢菜單，再下拉菜單中選擇所有課表，可以看到課表，課表左側(cè)的有 3個(gè)選項(xiàng)，班級(jí)，教師教室。 amp。 amp。 amp。 amp。 For Output As 1 Close 1 End If End Sub 添加刪除教室，添加刪除班級(jí)，添加刪除教師都需要對(duì)時(shí)間表進(jìn)行設(shè)置，并且可以將此課程放入不用排的課程類別中去。以下將倆個(gè)（教師與班級(jí)）原始數(shù)據(jù)讀入 yuan，教室的 yuan 要在選中教室之后，寫入教室之前讀入 39。將這一排所有班的課程數(shù)據(jù)都讀入一組變量 doingct For a1 = first_class To first_class + 3 If (a1).Text Then Open .\kcb_done\class_kcb\ amp。又把快速原型思想用到軟件開發(fā)的其他階段，向軟件開發(fā)的全過程擴(kuò)展。程序員唯一可以做就是使用 With 或者將用另一個(gè)對(duì)象保存子對(duì)象（ Text1）。原因是循 環(huán)會(huì)占用額外的 CPU 時(shí)間。但是如果一個(gè)軟件經(jīng)過了嚴(yán)格設(shè)計(jì)和按照規(guī)范編碼的話，完全可以避免使用變體類型。在大多數(shù)情況下，程序員可以將 Single，Double 和 Currency 類型的變量替換為 Integer 或 Long 類型的變量，因?yàn)?VB 處理 Integer 和Long 的能力遠(yuǎn)遠(yuǎn)高于處理其它幾種數(shù)據(jù)類型。 Tan(n) 返回 n 的正切值，以弧度為單位。 Atn(n) 返回 n 的反正切值，以弧度為單位。當(dāng)窗體或控件上發(fā)生一個(gè)事件時(shí)， VB 立即把控制權(quán)交給程序員。過程通常用于響應(yīng)特定的事件?？丶氖纠形谋究?、標(biāo)簽和命令按鈕。微軟也不失時(shí)機(jī)地在四年內(nèi)接連推出VB20， VB30， 40，三個(gè)版本。 BASIC 語(yǔ)言的問世及發(fā)展到 Visual Basic 經(jīng)歷了以下四個(gè)階段： 第一階段：（ 1964 年～ 70 年代初） 1964 年 BASIC 語(yǔ)言問世。 關(guān)鍵詞：排課系統(tǒng)， Visual Basic Abstract With the development of modern puter science, puter information systems take more attention, in school many administration works worked by the puter. Because curriculum arrangement time is a tedious work, therefore it already gradually changed by the puter pletes. This article is the explanation based on the Visual Basic Arrangement curriculum system. First introduced development kit Visual Basic, then introduced how to use the Visual Basic function and how to pile high grade Visual Basic, finally in detail explained with Visual the Basic development the arrangement curriculum system, this part of main explanations system function realization, finally has been making the development summary. Keywords: Arrangement curriculum system, Visual Basic 第一章 前言 學(xué)校的課程安排工作 是 每 一個(gè) 學(xué)校必須完成的工作 ,它是一項(xiàng)繁瑣的工作，涉及到老師，教師，時(shí)間，班級(jí)的安排工作，以前都由人工來完成， 隨著計(jì)算機(jī)科學(xué)技術(shù)的飛速發(fā)展，計(jì)算機(jī)的應(yīng)用在全球范圍內(nèi)日益普及，安排課程已經(jīng)由人工管轉(zhuǎn)變?yōu)樽詣?dòng)化，機(jī)器化 。首先介紹開發(fā)工具 Visual Basic，接著介紹了 Visual Basic 的常用函數(shù)和怎樣編寫高質(zhì)量的 Visual Basic，最后詳細(xì)講解了用 Visual Basic 開發(fā)排課系統(tǒng)，這一部分主要講解系統(tǒng)功能的實(shí)現(xiàn)，在最后做了開發(fā)總結(jié)。 BASIC