vb语言程序设计-vb第8章电子讲稿(编辑修改稿)

vb语言程序设计-vb第8章电子讲稿(编辑修改稿)内容摘要：

39。 读出 Close 1 Print c, d$ End Sub 123 ABCD 例 一个存取数据的示例 已知文件“ ”中存放一批能被 7整除的数 (见例 及例 )，现要求把这些数显示出来。 每行显示 4个数。 Private Sub Form_Load() Show k = 0 Open For Input As 1 Do While Not EOF(1) 39。 文件未结束时，循环 Input 1, x Print x, k = k + 1 If k Mod 4 = 0 Then Print 39。 每显示 4个数后换行 Loop Close 1 End Sub 例 从文件 “ ”中读取数据 从文件 (见例 )中读出 5个学生的资料，显示在列表框中，并求出平均分 (1) 创建应用程序的用户界面和设置对象属性 例 从文件 5个学生的资料 (2)编写程序代码 功能要求： 单击“查询”按钮时，则打开文件后读取文件中所有记录内容，并显示在列表框 List1中，计算得到的平均分显示在文本框 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 文件号，字符型变量 功能：从打开的顺序文件中读出一个记录，即一行信息 例 Print语句和 Line Input语句配合使用的示例 Private Sub Form_Load() Show Open For Output As 1 a = 123 : b$ = ABCD Print 1, a, b$ 39。 写入第 1个记录 Print 1, a。 b$ 39。 写入第 2个记录 Close 1 Open For Input As 1 Line Input 1, x$ 39。 读出第 1个记录 Print x$ Line Input 1, x$ 39。 读出第 2个记录 Print x$ Close 1 End Sub 3. Input 格式： Input(字符数， 文件号 ) 示例： A$ =Input(20, 1) 顺序文件的缺点是不能快速地存取所需的数据，也不容易进行数据的插入、删除和修改等工作，因此对于经常要修改数据或取出文件中个别数据，均不适合使用，但对于数据变化不大，每次使用时又需要从头往后顺序地进行读写，它还是不失为一种好的文件结构 随机文件中每一个记录定长，并设置记录号，记录号从1开始。 存取记录时，只要说明所需记录的编号，系统就以此算出记录所在位置，然后加以写入或读出 初步认识 例 建立一个随机文件，文件中包含 10个记录，每个记录由一个数 (1至 10)的平方、立方和开方根三个数值组成， 随机文件 (1) 通过 Type...End Type语句定义记录类型，程序代码如下： Private Type Numval Squre As Integer Cube As Long Sqroot As Single End Type (2)利用某一过程 (本例采用事件过程 Form_Load)来完成该随机文件的存取操作，程序代码如下： Dim nv As numval 39。 定义一个 numval类型的变量nv。