查人人中国名人网eve蓝色和白色的区别:这是为什么?
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/28 14:44:45
我用VB编的一段小程序,用来向LX3.TXT中输入数据,但是chinascore,mathscore,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