UC知道一个vb随机文件写入的问题，高手来解决下呢
来源：百度知道 编辑：UC知道 时间：2024/09/28 15:49:49
Private Type stu
no As Integer
name As String * 10
sex As Boolean
birth As Date
Class As Integer
major As String * 20
End Type
Dim student As stu
Private Sub Command1_Click()
Open "student.dat" For Random As #1 Len = Len(student)
student.no = studentnumber.Text
student.name = studentname.Text
If sex(0) Then
student.sex = True
Else
student.sex = False
End If
student.birth = birthday.Text
student.Class = classnumber.Text
student.major = major.Text
Put #1, i, student
Close #1
End Sub
no As Integer
name As String * 10
sex As Boolean
birth As Date
Class As Integer
major As String * 20
End Type
Dim student As stu
Private Sub Command1_Click()
Open "student.dat" For Random As #1 Len = Len(student)
student.no = studentnumber.Text
student.name = studentname.Text
If sex(0) Then
student.sex = True
Else
student.sex = False
End If
student.birth = birthday.Text
student.Class = classnumber.Text
student.major = major.Text
Put #1, i, student
Close #1
End Sub
i没有定义，VB自动理解为Variant，其值为0，而Put语句的记录号是从1开始的。
另外，给Integer类型成员赋值最好采用Val函数或CInt函数转换，如student.no = Val(studentnumber.Text )
给Date类型成员赋值也需要强制转换，用CDate函数，如student.birth =CDate( birthday.Text)
在open前插入如下代码：
dim student as stu