【正文】 amp。 amp。 amp。 For Output As 1Close 1End IfEnd Sub添加刪除教室，添加刪除班級，添加刪除教師都需要對時間表進(jìn)行設(shè)置，并且可以將此課程放入不用排的課程類別中去。將這一排所有班的課程數(shù)據(jù)都讀入一組變量doingctFor a1 = first_class To first_class + 3If (a1).Text ThenOpen .\kcb_done\class_kcb\ amp。第四章 使用Visual Basic開發(fā)排課系統(tǒng)在開發(fā)此套系統(tǒng)之前，首先要按照軟件工程的方法確定所使用的開發(fā)模型，利用軟件工程的相關(guān)知識，確定采用的過程模型是快速原型。這個數(shù)字聽起來有點(diǎn)駭人聽聞，但是如果你考慮到集合是一個對象，你就會明白為什么差異會這么大。 Tan(n)返回n的正切值，以弧度為單位。當(dāng)窗體或控件上發(fā)生一個事件時，VB立即把控制權(quán)交給程序員?？丶氖纠形谋究?、標(biāo)簽和命令按鈕。 BASIC語言的問世及發(fā)展到Visual Basic經(jīng)歷了以下四個階段：　　第一階段：（1964年～70年代初） 1964年BASIC語言問世。1） 系統(tǒng)總體規(guī)劃欠缺：系統(tǒng)在開發(fā)過程中就感到總體規(guī)劃存在一定問題，如操作安排的不合理，可能導(dǎo)致用戶不知道怎么使用該系統(tǒng)。 amp。 節(jié) //從文本文件中取出課程時間 (ee) Next i End Sub對課表樣式進(jìn)行設(shè)置，從下拉列表中選擇所需要的課表節(jié)數(shù)或者天數(shù)，如下圖代碼如下：//判斷設(shè)置的天數(shù)或者節(jié)數(shù)是否在預(yù)定的范圍之內(nèi)Private Sub Command1_Click()If CInt() 0 Or CInt() 7 Or CInt() 0 Or CInt() 9 Or CInt() 0 Or CInt() 9 Or CInt() 0 Or CInt() 9 Then MsgBox (數(shù)據(jù)溢出!!) Exit SubEnd If//Open .\data\ For Output As 1 Dim w1 As String Dim w2 As String Dim w3 As String Dim w4 As String Dim w5 As String Dim w6 As String w1 = w2 = w3 = w4 = w5 = w6 = Write 1, w1 Write 1, w2 Write 1, w3 Write 1, w4 Write 1, w5 Write 1, w6 Close 1完成了添加教室，教師，課程，以及設(shè)置好了課表樣式后，要對課程進(jìn)行跟教師，教師的關(guān)聯(lián)。 .dat For Output As 2For h = 0 To CInt() 1Write 2, Next hClose 2Open .\kcb_done\class_kcb\ amp。 form3_Text7(b1) = ww End If Next b1Close 1End IfNext a139。原因是循環(huán)會占用額外的CPU時間。在大多數(shù)情況下，程序員可以將Single，Double和Currency類型的變量替換為Integer或Long類型的變量，因?yàn)閂B處理Integer和Long的能力遠(yuǎn)遠(yuǎn)高于處理其它幾種數(shù)據(jù)類型。9 Fix(n)返回?cái)?shù)字的整數(shù)部分。利用VB的可視性特點(diǎn)，可方便的設(shè)計(jì)了程序的窗體界面，并在各個窗體中的合適位置繪制所需的每種控件?！　》椒ā度朐趯ο蠖x中的程序代碼，它定義對象怎樣處理信息并響應(yīng)某事件。這在當(dāng)時引起了很大的轟動。智能排課管理系統(tǒng)目 錄目 錄 1摘 要 1Abstract 2第一章 前言 3第二章 關(guān)于Visual Basic 3 Visual Basic的歷史 3 Visual Basic常用術(shù)語解釋 4 Visual Basic的特點(diǎn) 4第三章 Visual Basic技術(shù) 5 Basic常用函數(shù)介紹 5 6第四章 使用Visual Basic開發(fā)排課系統(tǒng) 7 7 8 8 8 9 13 17第五章 開發(fā)總結(jié) 20參考文獻(xiàn)： 21摘 要隨著現(xiàn)代計(jì)算機(jī)科學(xué)的發(fā)展，計(jì)算機(jī)信息系統(tǒng)越來越受到重視，在學(xué)校管理中的許多工作都由計(jì)算機(jī)完成。許多專家把VB的出現(xiàn)當(dāng)作是軟件開發(fā)史上的一個具有劃時代意義的事件。例如，數(shù)據(jù)庫對象有打開紀(jì)錄集并從一個記錄移動到另一個記錄的方法。如要修改窗體或控件的某項(xiàng)屬性，只需在相應(yīng)的窗體或控件的屬性窗口修改相應(yīng)的參數(shù)便可達(dá)到需要的設(shè)計(jì)效果。8 數(shù)據(jù)類型轉(zhuǎn)換函數(shù)轉(zhuǎn)換函數(shù)將表達(dá)式轉(zhuǎn)換成CBoolBooleanCByteByteCCurCurrency 39?！　≡诖蠖鄶?shù)情況下，程序員選擇使用Single或Double的原因是因?yàn)樗鼈兡軌虮４嫘?shù)。但是如果循環(huán)比較復(fù)雜，你就沒有必要這樣做了。將這個老師的課程數(shù)據(jù)也讀入這組變量doingctOpen .\kcb_done\teacher_kcb\ amp。 amp。可以在下拉菜單中選擇課程，也可以添加刪除教師和教室。 xueshi amp。2） 系統(tǒng)界面美觀欠缺：界面單調(diào)，整體布局不太合理，這個問題時由于開發(fā)過程中著重關(guān)注技術(shù)的原因，導(dǎo)致界面不象商業(yè)軟件一樣美觀。 　　第二階段：（1975年～80年代中） 微機(jī)上固化的BASIC　　第三階段：（80年代中～90年代初） 結(jié)構(gòu)化BASIC語言?！　∈录捎脩艋虿僮飨到y(tǒng)引發(fā)的動作。程序員不必?fù)?dān)心如何判斷事件是否已發(fā)生，只需要編寫一段代碼告訴計(jì)算機(jī)在事件發(fā)生以后應(yīng)該做什么工作就可以了。Val(n)把字符串轉(zhuǎn)換為數(shù)值值。返回65下面的這些方法可以幫助你提高代碼的運(yùn)行速度：　　1. 使用整數(shù)（Integer）和長整數(shù)（Long）　　提高代碼運(yùn)行速度最簡單的方法莫過于使用正確的數(shù)據(jù)類型了?！　?. 展開小的循環(huán)體　　在編碼的時候，有可能遇到這種情況：一個循環(huán)體只會循環(huán)2到3次，而且循環(huán)體由幾行代碼組成?？焖僭褪抢迷洼o助軟件開發(fā)的一種新思想。 (a1).Text 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。 class amp。 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ā)，并具備一定的使用價值。 For Input As 1 Dim class_teacher As String Do Until EOF(1) Input 1, class_teacher kkk(k) = class_teacher k = k + 1 LoopClose 1 For k = (2 * (heng + 2) + 2) To (((shu) * 3 + 1)) * (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。 For Input As 2Dim RN As StringDim roomtype(99) As IntegerDim roomname(99) As Stringroomcount = 0//教師與之關(guān)聯(lián)的班級的信息進(jìn)行保存Private Sub save_Click() Open .\data\teacher_name\ amp。 For Input As 1 Do Until EOF(1) Input 1, qq (qq) Loop Close 1 For i = 0 To 1 = i = i ee = 星期 amp。 amp。代碼列舉如下：39。據(jù)測試，數(shù)組的存取速度可以達(dá)到集合的100倍。115 Xor 50Str(n)把數(shù)值值轉(zhuǎn)換成字符串。VB的另一重要特點(diǎn)是事件驅(qū)動。 Visual Basic常用術(shù)語解釋在以下討論Visual Basic時，經(jīng)?？梢月牭竭@些術(shù)語，因此首先對這些術(shù)語進(jìn)行理解，以下是Visual Basic中最常用到的幾個術(shù)語：　　控件—提供程序可見界面的可重用對象。BASIC簡單、易學(xué)，目前仍是計(jì)算機(jī)入門的主要學(xué)習(xí)語言之一。但是由于時間、技術(shù)等各方面因素，本系統(tǒng)仍不完善，有很多問題需要解決。 .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。 .dat For Input As 1 For b1 = 0 To zong 1 Input 1, ww If doingct(b1) = Then doingct(b1) = ww 39。經(jīng)過簡單快速分析，快速實(shí)現(xiàn)一個原型，用戶與開發(fā)者在試用原型過程中加強(qiáng)通信與反饋，通過反復(fù)評價和改進(jìn)原型，減少誤解，彌補(bǔ)漏洞，適應(yīng)變化，最終提高軟件質(zhì)量。在這種情況下，你可以把循環(huán)展開。也許你不相信，但是正確地選擇數(shù)據(jù)類型可以大幅度提升代碼的性能。Int(n)返回?cái)?shù)字的整數(shù)部分。這樣，設(shè)計(jì)一個Windows應(yīng)用程序簡化為用鼠標(biāo)在屏幕上點(diǎn)擊、拖拽并添加少量的代碼就可以完成了，大大降低了對程序設(shè)計(jì)的要求，提高了應(yīng)用