module1.bas

来自「试卷试题管理系统 用的是vb语言开发的。」· BAS 代码 · 共 7 行

Attribute VB_Name = "Module1"
Public ThisDBName As String         '用于保存当前试题数据库名称

Public Sub ShowError(ByVal msg As String)
    MsgBox msg, vbCritical + vbOKOnly, "题库管理系统"
End Sub