VisualBasic60程序设计黄学平主编Ⅲ-05filearray幻灯片.pptVIP

例：打印输出杨辉三角 Dim a(1 To 5, 1 To 5) As Integer For i = 1 To 5 a(i, i) = 1: a(i, 1) = 1 Next i For i = 3 To 5 For j = 2 To i-1 a(i, j) = a(i - 1, j - 1) + a(i - 1, j) Next j Next i 1 0 0 0 0 1 1 0 0 0 1 2 1 0 0 1 3 3 1 0 1 4 6 4 1 For i = 1 To 5 Next i Print Tab(20 - 3 * i); For j = 1 To i Print a(i, j); Spc(3); Next j Print 在线教务辅导网： 更多课程配套课件资源请访问在线教务辅导网 馋死 PPT研究院 POWERPOINT ACADEMY * * * * * * * * 一、 文件的概念 文件：存储在外部介质上数据的集合。按名存取 1. 记录：由若干个相互关联的数据项组成。 磁盘文件是由数据记录组成 例如，由学生的学习成绩信息组成的记录： 学号 姓名 数学成绩 语文成绩 物理成绩 总分 数据项 2. 文件及其种类——文件是记录的集合 按存取方式及组成结构分类： 顺序文件、随机文件、二进制文件 (1) 顺序文件 按顺序依次把记录写入文件或把记录读出来。 文本文件：一行一条记录（一项数据），记录可长可短，以“换行”字符为分隔符号。 (2) 随机文件 可以直接访问文件中的任意一个记录。 记录长度相同 根据记录号访问 记录1 记录2 …… 记录n 文件结束标志 #1 记录1 #2 记录2 …… #n 记录n 顺序文件在程序中对文件的操作，通常按3个步骤进行： （一）顺序文件的打开和关闭 1、打开文件—— Open Open “文件名” For 模式 As [#]文件号 [Len=记录长度] (1) 模式： Output：写操作 Input：读操作 Append：追加到文件未尾 (2) 文件号：是个整数，其值范围是：1～511， (3) 记录长度：指定数据缓冲区的大小。 打开文件 读出或写入 关闭文件 2、关闭文件—— Close （3种类型文件都适用） 格式： Close [文件号列表]文件号列表，如：#1, #2, #3，如果省略，则将关闭Open语句打开的所有活动文件。 例如： Close #1, #2, #3 Close 例如： OPEN C:\TEMP\A.TXT FOR Input AS #1 OPEN C:\TEMP\B.TXT FOR Output AS #2 OPEN C:\TEMP\C.TXT FOR Append AS #3 （二） 顺序文件的读写操作 1、写操作 Print #文件号，[输出列表] (格式同以前) Open “d:\lsssss.txt For Output As #1 Print #1, One , txtTest; 123 ’txtTest文本框 Close #1 结果 例1 2. 读顺序文件 INPUT #文件号,变量列表 把读出的每个数据项分别存放到所对应的变量。 LINE INPUT #文件号,字符串变量 读一行到变量中，主要用来读取文本文件。 INPUT$(读取字符数, #文件号) 随意读取字符 3. 函数 LOF(文件号)：返回文件的长度(总字节数)。 EOF(文件号)：返回读写位置。 文件未尾时，EOF函数为True，否则为False。 例：读文本文件到文本框 假定文本框名称为txtTest，文件名为MYFILE.TXT。 方法1：一行一行读 txtTest.Text ＝ Open MYFILE.TXT For Input As #1 Do While Not EOF(1) Line Input #1, InputData txtTest.Text ＝ txtTest.Text + InputData+vbCrLf Loop Close #1 回车换行 相当于chr(13)+chr(10) 方法2：一次性读 txtTest.Text = Input( LOF(1),1) 方法3：一个个字符读 Do