以 Input模式打开进行读取操作处理的文件名为 TestFile的顺序文件。 FileOpen (1, TESTFILE Open Mode Input 加入对 TestFile文件进行读取访问处理的代码 FileClose(1) 关闭 TestFile文件 以oυtpt模式打开该文件,任何进程都可以写入该文件。 FileOpen(1, TESTFILE Open Mode Output, OpenAccess Default, Open Share Shared) 加入对 TestFile文件进行写入访问处理的代码,文件关闭前可以用另 种模式打开 FileClose(1) 以 Random模式打开 TestFile随机文件进行读写操作,该文件含结构 Person的记录 Structure person <VBFixedString ( 30)> Dim Name As String Dim ID As Integer End structure Public Sub ExampleMethodo Len( Person)记录长度为Name和ID长度之和为34。 Access、 Share参 数省略,但“不能省以 Input 模式打开进行读取操作处理的文件名为 TestFile的顺序文件。 FileOpen(1, "TESTFILE", OpenMode.Input) ' 加入对TestFile文件进行读取访问处理的代码 FileClose(1) ' 关闭TestFile文件 以 Output 模式打开该文件，任何进程都可以写入该文件。 FileOpen(1, "TESTFILE", OpenMode.Output, OpenAccess.Default, OpenShare.Shared) '加入对TestFile文件进行写入访问处理的代码，文件关闭前可以用另一 种模式打开 FileClose(1) 以 Random 模式打开TestFile随机文件进行读写操作，该文件含结构 Person 的记录。 Structure Person <VBFixedString(30)> Dim Name As String Dim ID As Integer End Structure Public Sub ExampleMethod() ' Len(Person)记录长度为Name和 ID长度之和为 34。Access、Share参 数省略，但“,”不能省