编程实现：打开上题生成的文件file2.dat，把数据读取出来并保存到数组或者链表中，然后计

VB读取dat文件需要看dat文件是如何写成的，通常应该是以二进制方式来读取。用Get语句来将数据从文件读到变量中。同样将数据写入dat文件也应使用二进制方式写，用Put语句实现。以下是Get语句和Put语句的使用实例：Option Explicit Private Type Record ' 定义用户自定义的数据类型。 ID As Integer Name As String * 20 End Type'读取数据Private Sub Command1_Click() Dim MyRecord As Record, Position ' 声明变量。 ' 为随机访问打开样本文件。 Open "C:\TESTFILE.dat" For Random As #1 Len = Len(MyRecord) ' 使用 Get 语句来读样本文件。 Position = 5 ' 定义记录号。 Get #1, Position, MyRecord ' 读第三个记录。 Close #1 Text1.Text = MyRecord.ID Text2.Text = MyRecord.NameEnd Sub'写入数据Private Sub Command2_Click() Dim MyRecord As Record, RecordNumber ' 声明变量。 ' 以随机访问方式打开文件。 Open "C:\TESTFILE.dat" For Random As #1 Len = Len(MyRecord) For RecordNumber = 1 To 5 ' 循环五次。 MyRecord.ID = RecordNumber ' 定义 ID。 MyRecord.Name = "My Name" & RecordNumber ' 建立字符串。 Put #1, RecordNumber, MyRecord ' 将记录写入文件中。 Next RecordNumber Close #1End Sub扩展名是DAT的文件并不是一种标准文件。许多软件都使用这个扩展名，但文件含义不同。而许多数据分析软件也用这个扩展名保存数据。所以这要看具体的软件情况来定。DAT文件，可以按照扩展名来看就是DATA的意思，即数据文件，这类文件并没有进行绝对化的定义，例如VCD光盘中的DAT文件就可以用一般的视频播放器打开，而QQ的DAT文件中则存储了用户信息，是无法使用常规方式打开的，只有QQ程序可以访问。还有一些其他程序都有自己对DAT文件的定义，要通过其特殊的程序来打开与之相关联的DAT文件。参考：/link?url=bOpq_J07IEkCS_CsW0FG_hoN_0sQAa0w5FVdlxwavqxJDxFUp0g5r6-g3EVzcS_Gu7bGH-hkFdoVfaTVxetjNK