vb語言程序設(shè)計(jì)-vb第8章電子講稿-文庫吧在線文庫
【正文】 39。每顯示 4個(gè)數(shù)后換行 Loop Close 1 End Sub 例 從文件 “ ”中讀取數(shù)據(jù) 從文件 (見例 )中讀出 5個(gè)學(xué)生的資料，顯示在列表框中，并求出平均分 (1) 創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性 例 從文件 5個(gè)學(xué)生的資料 (2)編寫程序代碼 功能要求： 單擊“查詢”按鈕時(shí)，則打開文件后讀取文件中所有記錄內(nèi)容，并顯示在列表框 List1中，計(jì)算得到的平均分顯示在文本框 Text1中 Private Sub Command1_Click() Dim n As String, m As String, s As Integer Dim x As String, t As Integer Open C:\my documents\ For Input As 1 t = 0 For i = 1 To 5 Input 1, n, m, s x = n + Space(2) + m + Str(s) x ： t = t + s Next i Close 1 = t / 5 End Sub 2. Line Input語句 格式： Line Input 文件號，字符型變量 功能：從打開的順序文件中讀出一個(gè)記錄，即一行信息 例 Print語句和 Line Input語句配合使用的示例 Private Sub Form_Load() Show Open For Output As 1 a = 123 : b$ = ABCD Print 1, a, b$ 39。變量個(gè)數(shù)和類型應(yīng)該與要讀取的記錄所存儲的數(shù)據(jù)一致。存入記錄 = 39。無法靈活地隨意存取它。如果是，函數(shù)值為真值，否則為假值。其輸出數(shù)據(jù)格式與 Print方法在窗體上輸出格式相似。每行顯示 4個(gè)數(shù)。讀出第 2個(gè)記錄 Print x$ Close 1 End Sub 3. Input 格式： Input(字符數(shù)， 文件號 ) 示例： A$ =Input(20, 1) 順序文件的缺點(diǎn)是不能快速地存取所需的數(shù)據(jù)，也不容易進(jìn)行數(shù)據(jù)的插入、刪除和修改等工作，因此對于經(jīng)常要修改數(shù)據(jù)或取出文件中個(gè)別數(shù)據(jù)，均不適合使用，但對于數(shù)據(jù)變化不大，每次使用時(shí)又需要從頭往后順序地進(jìn)行讀寫，它還是不失為一種好的文件結(jié)構(gòu) 隨機(jī)文件中每一個(gè)記錄定長，并設(shè)置記錄號，記錄號從1開始。 當(dāng)通過 Dim定義一個(gè)變量 (如 nv)為一個(gè)記錄類型 Numval時(shí)，該變量也就包含該類型的多個(gè)數(shù)據(jù)項(xiàng)，以后可通過 、 (2) 指定 Random類型打開文件，記錄定長，打開文件后，就可以存或取任一個(gè)記錄 (3)分別通過 Get和 Put語句，并指定記錄號進(jìn)行讀一個(gè)記錄或存一個(gè)記錄 一定要建立好記錄與記錄號之間的關(guān)系 1. 讀語句 格式： Get 文件號［，記錄號］，變量 功能：從一個(gè)隨機(jī)文件中讀出指定記錄到一個(gè)變量 2. 格式： Put 默認(rèn)情況下，記錄號編號為上一次使用的記錄號加 1 存取操作 建立一個(gè)有 5名職工工資信息的隨機(jī)文件，其中包括職工的職工號 (從 001開始 )、姓名及工資三種數(shù)據(jù)。文本框清空 = Put 1, reo, sal End Sub ⑥ 編寫“關(guān)閉”按鈕的 Click事件過程 Private Sub Command4_Click() Close 1 Unload Me End Sub 可以在應(yīng)用程序中很方便地對文件和文件夾進(jìn)行操作 (1)建立文件夾語句 (MrDir)： MkDir ［路徑］文件夾名 示例： MkDir D:\VB\Temp (2)改變當(dāng)前文件夾語句 (ChDir)： ChDir 路徑 示例： ChDir D:\VB\Dat (3)刪除文件夾語句 (RmDir)： RmDir ［路徑］文件夾名 示例： RmDir D:\VB\Temp (4)刪除文件語句 (Kill)： Kill ［路徑］文件名 示例： Kill D:\VB\ Kill D:\VB\dat\*.* 文件基本操作 (5)拷貝文件語句 (FileCopy)： FileCopy [路徑 1] 源文件 [, [路徑 2] 目標(biāo)文件 ] 示例： FileCopy C:\, D:\Temp\ (6)文件的改名和移動： Name 原名 As 新名 改名示例： Name C:\ As C:\ 移動示例： Name C:
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1