main.bas

来自「一个用visual basic写的学生考试管理系统」· BAS 代码 · 共 34 行

Attribute VB_Name = "MainModule"
Public Enum LogType
    student
    teacher
    administrator
End Enum

Public Enum QuestionType
    OnErr = -1
    Blacks = 1
    RightOrWrong = 2
    SingleSel = 3
    MultiSel = 4
    EssayQuestion = 5
End Enum

Public TestUser As New LoginUser
Public QPaper As New QestionPaper

Sub Main()
  TestUser.LogFail = True
  QPaper.Answered = False
  QPaper.Created = False
  TestUser.UserName = ""
  TestUser.UserPassword = ""
  TestUser.LogFail = True
  frmSplash.Show vbModal
  MDIfrmMain.Show
End Sub