二級(jí)VB考試系統(tǒng)第6次課文件44學(xué)時(shí)課件

2010年9月等級(jí)考試輔導(dǎo)

二級(jí)VisualBasic第六講文件

隨機(jī)文件2順序文件1文件控件3

多窗體4順序文件和隨機(jī)文件（1）順序文件：順序文件的結(jié)構(gòu)比較簡(jiǎn)單，文件中的記錄一個(gè)接一個(gè)地存放；（2）隨機(jī)文件：數(shù)據(jù)采用記錄方式組織，可以根據(jù)需要直接訪問(wèn)文件中的每個(gè)記錄。優(yōu)點(diǎn)是數(shù)據(jù)的存取較為靈活、方便，速度較快，容易修改；缺點(diǎn)是占空間較大，數(shù)據(jù)組織較復(fù)雜。順序文件：文件讀/寫(xiě)只能在文件指針?biāo)肝恢秒S機(jī)文件：可任意讀取或在任意位置寫(xiě)入記錄P154-考點(diǎn)2文件的操作語(yǔ)句和函數(shù)Open文件名[For模式]As[#]文件號(hào)[Len=記錄長(zhǎng)度]ForOutput：順序文件寫(xiě)ForInput：順序文件讀Input方式打開(kāi)，要求被讀取文件必須存在ForAppend：順序文件追加方式寫(xiě)ForRandom：隨機(jī)文件讀寫(xiě)考點(diǎn)2文件的操作語(yǔ)句和函數(shù)文件指針文件打開(kāi)后自動(dòng)生成一個(gè)文件指針。當(dāng)使用Input、Output、Random等方式打開(kāi)文件時(shí)，文件指針指向文件的開(kāi)頭。使用Append方式打開(kāi)文件時(shí)，文件指針指向文件的末尾。完成一次讀寫(xiě)操作后，文件指針自動(dòng)地指向下一次讀寫(xiě)操作的位置?？键c(diǎn)2文件的操作語(yǔ)句和函數(shù)Open文件名[For模式]As[#]文件號(hào)[Len=記錄長(zhǎng)度]文件號(hào)：1~511，在操作時(shí)用于指代打開(kāi)的文件記錄長(zhǎng)度：隨機(jī)文件操作時(shí)需指定記錄長(zhǎng)度文件大小=所有記錄大小之和考點(diǎn)2文件的操作語(yǔ)句和函數(shù)重要函數(shù)1．LOF(文件號(hào))

返回文件的長(zhǎng)度（字節(jié)數(shù)）2．EOF(文件號(hào))

如果當(dāng)前文件指針指向文件末尾，則返回True，否則返回False3.Seek#文件號(hào),位置定位文件指針考點(diǎn)3順序文件順序文件的寫(xiě)操作1．Print#語(yǔ)句Print#文件號(hào),[[Spc(n)|Tab(n)][表達(dá)式表][;|,]]Open“test”ForOutputAs#1‘打開(kāi)文件供輸出（寫(xiě)入）

Print#1,"thisisatest"‘輸出一行內(nèi)容

Print#1, ‘輸出一個(gè)空行

Print#1,"hello";"";"world"Print#1,Spc(5);"helloeveryone"Print#1,Tab(10);"hello"Close#1標(biāo)準(zhǔn)輸出緊湊輸出省略＃會(huì)怎么樣呢？考點(diǎn)3順序文件順序文件的寫(xiě)操作2．Write#語(yǔ)句

Write#文件號(hào)，表達(dá)式表

Write#1,"One","Two",123Print#1,"One","Two",123考點(diǎn)3順序文件順序文件寫(xiě)操作將一個(gè)二維數(shù)組a(5,5)的所有數(shù)組元素按矩陣（5行5列）寫(xiě)入到文件OUT.txtDima(5,5)AsIntegerFori=1To5Forj=1To5a(i,j)=Rnd*100NextjNextiOpen"out.txt"ForOutputAs#1Fori=1To5Forj=1To5Print#1,a(i,j);NextjPrint#1,NextiClose#1考點(diǎn)3順序文件順序文件的讀操作1．Input#語(yǔ)句格式：Input#文件號(hào)，變量表功能：把讀出的每個(gè)數(shù)據(jù)項(xiàng)分別存放到所對(duì)應(yīng)的變量2．LineInput#語(yǔ)句格式：LineInput#文件號(hào)，字符串變量功能：讀一行到變量中，主要用來(lái)讀取文本文件。3．Input$函數(shù)格式：Input$（n，#文件號(hào)）功能：從“文件號(hào)”所指定的順序文件中讀出n個(gè)字符

Open“out.txt"ForInputAs#1Input#1,a,b,cClose

Open“out.txt"ForInputAs#1WhileNotEOF(1)LineInput#1,aWendCloseDoWhileNotEOF(1)inputdata=Input(1,#1)Text1.Text=Text1.Text+inputdataLoop歷年真題2．在名稱為Form1的窗體上畫(huà)一個(gè)文本框，其名稱為T(mén)ext1，在屬性窗口中把該文本框的MultiLine屬性設(shè)置為T(mén)rue，然后編寫(xiě)如下的事件過(guò)程：PrivateSubForm_Click()Open"d:\test\smtext1.txt"ForInputAs#1DoWhileNot【1】

LineInput#1,aspect$whole$=whole$+aspect$+Chr$(13)+Chr$(10)LoopText1.Text=whole$Close#1Open"d:\test\smtext2.txt"ForOutputAs#1Print#1,【2】

Close#1EndSubEof(1)Text1.Text上機(jī)教程147-真題11.1【例7】捷成14-5程序界面如下，代碼不完整，只有一個(gè)函數(shù)過(guò)程isprime(a)可以在程序中直接調(diào)用，其功能是判斷參數(shù)a是否為素?cái)?shù)，如果是素?cái)?shù)，則返回True，否則返回False。請(qǐng)編寫(xiě)適當(dāng)?shù)氖录^(guò)程，使得在運(yùn)行時(shí)，單擊“輸入”按鈕，就把文件in5.txt中的整數(shù)放入Text1中；單擊“計(jì)算”按鈕，則找出大于Text1中的整數(shù)的第1個(gè)素?cái)?shù)，并顯示在Text2中；單擊“存盤(pán)”按鈕，則把Text2中的計(jì)算結(jié)果存入out5.txt文件中?？键c(diǎn)5隨機(jī)文件隨機(jī)文件的特點(diǎn)：文件由相同大小的記錄組成；每個(gè)記錄包含記錄號(hào)和記錄的內(nèi)容?？键c(diǎn)4用戶自定義數(shù)據(jù)類型用戶定義的數(shù)據(jù)類型利用Type語(yǔ)句定義自己的數(shù)據(jù)類型（因其常用于隨機(jī)文件的記錄操作，又稱記錄類型），其格式如下：記錄類型的定義必須放在通用聲明段考點(diǎn)5隨機(jī)文件隨機(jī)文件的特點(diǎn)：文件由相同大小的記錄組成；每個(gè)記錄包含記錄號(hào)和記錄的內(nèi)容。隨機(jī)文件的打開(kāi)Open“文件名“[ForRandom]As文件號(hào)Len=記錄長(zhǎng)度隨機(jī)文件的寫(xiě)操作

Put#文件號(hào),［記錄號(hào)］,變量隨機(jī)文件的讀操作

Get#文件號(hào)，［記錄號(hào)］，變量隨機(jī)文件的操作步驟（1）自定義數(shù)據(jù)類型；（2）打開(kāi)隨機(jī)文件；（3）將內(nèi)存中的數(shù)據(jù)進(jìn)行寫(xiě)、讀操作：（4）關(guān)閉文件。（2004年4月選擇題第23題）假定在窗體（名稱為Form1）的代碼窗口中定義如下記錄類型：PrivateTypeanimalAnimalNameAsString*20AColorAsString*10EndType在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程:PrivateSubCommand1_Click()DimrecAsanimalOpen"c:\vbTest.dat"ForRandomAs#1Len=Len(rec)rec.animalName="Cat"rec.aColor="White"

Put#1,,recClose#1EndSub考點(diǎn)6文件控件控件名屬性屬性描述事件事件描述DriveListBox驅(qū)動(dòng)器列表框Drive字符串，設(shè)置所選擇的驅(qū)動(dòng)器名。只能用程序代碼設(shè)置，不能通過(guò)屬性窗口設(shè)置。Change當(dāng)驅(qū)動(dòng)器發(fā)生改變時(shí)被觸發(fā)SubDrive1_Change()Dir1.Path=Drive1.DriveEndSubDirListBox目錄列表框Path字符串，設(shè)置當(dāng)前目錄（文件夾）的路徑。Change當(dāng)文件夾或目錄發(fā)生改變時(shí)被觸發(fā)SubDir1_Change()=Dir1.PathEndSub考點(diǎn)6文件控件控件名屬性屬性描述事件事件描述文件列表框Path與目錄列表框同。Click當(dāng)文件列表框中的某一文件被單擊時(shí)觸發(fā)Pattern設(shè)置在執(zhí)行時(shí)要顯示的某一種類型的文件，它可以在設(shè)計(jì)階段從屬性窗口設(shè)置，也可以通過(guò)程序代碼設(shè)置。用來(lái)在文件列表框中設(shè)置或返回某個(gè)選定的文件名稱?？键c(diǎn)2多重窗體程序的執(zhí)行與保存一、指定啟動(dòng)窗體在VisualBasic的應(yīng)用程序中，只有啟動(dòng)窗體才能在運(yùn)行程序時(shí)自動(dòng)顯示出來(lái)，其他窗體必須通過(guò)Show方法才能看到。啟動(dòng)窗體通過(guò)“工程”菜單中的“工程屬性”命令來(lái)指定。執(zhí)行該命令后，將打開(kāi)“工程屬性”對(duì)話框，單擊“通用”選項(xiàng)卡后，在“啟動(dòng)對(duì)象”組合框中可選擇要作為啟動(dòng)窗體的窗體的名稱。上機(jī)教程P140-練習(xí)10.4程序運(yùn)行后，在Form1窗體的文本框中輸入有關(guān)信息（“密碼”框中顯示“*”字符），然后單擊“提交”按鈕則彈出“確認(rèn)”對(duì)話框(即Form2窗體)