Private Type stu
    id As Integer
    Name As String * 20
End Type
Dim stu1 As stu
Dim Number As Integer

Private Sub Command1_Click()
Open App.Path + "\MyRand1.txt" For Random As #1 Len = Len(stu1)
For Number = 1 To 5
    stu1.id = Number
    stu1.Name = "My Name" & Number
    Put #1, Number, stu1
Next Number
Close #1
End Sub

Private Sub Command2_Click()
Open App.Path + "\MyRand2.txt" For Random As #2 Len = Len(stu1)
For Number = 6 To 10
    stu1.id = Number
    stu1.Name = "My Name" & Number
    Put #2, Number, stu1
Next Number
Close #2
End Sub

请问这两个文件中的美容怎么差别这么大啊下面是这两个文件的内容：
MyRand1.txt

祍丠浡ㅥ††††††祍丠浡㉥††††††祍丠浡㍥††††††祍丠浡㑥††††††祍丠浡㕥††††††
MyRand2.txt
                                                                                                               My Name6             My Name7             My Name8                 My Name9           
 My Name10      
求解，两个文件内容合并后文件的内容怎么是对的
MyRand3.txt

My Name1             My Name2             My Name3             My Name4             My Name5                                                                                                                                                 My Name6             My Name7             My Name8                 My Name9           
 My Name10

由于你写入的是自定义变量，并不是纯文本，因此只能以字节进行比较，不能以查看文本的方式比较（错误的中文字符会使两个相近的内容显示完全不同），下图是将你的两个文件用16进制查看即可看出没什么差别。

lowxiong 好兴致。
我昨天在家，没工具，没办法比较。

随机文件，分析，必须要按 16进制编辑器 进行查看，不能按TXT文件打开。
除非你随机文件中，特意按 TXT文件格式进行保存了。

没看懂，不过我明白你意思是说进制不对。

那如何让其按txt保存

将自定义类型修改如下，大概可以看到文本。

Private Type stu
    id As string
    Name As String * 20
End Type

好像winhex

怎样通过类似Type定义，从字节数组中读取数据呢？