我想用一个FOR 生成三个记录,再用文本的方式将它们显示出来,但我不知道它错在哪里?
Type u
xm As String * 3
xb As String
nn As Long
zy As String * 8
End Typ
Dim stu As u
Private Sub xs()
With stu
Text1(0).Text = .xm
Text1(1).Text = .xb
Text1(2).Text = .nn
Text1(3).Text = .zy
End With
If n = 1 Then
Command1(0).Enabled = False: Command1(1).Enabled = False
Else
Command1(0).Enabled = True: Command1(1).Enabled = True
End If
If n = l Then
Command1(2).Enabled = False: Command1(3).Enabled = False
Else
Command1(2).Enabled = True: Command1(3).Enabled = True
End If
End Sub
Private Sub Command1_Click(Index As Integer)
Open "d:\1.dat" For Random As #1 Len = Len(stu)
l = LOF(1) / Len(stu)
Select Case Index
Case 0
n = 1
Case 1
If n > 1 Then n = n - 1
Case 2
If n < l Then n = n + 1
Case 3
n = l
End Select
Get #1, n, stu
Close #1
Call xs
End Sub
Private Sub Form_click()
Text1(0).Text = ""
Text1(1).Text = ""
Text1(2).Text = ""
Text1(3).Text = ""
Command1(0).Caption = "头文件"
Command1(1).Caption = "前一个"
Command1(2).Caption = "后一个"
Command1(3).Caption = "尾文件"
Open "d:\1.dat" For Random As #1 Len = Len(stu)
For j = 1 To 3
With stu
.xm = InputBox("请输入你的姓名")
.xb = InputBox("请输入你的性别")
.nn = Val(InputBox("请输入你的年龄"))
.zy = InputBox("请输入你的职业")
End With
Put #1, j, stu
Next
Close #1
Open "d:\1.dat" For Random As #1 Len = Len(stu)
l = LOF(1) / Len(stu)
n = 1
Get #1, n, stu
Close #1
Call xs
End Sub
