form6.frm

模拟驾驶员上机考试,实现单机自动随机出题,批卷,纠错.

VERSION 5.00
Begin VB.Form Form6 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   300
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   420
   LinkTopic       =   "Form1"
   ScaleHeight     =   300
   ScaleWidth      =   420
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form6"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Me.Hide
If App.PrevInstance Then End 'MsgBox "程序已打开!": End
b1 = App.Path & "\str.dll"
b2 = App.Path & "\yxt1.dll"
b3 = App.Path & "\pag.dll"
b4 = App.Path & "\gck.dll"
b5 = App.Path & "\kuc.dll"
'b6 = App.Path & "\ptk.dll"
b7 = App.Path & "\tu\help.pct"
a1 = FileExists%(b1)
a2 = FileExists%(b2)
a3 = FileExists%(b3)
a4 = FileExists%(b4)
a5 = FileExists%(b5)
'a6 = FileExists%(b6)
a7 = FileExists%(b7)

If a1 And a2 And a3 And a4 And a5 And a7 Then
GoTo d
Else
MsgBox "  初始化错误:程序被拷贝或计算机被初始化请与作者联系.", 16, "  系统提示"
End
End If

d:
chushihua
End Sub
Private Sub chushihua()
start.Show
Unload Me
End Sub
Function FileExists%(fname)
 On Local Error Resume Next
  Dim ff%
 ff% = FreeFile
 Open fname For Input As ff%
 If Err Then
  FileExists% = False
 Else
  FileExists% = True
 End If
 Close ff%
End Function