sp; If y = 0 Then
If Text1.Text = "" Then
q = MsgBox("你要添加一条空记录吗？", vbYesNo)
If q = 6 Then
b = Text4.Text
b = b + 1
a = Text1.Text
Open "d:\bjglxt\班级事件\cc.txt" For Random As #2
Open "d:\bjglxt\班级事件\dd.txt" For Random As #1
Put #1, b, a
Put #2, , b
Text4.Text = b
Close
End If
End If
If Text1.Text <> "" Then
b = Text4.Text
b = b + 1
a = Text1.Text
Open "d:\bjglxt\班级事件\cc.txt" For Random As #2
Open "d:\bjglxt\班级事件\dd.txt" For Random As #1
Put #1, b, a
Put #2, , b
Text4.Text = b
Close
&
