急！如何用VB使用Input语句读多行多个数据的顺序文件

来源：百度知道 编辑：UC知道 时间：2024/06/12 07:44:11
如题，每行6个数据，行数随机。要求每次只读出每一行的6个数据，要使用input语句，并在窗体上输出一行数据，注意，并不是在窗体上输出所有行的数据喔，只需一行一行的依次输出。

Private Sub Command1_Click()
Dim xm$, xb$, hy$, nl%, dq$, lb$
Form1.Cls
Input #1, xm, xb, hy, nl, dq, lb
Print Tab(18); "姓名：" & xm
Print Tab(18); "性别：" & xb
Print Tab(18); "婚否：" & hy
Print Tab(18); "年龄：" & nl
Print Tab(18); "生源地：" & dq
Print Tab(18); "类别：" & lb
End Sub

Private Sub Form_Click()
Dim xm$, xb$, hy$, nl%, dq$, lb$
Open "d:\cc.txt" For Input As #1
Input #1, xm, xb, hy, nl, dq, lb
Print Tab(18); "姓名：" & xm
Print Tab(18); "性别：" & xb
Print Tab(18); "婚否：" & hy
Print Tab(18); "年龄：" & nl
Print Tab(18); "生源地：" & dq
Print Tab(18); "类别：" & lb
End Sub

Private Sub Form_Unload(Cancel As Integer)
Close #1
End Sub

Private Sub Command1_Click()
Dim i, j As Integer
Dim a(1 To 200, 1 To 6) As Variant
O