module1.bas

用VB写的学生成绩管理系统

Attribute VB_Name = "modelMain"
Option Explicit
'定义全局变量
Public QJBL_1 As Integer
Public QJBL_2 As Integer
Public QJBL As Integer


Sub main()
    frmlogo.Show
If Not lianjie Then
    End
End If
If Not lianjie_RenZheng_LaoShi Then
    End
End If
If Not lianjie_RenZheng_XueSheng Then
    End
End If
If Not lianjie_KeChengBiao Then
    End
End If
If Not lianjie_XueShengBiao Then
    End
End If
If Not lianjie_ChengJiBiao Then
    End
End If
End Sub