start.frm

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

VERSION 5.00
Begin VB.Form start 
   BorderStyle     =   0  'None
   ClientHeight    =   10065
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   13875
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "START.frx":0000
   ScaleHeight     =   10065
   ScaleWidth      =   13875
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox Text1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      Left            =   7935
      TabIndex        =   0
      Top             =   4830
      Width           =   2025
   End
   Begin VB.ComboBox Combo1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      ItemData        =   "START.frx":19013
      Left            =   7920
      List            =   "START.frx":19044
      TabIndex        =   2
      Text            =   "C1-小型汽车"
      Top             =   4470
      Width           =   2040
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Height          =   405
      Left            =   9120
      TabIndex        =   4
      Top             =   5565
      Width           =   1140
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Height          =   420
      Left            =   7545
      TabIndex        =   3
      Top             =   5565
      Width           =   1185
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   930
      Left            =   5565
      TabIndex        =   1
      Top             =   5655
      Width           =   705
   End
End
Attribute VB_Name = "start"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub Form_Load()
start.Left = 0
start.Top = 0
start.Width = Screen.Width
start.Height = Screen.Height
If start.Width <> 15360 Or start.Height <> 11520 Then
   MsgBox "  请把分辨率调至 1024x768  ", 64, "  提示"
   End
   End If
start.Picture = LoadPicture(App.Path & "\str.dll")
End Sub
Private Sub Label1_Click()
End
End Sub

Private Sub Label2_Click()
On Error Resume Next
If Text1 = "" Then
  MsgBox " 请填写证件号码  ", 64, "  提示"
  Else
Me.Hide
Form3.Show
Form3.Label5(1) = Left$(Combo1, 2)
Form3.Label5(0) = Year(Now) & "年" & Month(Now) & "月" & Day(Now) & "日"
Form3.Label5(2) = "45"
Unload Me
End If
End Sub

Private Sub Label3_Click()
Text1 = ""
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Label2_Click
End Sub