全國計算機考試ppt課件-資料下載頁
2025-05-06 04:43本頁面
【正文】 Loop = wholetxt Close 1 End Sub 21 ? INPUT$(讀取字符數(shù) ,文件號 ) 隨意讀取字符 例 5：編寫一個程序，用 INPUT$函數(shù)從文件中一次讀出一個數(shù)據(jù)并在窗體上顯示出來，直到所有的數(shù)據(jù)都被讀出為止。 private Sub Form_Click( ) Dim OneChar Open “”For Input As 1 Do While Not EOF(1) OneChar = Input$(1 , 1) Print OneChar。 Loop Close 1 End Sub 22 ?讀文本文件到文本框 假定文本框名稱為 Text1，文件名為。 方法 1： 一行一行讀 ＝ Open For Input As 1 Do While Not EOF(1) Line Input 1, InputData ＝ + InputData+vbCrLf Loop Close 1 23 方法 2： 一次性讀 ＝ Open For Input As 1 = Input$( LOF(1), 1) Close 1 方法 3： 一個個字符讀 Dim InputData as String*1 ＝ Open For Input As 1 Do While Not EOF(1) InputData= Input$(1,1) ＝ + InputData Loop Close 1 24 二、隨機文件 1. 打開 Open 文件名 For Random As 文件號 [Len=記錄長度 ] 2. 寫操作 Put []文件號， [記錄號 ]，變量名 將一個記錄變量的內容寫到指定的記錄位置處。 忽略記錄號，則表示在當前記錄后的位置插入一條記錄。 3. 讀操作 Get []文件號， [記錄號 ]，變量名 忽略記錄號，則讀出當前記錄后的那一條記錄 。
教學課件相關推薦
鄂ICP備17016276號-1