frmtesting.frm

上机考试系统

VERSION 5.00
Begin VB.Form DoTest 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Form1"
   ClientHeight    =   6435
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   9975
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6435
   ScaleWidth      =   9975
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton cmdEsc 
      Cancel          =   -1  'True
      Caption         =   "放弃"
      Height          =   300
      Left            =   8055
      TabIndex        =   38
      Top             =   5610
      Width           =   870
   End
   Begin VB.CommandButton cmdSubmit 
      Caption         =   "交卷"
      Height          =   300
      Left            =   6945
      TabIndex        =   37
      Top             =   5602
      Width           =   870
   End
   Begin VB.PictureBox picNavigation 
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   360
      Left            =   914
      ScaleHeight     =   360
      ScaleWidth      =   4980
      TabIndex        =   31
      Top             =   5962
      Width           =   4980
      Begin VB.ComboBox cmbType 
         Height          =   300
         ItemData        =   "frmTesting.frx":0000
         Left            =   1814
         List            =   "frmTesting.frx":0010
         TabIndex        =   43
         Text            =   "cmbType"
         Top             =   30
         Width           =   1350
      End
      Begin VB.CommandButton cmdMove 
         Caption         =   "后一题"
         Height          =   300
         Index           =   2
         Left            =   3186
         Style           =   1  'Graphical
         TabIndex        =   35
         Top             =   15
         Width           =   870
      End
      Begin VB.CommandButton cmdMove 
         Caption         =   "末尾题"
         Height          =   300
         Index           =   3
         Left            =   4080
         Style           =   1  'Graphical
         TabIndex        =   34
         Top             =   15
         Width           =   870
      End
      Begin VB.CommandButton cmdMove 
         Caption         =   "第一题"
         Height          =   300
         Index           =   0
         Left            =   30
         Style           =   1  'Graphical
         TabIndex        =   33
         Top             =   15
         Width           =   870
      End
      Begin VB.CommandButton cmdMove 
         Caption         =   "前一题"
         Height          =   300
         Index           =   1
         Left            =   922
         Style           =   1  'Graphical
         TabIndex        =   32
         Top             =   15
         Width           =   870
      End
   End
   Begin VB.TextBox txtTest 
      Height          =   5505
      Left            =   532
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   0
      Text            =   "frmTesting.frx":003C
      Top             =   397
      Width           =   5745
   End
   Begin VB.Frame frmAnswer 
      Caption         =   "程序填空题答案"
      Height          =   3480
      Index           =   3
      Left            =   6435
      TabIndex        =   22
      Top             =   397
      Width           =   2985
      Begin VB.TextBox txtBlank 
         Height          =   270
         Index           =   3
         Left            =   300
         TabIndex        =   30
         Top             =   2400
         Width           =   2505
      End
      Begin VB.TextBox txtBlank 
         Height          =   270
         Index           =   2
         Left            =   300
         TabIndex        =   28
         Top             =   1825
         Width           =   2505
      End
      Begin VB.TextBox txtBlank 
         Height          =   270
         Index           =   1
         Left            =   300
         TabIndex        =   26
         Top             =   1251
         Width           =   2505
      End
      Begin VB.TextBox txtBlank 
         Height          =   270
         Index           =   0
         Left            =   300
         TabIndex        =   24
         Top             =   677
         Width           =   2505
      End
      Begin VB.Label lblBlank 
         AutoSize        =   -1  'True
         Caption         =   "第4空"
         Height          =   180
         Index           =   3
         Left            =   300
         TabIndex        =   29
         Top             =   2205
         Width           =   450
      End
      Begin VB.Label lblBlank 
         AutoSize        =   -1  'True
         Caption         =   "第3空"
         Height          =   180
         Index           =   2
         Left            =   300
         TabIndex        =   27
         Top             =   1635
         Width           =   450
      End
      Begin VB.Label lblBlank 
         AutoSize        =   -1  'True
         Caption         =   "第2空"
         Height          =   180
         Index           =   1
         Left            =   300
         TabIndex        =   25
         Top             =   1035
         Width           =   450
      End
      Begin VB.Label lblBlank 
         AutoSize        =   -1  'True
         Caption         =   "第1空"
         Height          =   180
         Index           =   0
         Left            =   300
         TabIndex        =   23
         Top             =   465
         Width           =   450
      End
   End
   Begin VB.Frame frmAnswer 
      Caption         =   "程序阅读题答案"
      Height          =   3480
      Index           =   2
      Left            =   6435
      TabIndex        =   10
      Top             =   397
      Width           =   2985
      Begin VB.Frame frmDivPR 
         Caption         =   "小题（3）"
         Height          =   705
         Index           =   2
         Left            =   180
         TabIndex        =   17
         Top             =   2265
         Width           =   2625
         Begin VB.OptionButton optPR3 
            Caption         =   "A"
            Height          =   210
            Index           =   0
            Left            =   330
            TabIndex        =   21
            Top             =   315
            Width           =   405
         End
         Begin VB.OptionButton optPR3 
            Caption         =   "B"
            Height          =   210
            Index           =   1
            Left            =   810
            TabIndex        =   20
            Top             =   315
            Width           =   405
         End
         Begin VB.OptionButton optPR3 
            Caption         =   "C"
            Height          =   210
            Index           =   2
            Left            =   1305
            TabIndex        =   19
            Top             =   315
            Width           =   405
         End
         Begin VB.OptionButton optPR3 
            Caption         =   "D"
            Height          =   210
            Index           =   3
            Left            =   1785
            TabIndex        =   18
            Top             =   315
            Width           =   405
         End
      End
      Begin VB.Frame frmDivPR 
         Caption         =   "小题（2）"
         Height          =   705
         Index           =   1
         Left            =   180
         TabIndex        =   16
         Top             =   1380
         Width           =   2625
         Begin VB.OptionButton optPR2 
            Caption         =   "D"
            Height          =   210
            Index           =   3
            Left            =   1830
            TabIndex        =   42
            Top             =   375
            Width           =   405
         End
         Begin VB.OptionButton optPR2 
            Caption         =   "C"
            Height          =   210
            Index           =   2
            Left            =   1365
            TabIndex        =   41
            Top             =   375
            Width           =   405
         End
         Begin VB.OptionButton optPR2 
            Caption         =   "B"
            Height          =   210
            Index           =   1
            Left            =   900
            TabIndex        =   40
            Top             =   375
            Width           =   405
         End
         Begin VB.OptionButton optPR2 
            Caption         =   "A"
            Height          =   210
            Index           =   0
            Left            =   390
            TabIndex        =   39
            Top             =   375
            Width           =   405
         End
      End
      Begin VB.Frame frmDivPR 
         Caption         =   "小题（1）"
         Height          =   705
         Index           =   0
         Left            =   180
         TabIndex        =   11
         Top             =   495
         Width           =   2625
         Begin VB.OptionButton optPR1 
            Caption         =   "D"
            Height          =   210