班级管理系统VB(六)

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
   &

首页 上一页 3 4 5 6 7 8 9 下一页 尾页 6/9/9

班级管理系统VB(六)相关范文