评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

班级管理系统VB(一)毕业论文网(6)

2013-05-11 01:01 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

（转载自中国科教评价网http://www.nseac.com）

            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
   &