VB 菜鸟,大神们 有时间帮帮我
在标准模块输入如下 Type record
name As String * 10
unit As String * 15
age As Integer
salary As Single
End Type
在窗体模块输入如下
Dim a As record(在通用声明)
Private Sub Form_Click()
Open "f:\abc.dat" For Random As #1 Len = Len(a)
a.name = InputBox("姓名")
a.unit = InputBox("职位")
a.age = InputBox("年龄")
a.salary = InputBox("工资")
Put #1, , a
Get #1, 1, a
Print a.name, a.unit, a.age, a.salary
End Sub
为什么 在窗体上显示的信息不全 没有最后一个