高考问答古诗 轻风扶细柳:这是怎么回事?
来源：百度文库 编辑：高考问答 时间：2024/04/29 20:54:27
我编了一个VB小程序,写入LX3.txt后,chinascore,matgscore,birthday为乱码,程序代码如下.
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
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
我也不知道
不过可以换用一个多维数组
错了