module1.bas

来自「用VB写的学生成绩管理系统」· BAS 代码 · 共 31 行

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