帮我看看这段代码哪里错了！？

Question

Open "D:\Program Files\Subject Timetable\data\date.lhc" For Random As #1 Len = 30
di1 = Text8.Text
Put #1, 2, di1
Close #1Open "D:\Program Files\Subject Timetable\data\date.lhc" For Random As #1 Len = 30
di2 = Text9.Text
Put #1, 3, di2
Close #1
Open "D:\Program Files\Subject Timetable\data\date.lhc" For Random As #1 Len = 30
di3 = Text10.Text
Put #1, 4, di3
Close #1
Open "D:\Program Files\Subject Timetable\data\date.lhc" For Random As #1 Len = 30
di4 = Text11.Text
Put #1, 5, di4
Close #1
Open "D:\Program Files\Subject Timetable\data\date.lhc" For Random As #1 Len = 30
di5 = Text12.Text
Put #1, 6, di5
Close #1

Answer 1

打开相同的文件 写入不同的字符串？代码写的太少了 光靠这些代码解决不了问题好像那个是PUT有问题...

Answer 2

您将出现"错误的记录长度"错误在运行时在 QuickBasic 版本 4.0b 或 4.5 程序使用可变长度的字符串，长度等于 OPENed 随机文件缓冲区的记录长度作为 PUT 语句的第三个参数。 因为两个字节的字符串长度被写入除了字符串本身文件，记录长度指定的"LEN ="OPEN 语句中的子句必须至少 2 字节长于可变长度的字符串用作在 PUT 语句中第三个参数。
为什么我没问题...你的LEN如果小于TEXT的长度是会有错误的,其他的没问题...