LISTBOX中如何显示随机文件里的字符，字符定义为string

Question

LISTBOX中有东西，但是看不出来，LISTBOX的滚动条都动了。

Answer 1

标准模块中定义:
Type RecType
    Name As String * 8
    Sex As String * 2
    Tel As String * 8
End Type在窗体中:
Dim f As String, Stu As RecType
Dim RecLength As Integer, Recnum As Long
Private Sub Command1_Click()
f = "d:\1.txt"
RecLength = Len(Stu)
Open f For Random As #1 Len = RecLength
Stu.Name = "张三"
Stu.Sex = "男"
Stu.Tel = "12345678"
Recnum = LOF(1) \ RecLength + 1
Put #1, Recnum, Stu
Close #1
End SubPrivate Sub Command2_Click()
f = "d:\1.txt"
RecLength = Len(Stu)
Open f For Random As #1 Len = RecLength
Seek #1, 1
Get #1, 1, Stu
List1.AddItem Stu.Name
List1.AddItem Stu.Sex
List1.AddItem Stu.Tel
Close #1
End Sub没有出现乱码啊,可以正常输出数据.