paperproperty.frm

vb写的试题库生成系统

VERSION 5.00
Begin VB.Form PaperProperty 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "设置试卷参数"
   ClientHeight    =   6960
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   8955
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6960
   ScaleWidth      =   8955
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton cmdMakePaper 
      Caption         =   "生成试卷"
      Height          =   465
      Left            =   5880
      TabIndex        =   57
      Top             =   4800
      Width           =   975
   End
   Begin VB.CommandButton cmdExit 
      Cancel          =   -1  'True
      Caption         =   "关闭"
      Height          =   465
      Left            =   5880
      TabIndex        =   56
      Top             =   5760
      Width           =   975
   End
   Begin VB.CommandButton cmdAnalyse 
      Caption         =   "参数分析"
      Height          =   465
      Left            =   5880
      TabIndex        =   55
      Top             =   3840
      Width           =   975
   End
   Begin VB.Frame Frame2 
      Caption         =   "章节中试题分配"
      Height          =   2535
      Left            =   240
      TabIndex        =   36
      Top             =   3720
      Width           =   5490
      Begin VB.TextBox txtScale 
         Height          =   270
         Index           =   4
         Left            =   3960
         TabIndex        =   73
         Text            =   "100"
         Top             =   1920
         Width           =   870
      End
      Begin VB.ComboBox cmbChapter 
         Height          =   300
         Index           =   4
         Left            =   960
         Style           =   2  'Dropdown List
         TabIndex        =   72
         Top             =   1920
         Width           =   2865
      End
      Begin VB.TextBox txtScale 
         Height          =   270
         Index           =   3
         Left            =   3945
         TabIndex        =   50
         Text            =   "100"
         Top             =   1530
         Width           =   870
      End
      Begin VB.TextBox txtScale 
         Height          =   270
         Index           =   2
         Left            =   3945
         TabIndex        =   49
         Text            =   "100"
         Top             =   1185
         Width           =   870
      End
      Begin VB.TextBox txtScale 
         Height          =   270
         Index           =   1
         Left            =   3945
         TabIndex        =   48
         Text            =   "100"
         Top             =   855
         Width           =   870
      End
      Begin VB.TextBox txtScale 
         Height          =   270
         Index           =   0
         Left            =   3960
         TabIndex        =   47
         Text            =   "100"
         Top             =   510
         Width           =   870
      End
      Begin VB.ComboBox cmbChapter 
         Height          =   300
         Index           =   3
         Left            =   960
         Style           =   2  'Dropdown List
         TabIndex        =   44
         Top             =   1515
         Width           =   2865
      End
      Begin VB.ComboBox cmbChapter 
         Height          =   300
         Index           =   2
         Left            =   960
         Style           =   2  'Dropdown List
         TabIndex        =   43
         Top             =   1170
         Width           =   2865
      End
      Begin VB.ComboBox cmbChapter 
         Height          =   300
         Index           =   1
         Left            =   960
         Style           =   2  'Dropdown List
         TabIndex        =   42
         Top             =   840
         Width           =   2865
      End
      Begin VB.ComboBox cmbChapter 
         Height          =   300
         Index           =   0
         Left            =   975
         Style           =   2  'Dropdown List
         TabIndex        =   41
         Top             =   510
         Width           =   2865
      End
      Begin VB.Label lblRemain 
         AutoSize        =   -1  'True
         Caption         =   "100"
         Height          =   180
         Index           =   4
         Left            =   4920
         TabIndex        =   74
         Top             =   1920
         Width           =   270
      End
      Begin VB.Label Label24 
         Caption         =   "简答题"
         Height          =   255
         Left            =   360
         TabIndex        =   71
         Top             =   1920
         Width           =   615
      End
      Begin VB.Label lblRemain 
         AutoSize        =   -1  'True
         Caption         =   "100"
         Height          =   180
         Index           =   3
         Left            =   4920
         TabIndex        =   54
         Top             =   1575
         Width           =   270
      End
      Begin VB.Label lblRemain 
         AutoSize        =   -1  'True
         Caption         =   "100"
         Height          =   180
         Index           =   2
         Left            =   4920
         TabIndex        =   53
         Top             =   1230
         Width           =   270
      End
      Begin VB.Label lblRemain 
         AutoSize        =   -1  'True
         Caption         =   "100"
         Height          =   180
         Index           =   1
         Left            =   4920
         TabIndex        =   52
         Top             =   900
         Width           =   270
      End
      Begin VB.Label lblRemain 
         AutoSize        =   -1  'True
         Caption         =   "100"
         Height          =   180
         Index           =   0
         Left            =   4920
         TabIndex        =   51
         Top             =   555
         Width           =   270
      End
      Begin VB.Label Label16 
         AutoSize        =   -1  'True
         Caption         =   "剩余"
         Height          =   180
         Left            =   4875
         TabIndex        =   46
         Top             =   300
         Width           =   360
      End
      Begin VB.Label Label15 
         AutoSize        =   -1  'True
         Caption         =   "题量百分比"
         Height          =   180
         Left            =   3885
         TabIndex        =   45
         Top             =   300
         Width           =   900
      End
      Begin VB.Label Label14 
         AutoSize        =   -1  'True
         Caption         =   "填空题"
         Height          =   180
         Left            =   360
         TabIndex        =   40
         Top             =   1575
         Width           =   540
      End
      Begin VB.Label Label13 
         AutoSize        =   -1  'True
         Caption         =   "多选题"
         Height          =   180
         Left            =   360
         TabIndex        =   39
         Top             =   1230
         Width           =   540
      End
      Begin VB.Label Label12 
         AutoSize        =   -1  'True
         Caption         =   "单选题"
         Height          =   180
         Left            =   360
         TabIndex        =   38
         Top             =   900
         Width           =   540
      End
      Begin VB.Label Label11 
         AutoSize        =   -1  'True
         Caption         =   "判断题"
         Height          =   180
         Left            =   360
         TabIndex        =   37
         Top             =   555
         Width           =   540
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "试题题量、分值和难度"
      Height          =   2895
      Left            =   240
      TabIndex        =   1
      Top             =   360
      Width           =   6735
      Begin VB.TextBox txtLevel2 
         Height          =   300
         Index           =   4
         Left            =   5505
         TabIndex        =   67
         Text            =   "30"
         Top             =   2040
         Width           =   855
      End
      Begin VB.TextBox txtLevel1 
         Height          =   300
         Index           =   4
         Left            =   4620
         TabIndex        =   66
         Text            =   "50"
         Top             =   2040
         Width           =   855
      End
      Begin VB.TextBox txtLevel0 
         Height          =   300
         Index           =   4
         Left            =   3720
         TabIndex        =   65
         Text            =   "20"
         Top             =   2040
         Width           =   855
      End
      Begin VB.TextBox txtAvg 
         BackColor       =   &H80000000&
         Enabled         =   0   'False
         Height          =   300
         Index           =   4
         Left            =   2835
         TabIndex        =   64
         Text            =   "4"
         Top             =   2040
         Width           =   855
      End
      Begin VB.TextBox txtScore 
         Height          =   300
         Index           =   4