在标准模块输入如下
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
为什么 在窗体上显示的信息不全 没有最后一个

我这按照你的代码写的能显示全啊。没问题啊，如图：

姓名=2B
职位=Student
年龄=15
工资=1000
问题分析：
是不是你的Form1窗口设置的太小，导致最后一个没显示出来？

收到的鲜花

• 郭金龙 于 2014-10-29 10:29 送鲜花  3朵   附言：我很赞同

谢谢大哥啊，问题找到了。这是这个原因，必须先把窗体放大了，才能显示，先显示再放大 就没有。刚学Vb 问题有点幼稚，麻烦你了。

我也是才学。。。同是菜鸟^_^。。。共同进步