美国纳斯医学模型:这是怎么回事?

来源：百度文库编辑：查人人中国名人网时间：2024/05/09 03:30:13

我用VB编了一个小程序,向LX3.TXT中输入数据,代码如下:
Private Type customer
stunum As String * 10
stuname As String * 10
chinascore As Integer
mathscore As Integer
birthday As Date
End Type
,以上是在窗体的声明段

Private Sub Form_Click()
Dim stu1 As customer
Dim fileno As Integer
fileno = FreeFile
Open App.Path & "\lx3.txt" For Random As #fileno Len = Len(stu1)
With stu1
.stunum = "0003"
.stuname = "周辉"
.chinascore = 76
.mathscore = 89
.birthday = #2/6/1999#
End With
Put #fileno, 1, stu1
Close #fileno
End Sub
运行后chinascore,mathscore,birthday均为乱码?

这是怎么回事？？！！！！~~~~~ 这是怎么回事这是怎么回事？？这是怎么回事这是怎么回事? 这是怎么回事？这是怎么回事? 这是怎么回事这是怎么回事? 这是怎么回事???