程序名称：随机文件的读写
界面如下：四个文本框控件（text)分别对应四个标签（label)--学号，姓名，数学，英语；两个命令按钮--添加、结束，一个通用对话框（commondialog1)
.
代码如下：
Private Type student
studnum As String * 6
studname As String * 5
math As Integer
english As Integer
End Type
Dim stud As student

Private Sub Command1_Click()
stud.studnum = Text1.Text
stud.studname = Text2.Text
stud.math = Val(Text3.Text)
stud.english = Val(Text4.Text)
Put #1, , stud
Text1 = "": Text2 = "": Text3 = "": Text4 = ""
End Sub

Private Sub Command2_Click()
Close #1
End
End Sub

Private Sub Form_Load()
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Random As #1 Len = Len(stud)
End Sub
运行结果如下（也可参见上传文件中的aaa.txt）：
01    张三 b Y 02    李四 Y N 03    王五 S Z 


1.按照上面的代码运行后，在生成的txt文件中，“数学”和“英语”成绩未显示成“数字”，而是显示成上面的“b y”等,不知是何原因？
2.生成的记录是“接排”而不是按照“一条记录一行”排列的，不知何因？
   如果哪位能帮忙解决，望不吝赐教！ 谢谢