www.pudn.com > textmanager.rar > FrmShiJuan.frm, change:2005-04-12,size:85812b


VERSION 5.00 
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX" 
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX" 
Begin VB.Form FrmShiJuan  
   Caption         =   "生成/修改试卷" 
   ClientHeight    =   8595 
   ClientLeft      =   60 
   ClientTop       =   345 
   ClientWidth     =   11880 
   ControlBox      =   0   'False 
   LinkTopic       =   "Form1" 
   LockControls    =   -1  'True 
   ScaleHeight     =   8595 
   ScaleWidth      =   11880 
   WindowState     =   2  'Maximized 
   Begin VB.PictureBox Picture1  
      Appearance      =   0  'Flat 
      ForeColor       =   &H80000008& 
      Height          =   390 
      Left            =   4560 
      ScaleHeight     =   360 
      ScaleWidth      =   2730 
      TabIndex        =   95 
      Top             =   6870 
      Width           =   2760 
      Begin VB.Label LabTI  
         AutoSize        =   -1  'True 
         Caption         =   "现在题型:选择题" 
         BeginProperty Font  
            Name            =   "楷体_GB2312" 
            Size            =   14.25 
            Charset         =   134 
            Weight          =   700 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H000000C0& 
         Height          =   285 
         Left            =   45 
         TabIndex        =   96 
         Top             =   45 
         Width           =   2535 
      End 
   End 
   Begin VB.CheckBox CheView  
      Caption         =   "(预览时显示答案)" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   10.5 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H00C00000& 
      Height          =   255 
      Left            =   7935 
      TabIndex        =   94 
      Top             =   6930 
      Value           =   1  'Checked 
      Width           =   2025 
   End 
   Begin VB.TextBox TxTTitle  
      Appearance      =   0  'Flat 
      BackColor       =   &H00E8F4F8& 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   12 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   375 
      Left            =   3300 
      TabIndex        =   97 
      Top             =   15 
      Width           =   5385 
   End 
   Begin VB.Frame Frame10  
      Height          =   705 
      Left            =   180 
      TabIndex        =   13 
      Top             =   7335 
      Width           =   11475 
      Begin VB.CommandButton CmdView  
         Caption         =   "预览试卷" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   12 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   435 
         Left            =   6645 
         TabIndex        =   20 
         Top             =   195 
         Width           =   1305 
      End 
      Begin VB.CommandButton CmdEsc  
         Caption         =   "取 消" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   12 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   435 
         Left            =   10230 
         TabIndex        =   16 
         Top             =   195 
         Width           =   1050 
      End 
      Begin VB.CommandButton CmdNext  
         Caption         =   "下一步" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   12 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   435 
         Left            =   9120 
         TabIndex        =   15 
         Top             =   195 
         Width           =   1050 
      End 
      Begin VB.CommandButton CmdPrv  
         Caption         =   "上一步" 
         Enabled         =   0   'False 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   12 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   435 
         Left            =   8010 
         TabIndex        =   14 
         Top             =   195 
         Width           =   1050 
      End 
      Begin VB.Label Label3  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "所属科目:" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   10.5 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   210 
         Index           =   1 
         Left            =   195 
         TabIndex        =   24 
         Top             =   300 
         Width           =   1050 
      End 
      Begin VB.Label LabKeMu  
         AutoSize        =   -1  'True 
         Caption         =   "试" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   12 
            Charset         =   134 
            Weight          =   700 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H000000C0& 
         Height          =   240 
         Left            =   1170 
         TabIndex        =   23 
         Top             =   285 
         Width           =   270 
      End 
      Begin VB.Label Label6  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "所属年级:" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   10.5 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   210 
         Left            =   3390 
         TabIndex        =   22 
         Top             =   300 
         Width           =   1050 
      End 
      Begin VB.Label LabNianJi  
         AutoSize        =   -1  'True 
         Caption         =   "试" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   12 
            Charset         =   134 
            Weight          =   700 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H000000C0& 
         Height          =   240 
         Left            =   4350 
         TabIndex        =   21 
         Top             =   285 
         Width           =   270 
      End 
   End 
   Begin VB.Frame FraPD  
      Caption         =   "试卷生成--判断题选择" 
      ForeColor       =   &H00FF0000& 
      Height          =   6960 
      Left            =   210 
      TabIndex        =   76 
      Top             =   1425 
      Visible         =   0   'False 
      Width           =   11475 
      Begin VB.Frame Frame33  
         Caption         =   "答案" 
         Enabled         =   0   'False 
         Height          =   615 
         Left            =   3810 
         TabIndex        =   91 
         Top             =   4710 
         Width           =   3120 
         Begin VB.OptionButton OptCuo  
            Appearance      =   0  'Flat 
            BackColor       =   &H00E8F4F8& 
            Caption         =   "错" 
            ForeColor       =   &H00FF0000& 
            Height          =   210 
            Left            =   1755 
            TabIndex        =   93 
            Top             =   285 
            Width           =   435 
         End 
         Begin VB.OptionButton OptDui  
            Appearance      =   0  'Flat 
            BackColor       =   &H00E8F4F8& 
            Caption         =   "对" 
            ForeColor       =   &H00FF0000& 
            Height          =   210 
            Left            =   1035 
            TabIndex        =   92 
            Top             =   285 
            Value           =   -1  'True 
            Width           =   525 
         End 
         Begin VB.Line Line1  
            BorderWidth     =   2 
            X1              =   1605 
            X2              =   1605 
            Y1              =   255 
            Y2              =   525 
         End 
         Begin VB.Shape Shape1  
            BackColor       =   &H00E8F4F8& 
            FillColor       =   &H00FFFFFF& 
            FillStyle       =   0  'Solid 
            Height          =   315 
            Left            =   975 
            Top             =   225 
            Width           =   1335 
         End 
      End 
      Begin VB.Frame Frame32  
         Caption         =   "题目预览" 
         Height          =   4455 
         Left            =   3060 
         TabIndex        =   89 
         Top             =   165 
         Width           =   6390 
         Begin RichTextLib.RichTextBox RTBPDT  
            Height          =   4110 
            Left            =   60 
            TabIndex        =   90 
            Top             =   270 
            Width           =   6195 
            _ExtentX        =   10927 
            _ExtentY        =   7250 
            _Version        =   393217 
            BackColor       =   15267064 
            ReadOnly        =   -1  'True 
            ScrollBars      =   2 
            Appearance      =   0 
            TextRTF         =   $"FrmShiJuan.frx":0000 
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
         End 
      End 
      Begin VB.Frame Frame31  
         Caption         =   "所选题目" 
         Height          =   5160 
         Left            =   1965 
         TabIndex        =   87 
         Top             =   165 
         Width           =   1035 
         Begin VB.ListBox LstPDT  
            Appearance      =   0  'Flat 
            BackColor       =   &H00E8F4F8& 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   4830 
            ItemData        =   "FrmShiJuan.frx":028A 
            Left            =   90 
            List            =   "FrmShiJuan.frx":028C 
            Sorted          =   -1  'True 
            TabIndex        =   88 
            Top             =   225 
            Width           =   885 
         End 
      End 
      Begin VB.Frame Frame30  
         Height          =   735 
         Left            =   3090 
         TabIndex        =   84 
         Top             =   5715 
         Width           =   1890 
         Begin VB.CommandButton CmdPDAdd  
            Caption         =   "添加" 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   390 
            Left            =   150 
            TabIndex        =   86 
            Top             =   225 
            Width           =   720 
         End 
         Begin VB.CommandButton CmdPDDel  
            Caption         =   "移除" 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   390 
            Left            =   990 
            TabIndex        =   85 
            Top             =   225 
            Width           =   720 
         End 
      End 
      Begin VB.Frame Frame28  
         Height          =   735 
         Left            =   5070 
         TabIndex        =   77 
         Top             =   5715 
         Width           =   4545 
         Begin VB.CommandButton CmdPDSJ  
            Caption         =   "随机生成" 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   405 
            Left            =   870 
            TabIndex        =   79 
            Top             =   225 
            Width           =   1395 
         End 
         Begin VB.CommandButton CmdPDOld  
            Caption         =   "从旧试卷生成" 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   405 
            Left            =   2445 
            TabIndex        =   78 
            Top             =   225 
            Width           =   1920 
         End 
      End 
      Begin VB.Frame Frame29  
         Height          =   6690 
         Left            =   180 
         TabIndex        =   80 
         Top             =   165 
         Width           =   1725 
         Begin VB.ListBox LstPD  
            Appearance      =   0  'Flat 
            BackColor       =   &H00E8F4F8& 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   6030 
            ItemData        =   "FrmShiJuan.frx":028E 
            Left            =   165 
            List            =   "FrmShiJuan.frx":0298 
            Sorted          =   -1  'True 
            TabIndex        =   82 
            ToolTipText     =   "双击加入所选中的题目" 
            Top             =   555 
            Width           =   1380 
         End 
         Begin VB.ComboBox CmbPD  
            BackColor       =   &H00E8F4F8& 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   10.5 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   330 
            ItemData        =   "FrmShiJuan.frx":02AC 
            Left            =   600 
            List            =   "FrmShiJuan.frx":02BC 
            Style           =   2  'Dropdown List 
            TabIndex        =   81 
            Top             =   165 
            Width           =   750 
         End 
         Begin VB.Label Label9  
            AutoSize        =   -1  'True 
            Caption         =   "难度" 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   10.5 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   210 
            Left            =   75 
            TabIndex        =   83 
            Top             =   210 
            Width           =   420 
         End 
      End 
   End 
   Begin VB.Frame FraTK  
      Caption         =   "试卷生成--填空题选择" 
      ForeColor       =   &H00FF0000& 
      Height          =   6960 
      Left            =   150 
      TabIndex        =   25 
      Top             =   405 
      Visible         =   0   'False 
      Width           =   11475 
      Begin VB.Frame Frame15  
         Caption         =   "填空题答案" 
         Height          =   5160 
         Left            =   7695 
         TabIndex        =   40 
         Top             =   165 
         Width           =   3705 
         Begin RichTextLib.RichTextBox RTBTKD  
            Height          =   4830 
            Left            =   60 
            TabIndex        =   41 
            Top             =   270 
            Width           =   3570 
            _ExtentX        =   6297 
            _ExtentY        =   8520 
            _Version        =   393217 
            BackColor       =   15267064 
            ReadOnly        =   -1  'True 
            ScrollBars      =   2 
            Appearance      =   0 
            TextRTF         =   $"FrmShiJuan.frx":02D2 
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
         End 
      End 
      Begin VB.Frame Frame14  
         Caption         =   "题目预览" 
         Height          =   5160 
         Left            =   3060 
         TabIndex        =   35 
         Top             =   165 
         Width           =   4590 
         Begin RichTextLib.RichTextBox RTBTKT  
            Height          =   4830 
            Left            =   60 
            TabIndex        =   36 
            Top             =   270 
            Width           =   4455 
            _ExtentX        =   7858 
            _ExtentY        =   8520 
            _Version        =   393217 
            BackColor       =   15267064 
            ReadOnly        =   -1  'True 
            ScrollBars      =   2 
            Appearance      =   0 
            TextRTF         =   $"FrmShiJuan.frx":055C 
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
         End 
      End 
      Begin VB.Frame Frame13  
         Caption         =   "所选题目" 
         Height          =   5160 
         Left            =   1965 
         TabIndex        =   33 
         Top             =   165 
         Width           =   1035 
         Begin VB.ListBox LstTKT  
            Appearance      =   0  'Flat 
            BackColor       =   &H00E8F4F8& 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   4830 
            ItemData        =   "FrmShiJuan.frx":07E6 
            Left            =   90 
            List            =   "FrmShiJuan.frx":07E8 
            Sorted          =   -1  'True 
            TabIndex        =   34 
            Top             =   225 
            Width           =   885 
         End 
      End 
      Begin VB.Frame Frame12  
         Height          =   735 
         Left            =   3090 
         TabIndex        =   30 
         Top             =   5715 
         Width           =   1890 
         Begin VB.CommandButton CmdTKAdd  
            Caption         =   "添加" 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   390 
            Left            =   150 
            TabIndex        =   32 
            Top             =   225 
            Width           =   720 
         End 
         Begin VB.CommandButton CmdTKDel  
            Caption         =   "移除" 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   390 
            Left            =   990 
            TabIndex        =   31 
            Top             =   225 
            Width           =   720 
         End 
      End 
      Begin VB.Frame Frame11  
         Height          =   6690 
         Left            =   180 
         TabIndex        =   29 
         Top             =   165 
         Width           =   1725 
         Begin VB.ListBox LstTK  
            Appearance      =   0  'Flat 
            BackColor       =   &H00E8F4F8& 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   6030 
            ItemData        =   "FrmShiJuan.frx":07EA 
            Left            =   165 
            List            =   "FrmShiJuan.frx":07F4 
            Sorted          =   -1  'True 
            TabIndex        =   38 
            ToolTipText     =   "双击加入所选中的题目" 
            Top             =   555 
            Width           =   1380 
         End 
         Begin VB.ComboBox CmbTK  
            BackColor       =   &H00E8F4F8& 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   10.5 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   330 
            ItemData        =   "FrmShiJuan.frx":0808 
            Left            =   600 
            List            =   "FrmShiJuan.frx":0818 
            Style           =   2  'Dropdown List 
            TabIndex        =   37 
            Top             =   165 
            Width           =   750 
         End 
         Begin VB.Label Label2  
            AutoSize        =   -1  'True 
            Caption         =   "难度" 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   10.5 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   210 
            Left            =   75 
            TabIndex        =   39 
            Top             =   210 
            Width           =   420 
         End 
      End 
      Begin VB.Frame Frame9  
         Height          =   735 
         Left            =   5070 
         TabIndex        =   26 
         Top             =   5715 
         Width           =   4545 
         Begin VB.CommandButton CmdTKSJ  
            Caption         =   "随机生成" 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   405 
            Left            =   870 
            TabIndex        =   28 
            Top             =   225 
            Width           =   1395 
         End 
         Begin VB.CommandButton CmdTKOld  
            Caption         =   "从旧试卷生成" 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   405 
            Left            =   2445 
            TabIndex        =   27 
            Top             =   225 
            Width           =   1920 
         End 
      End 
   End 
   Begin VB.Frame FraWD  
      Caption         =   "试卷生成--问答题选择" 
      ForeColor       =   &H00FF0000& 
      Height          =   6960 
      Left            =   105 
      TabIndex        =   42 
      Top             =   735 
      Visible         =   0   'False 
      Width           =   11475 
      Begin VB.Frame Frame21  
         Height          =   735 
         Left            =   5070 
         TabIndex        =   56 
         Top             =   5715 
         Width           =   4545 
         Begin VB.CommandButton CmdWDOld  
            Caption         =   "从旧试卷生成" 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   405 
            Left            =   2445 
            TabIndex        =   58 
            Top             =   225 
            Width           =   1920 
         End 
         Begin VB.CommandButton CmdWDSJ  
            Caption         =   "随机生成" 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   405 
            Left            =   870 
            TabIndex        =   57 
            Top             =   225 
            Width           =   1395 
         End 
      End 
      Begin VB.Frame Frame20  
         Height          =   6690 
         Left            =   180 
         TabIndex        =   52 
         Top             =   165 
         Width           =   1725 
         Begin VB.ComboBox CmbWD  
            BackColor       =   &H00E8F4F8& 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   10.5 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   330 
            ItemData        =   "FrmShiJuan.frx":082E 
            Left            =   600 
            List            =   "FrmShiJuan.frx":083E 
            Style           =   2  'Dropdown List 
            TabIndex        =   54 
            Top             =   165 
            Width           =   750 
         End 
         Begin VB.ListBox LstWD  
            Appearance      =   0  'Flat 
            BackColor       =   &H00E8F4F8& 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   6030 
            ItemData        =   "FrmShiJuan.frx":0854 
            Left            =   165 
            List            =   "FrmShiJuan.frx":085E 
            Sorted          =   -1  'True 
            TabIndex        =   53 
            ToolTipText     =   "双击加入所选中的题目" 
            Top             =   555 
            Width           =   1380 
         End 
         Begin VB.Label Label7  
            AutoSize        =   -1  'True 
            Caption         =   "难度" 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   10.5 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   210 
            Left            =   75 
            TabIndex        =   55 
            Top             =   210 
            Width           =   420 
         End 
      End 
      Begin VB.Frame Frame19  
         Height          =   735 
         Left            =   3090 
         TabIndex        =   49 
         Top             =   5715 
         Width           =   1890 
         Begin VB.CommandButton CmdWDDel  
            Caption         =   "移除" 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   390 
            Left            =   990 
            TabIndex        =   51 
            Top             =   225 
            Width           =   720 
         End 
         Begin VB.CommandButton CmdWDAdd  
            Caption         =   "添加" 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   390 
            Left            =   150 
            TabIndex        =   50 
            Top             =   225 
            Width           =   720 
         End 
      End 
      Begin VB.Frame Frame18  
         Caption         =   "所选题目" 
         Height          =   5160 
         Left            =   1965 
         TabIndex        =   47 
         Top             =   165 
         Width           =   1035 
         Begin VB.ListBox LstWDT  
            Appearance      =   0  'Flat 
            BackColor       =   &H00E8F4F8& 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   4830 
            ItemData        =   "FrmShiJuan.frx":0872 
            Left            =   90 
            List            =   "FrmShiJuan.frx":0874 
            Sorted          =   -1  'True 
            TabIndex        =   48 
            Top             =   225 
            Width           =   885 
         End 
      End 
      Begin VB.Frame Frame17  
         Caption         =   "题目预览" 
         Height          =   5160 
         Left            =   3060 
         TabIndex        =   45 
         Top             =   165 
         Width           =   4590 
         Begin RichTextLib.RichTextBox RTBWDT  
            Height          =   4830 
            Left            =   60 
            TabIndex        =   46 
            Top             =   270 
            Width           =   4455 
            _ExtentX        =   7858 
            _ExtentY        =   8520 
            _Version        =   393217 
            BackColor       =   15267064 
            ReadOnly        =   -1  'True 
            ScrollBars      =   2 
            Appearance      =   0 
            TextRTF         =   $"FrmShiJuan.frx":0876 
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
         End 
      End 
      Begin VB.Frame Frame16  
         Caption         =   "评分标准" 
         Height          =   5160 
         Left            =   7695 
         TabIndex        =   43 
         Top             =   165 
         Width           =   3705 
         Begin RichTextLib.RichTextBox RTBWDD  
            Height          =   4830 
            Left            =   60 
            TabIndex        =   44 
            Top             =   270 
            Width           =   3570 
            _ExtentX        =   6297 
            _ExtentY        =   8520 
            _Version        =   393217 
            BackColor       =   15267064 
            ReadOnly        =   -1  'True 
            ScrollBars      =   2 
            Appearance      =   0 
            TextRTF         =   $"FrmShiJuan.frx":0B00 
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
         End 
      End 
   End 
   Begin VB.Frame FraZW  
      Caption         =   "试卷生成--作文题选择" 
      ForeColor       =   &H00FF0000& 
      Height          =   6960 
      Left            =   225 
      TabIndex        =   59 
      Top             =   1080 
      Visible         =   0   'False 
      Width           =   11475 
      Begin VB.Frame Frame27  
         Caption         =   "评分标准" 
         Height          =   5160 
         Left            =   7695 
         TabIndex        =   74 
         Top             =   165 
         Width           =   3705 
         Begin RichTextLib.RichTextBox RTBZWD  
            Height          =   4830 
            Left            =   60 
            TabIndex        =   75 
            Top             =   270 
            Width           =   3570 
            _ExtentX        =   6297 
            _ExtentY        =   8520 
            _Version        =   393217 
            BackColor       =   15267064 
            ReadOnly        =   -1  'True 
            ScrollBars      =   2 
            Appearance      =   0 
            TextRTF         =   $"FrmShiJuan.frx":0D8A 
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
         End 
      End 
      Begin VB.Frame Frame26  
         Caption         =   "题目预览" 
         Height          =   5160 
         Left            =   3060 
         TabIndex        =   72 
         Top             =   165 
         Width           =   4590 
         Begin RichTextLib.RichTextBox RTBZWT  
            Height          =   4830 
            Left            =   60 
            TabIndex        =   73 
            Top             =   270 
            Width           =   4455 
            _ExtentX        =   7858 
            _ExtentY        =   8520 
            _Version        =   393217 
            BackColor       =   15267064 
            ReadOnly        =   -1  'True 
            ScrollBars      =   2 
            Appearance      =   0 
            TextRTF         =   $"FrmShiJuan.frx":1014 
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
         End 
      End 
      Begin VB.Frame Frame25  
         Caption         =   "所选题目" 
         Height          =   5160 
         Left            =   1965 
         TabIndex        =   70 
         Top             =   165 
         Width           =   1035 
         Begin VB.ListBox LstZWT  
            Appearance      =   0  'Flat 
            BackColor       =   &H00E8F4F8& 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   4830 
            ItemData        =   "FrmShiJuan.frx":129E 
            Left            =   90 
            List            =   "FrmShiJuan.frx":12A0 
            Sorted          =   -1  'True 
            TabIndex        =   71 
            Top             =   225 
            Width           =   885 
         End 
      End 
      Begin VB.Frame Frame24  
         Height          =   735 
         Left            =   3090 
         TabIndex        =   67 
         Top             =   5715 
         Width           =   1890 
         Begin VB.CommandButton CmdZWAdd  
            Caption         =   "添加" 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   390 
            Left            =   150 
            TabIndex        =   69 
            Top             =   225 
            Width           =   720 
         End 
         Begin VB.CommandButton CmdZWDel  
            Caption         =   "移除" 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   390 
            Left            =   990 
            TabIndex        =   68 
            Top             =   225 
            Width           =   720 
         End 
      End 
      Begin VB.Frame Frame23  
         Height          =   6690 
         Left            =   180 
         TabIndex        =   63 
         Top             =   165 
         Width           =   1725 
         Begin VB.ListBox LstZW  
            Appearance      =   0  'Flat 
            BackColor       =   &H00E8F4F8& 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   6030 
            ItemData        =   "FrmShiJuan.frx":12A2 
            Left            =   165 
            List            =   "FrmShiJuan.frx":12AC 
            Sorted          =   -1  'True 
            TabIndex        =   65 
            ToolTipText     =   "双击加入所选中的题目" 
            Top             =   555 
            Width           =   1380 
         End 
         Begin VB.ComboBox CmbZW  
            BackColor       =   &H00E8F4F8& 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   10.5 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   330 
            ItemData        =   "FrmShiJuan.frx":12C0 
            Left            =   600 
            List            =   "FrmShiJuan.frx":12D0 
            Style           =   2  'Dropdown List 
            TabIndex        =   64 
            Top             =   165 
            Width           =   750 
         End 
         Begin VB.Label Label8  
            AutoSize        =   -1  'True 
            Caption         =   "难度" 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   10.5 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   210 
            Left            =   75 
            TabIndex        =   66 
            Top             =   210 
            Width           =   420 
         End 
      End 
      Begin VB.Frame Frame22  
         Height          =   735 
         Left            =   5070 
         TabIndex        =   60 
         Top             =   5715 
         Width           =   4545 
         Begin VB.CommandButton CmdZWSJ  
            Caption         =   "随机生成" 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   405 
            Left            =   870 
            TabIndex        =   62 
            Top             =   225 
            Width           =   1395 
         End 
         Begin VB.CommandButton CmdZWOld  
            Caption         =   "从旧试卷生成" 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   405 
            Left            =   2445 
            TabIndex        =   61 
            Top             =   225 
            Width           =   1920 
         End 
      End 
   End 
   Begin VB.Frame FraXZ  
      Caption         =   "试卷生成--选择题选择" 
      ForeColor       =   &H00FF0000& 
      Height          =   6960 
      Left            =   180 
      TabIndex        =   0 
      Top             =   360 
      Width           =   11475 
      Begin VB.Frame Frame8  
         Height          =   735 
         Left            =   5070 
         TabIndex        =   17 
         Top             =   5715 
         Width           =   4545 
         Begin VB.CommandButton CmdOldTest  
            Caption         =   "从旧试卷生成" 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   405 
            Left            =   2445 
            TabIndex        =   19 
            Top             =   225 
            Width           =   1920 
         End 
         Begin VB.CommandButton CmdSJ  
            Caption         =   "随机生成" 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   405 
            Left            =   870 
            TabIndex        =   18 
            Top             =   225 
            Width           =   1395 
         End 
      End 
      Begin VB.Frame Frame6  
         Height          =   735 
         Left            =   3090 
         TabIndex        =   8 
         Top             =   5715 
         Width           =   1890 
         Begin VB.CommandButton CmdDel  
            Caption         =   "移除" 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   390 
            Left            =   990 
            TabIndex        =   10 
            Top             =   225 
            Width           =   720 
         End 
         Begin VB.CommandButton CmdAdd  
            Caption         =   "添加" 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   390 
            Left            =   150 
            TabIndex        =   9 
            Top             =   225 
            Width           =   720 
         End 
      End 
      Begin VB.Frame Frame4  
         Caption         =   "所选题目" 
         Height          =   5160 
         Left            =   2940 
         TabIndex        =   2 
         Top             =   180 
         Width           =   1965 
         Begin VB.ListBox LstTMD  
            Appearance      =   0  'Flat 
            BackColor       =   &H00E8F4F8& 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   4590 
            ItemData        =   "FrmShiJuan.frx":12E6 
            Left            =   1035 
            List            =   "FrmShiJuan.frx":12E8 
            Sorted          =   -1  'True 
            TabIndex        =   5 
            Top             =   435 
            Width           =   885 
         End 
         Begin VB.ListBox LstTM  
            Appearance      =   0  'Flat 
            BackColor       =   &H00E8F4F8& 
            BeginProperty Font  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
            Height          =   4590 
            ItemData        =   "FrmShiJuan.frx":12EA 
            Left            =   60 
            List            =   "FrmShiJuan.frx":12EC 
            Sorted          =   -1  'True 
            TabIndex        =   3 
            Top             =   450 
            Width           =   885 
         End 
         Begin VB.Label Label5  
            BackStyle       =   0  'Transparent 
            Caption         =   "多选题:" 
            ForeColor       =   &H00FF0000& 
            Height          =   180 
            Left            =   1035 
            TabIndex        =   7 
            Top             =   225 
            Width           =   765 
         End 
         Begin VB.Label Label4  
            BackStyle       =   0  'Transparent 
            Caption         =   "单选题:" 
            ForeColor       =   &H00FF0000& 
            Height          =   180 
            Left            =   165 
            TabIndex        =   6 
            Top             =   225 
            Width           =   765 
         End 
      End 
      Begin VB.Frame Frame2  
         Caption         =   "题目预览" 
         Height          =   5160 
         Left            =   5175 
         TabIndex        =   1 
         Top             =   165 
         Width           =   5970 
         Begin RichTextLib.RichTextBox TXTView  
            Height          =   4830 
            Left            =   60 
            TabIndex        =   4 
            Top             =   270 
            Width           =   5835 
            _ExtentX        =   10292 
            _ExtentY        =   8520 
            _Version        =   393217 
            BackColor       =   15267064 
            ReadOnly        =   -1  'True 
            ScrollBars      =   2 
            Appearance      =   0 
            TextRTF         =   $"FrmShiJuan.frx":12EE 
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
         End 
      End 
      Begin VB.Frame Frame3  
         Height          =   6690 
         Left            =   180 
         TabIndex        =   11 
         Top             =   165 
         Width           =   2535 
         Begin MSComctlLib.ImageList ImgKemu  
            Left            =   1785 
            Top             =   5190 
            _ExtentX        =   1005 
            _ExtentY        =   1005 
            BackColor       =   -2147483643 
            ImageWidth      =   16 
            ImageHeight     =   16 
            MaskColor       =   12632256 
            _Version        =   393216 
            BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}  
               NumListImages   =   5 
               BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}  
                  Picture         =   "FrmShiJuan.frx":1578 
                  Key             =   "question" 
               EndProperty 
               BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}  
                  Picture         =   "FrmShiJuan.frx":19CA 
                  Key             =   "zonglei" 
               EndProperty 
               BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}  
                  Picture         =   "FrmShiJuan.frx":1E1C 
                  Key             =   "zilei" 
               EndProperty 
               BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}  
                  Picture         =   "FrmShiJuan.frx":226E 
                  Key             =   "nandu" 
               EndProperty 
               BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}  
                  Picture         =   "FrmShiJuan.frx":26C0 
                  Key             =   "nanduopen" 
               EndProperty 
            EndProperty 
         End 
         Begin MSComctlLib.TreeView TrVKeMu  
            Height          =   6390 
            Left            =   90 
            TabIndex        =   12 
            ToolTipText     =   "双击加入所选中的题目" 
            Top             =   210 
            Width           =   2310 
            _ExtentX        =   4075 
            _ExtentY        =   11271 
            _Version        =   393217 
            Indentation     =   460 
            LabelEdit       =   1 
            LineStyle       =   1 
            Style           =   7 
            ImageList       =   "ImgKemu" 
            BorderStyle     =   1 
            Appearance      =   0 
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}  
               Name            =   "宋体" 
               Size            =   12 
               Charset         =   134 
               Weight          =   400 
               Underline       =   0   'False 
               Italic          =   0   'False 
               Strikethrough   =   0   'False 
            EndProperty 
         End 
      End 
   End 
   Begin VB.Label Label1  
      Caption         =   "试卷标题:" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   12 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H00C00000& 
      Height          =   270 
      Left            =   2220 
      TabIndex        =   98 
      Top             =   75 
      Width           =   1200 
   End 
End 
Attribute VB_Name = "FrmShiJuan" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Option Explicit 
Public LstWho As String '表示对那个list框改变分数 
Dim Who As Integer ' 'who表示的是现在编辑的题型的序号 
Function CreateTest() As Boolean '生成试卷 
 CreateTest = False 
 If LstTM.ListCount < 1 And LstTMD.ListCount < 1 And LstTKT.ListCount < 1 And LstPDT.ListCount < 1 And LstWDT.ListCount < 1 And LstZWT.ListCount < 1 Then 
     MsgBox "请至少选择一种题型!" 
     Exit Function 
 End If 
'生成试卷 
If TxTTitle.Text = "" Then 
   MsgBox "<试卷标题> 是必填项!", vbExclamation, "系统提示" 
   TxTTitle.SetFocus 
   Exit Function 
End If 
 
Dim danxuan As String '单选题 
Dim duoxuan As String '多选题 
Dim danxuanS As String '单选分数 
Dim duoxuanS As String '多选分数 
Dim tiankong As String '填空题 
Dim tiankongs As String '填空题分数 
Dim panduan As String '判断题 
Dim panduans As String '判断题分数 
Dim wenda As String '问答题 
Dim wendas As String '问答题分数 
Dim zuowen As String '作文题 
Dim zuowens As String '作文题分数 
Dim i, j As Integer 
Dim TempArr() As String 
Dim Zscore As Single 
'单选 
If LstTM.ListCount <> 0 Then 
  For i = 0 To LstTM.ListCount - 1 
    TempArr = Split(LstTM.List(i), "(") 
    danxuan = danxuan + TempArr(0) + "," 
    danxuanS = danxuanS + Left(TempArr(1), Len(TempArr(1)) - 1) + "," 
    Zscore = Zscore + Val(Left(TempArr(1), Len(TempArr(1)) - 1)) 
  Next i 
Else 
  danxuan = "," 
  danxuanS = "," 
End If 
'多选 
If LstTMD.ListCount <> 0 Then 
  For i = 0 To LstTMD.ListCount - 1 
    TempArr = Split(LstTMD.List(i), "(") 
    duoxuan = duoxuan + TempArr(0) + "," 
    duoxuanS = duoxuanS + Left(TempArr(1), Len(TempArr(1)) - 1) + "," 
    Zscore = Zscore + Val(Left(TempArr(1), Len(TempArr(1)) - 1)) 
  Next i 
Else 
  duoxuan = "," 
  duoxuanS = "," 
End If 
'填空 
If LstTKT.ListCount <> 0 Then 
  For i = 0 To LstTKT.ListCount - 1 
    TempArr = Split(LstTKT.List(i), "(") 
    tiankong = tiankong + TempArr(0) + "," 
    tiankongs = tiankongs + Left(TempArr(1), Len(TempArr(1)) - 1) + "," 
    Zscore = Zscore + Val(Left(TempArr(1), Len(TempArr(1)) - 1)) 
  Next i 
Else 
  tiankong = "," 
  tiankongs = "," 
End If 
'判断 
If LstPDT.ListCount <> 0 Then 
  For i = 0 To LstPDT.ListCount - 1 
    TempArr = Split(LstPDT.List(i), "(") 
    panduan = panduan + TempArr(0) + "," 
    panduans = panduans + Left(TempArr(1), Len(TempArr(1)) - 1) + "," 
    Zscore = Zscore + Val(Left(TempArr(1), Len(TempArr(1)) - 1)) 
  Next i 
Else 
  panduan = "," 
  panduans = "," 
End If 
'问答 
If LstWDT.ListCount <> 0 Then 
  For i = 0 To LstWDT.ListCount - 1 
    TempArr = Split(LstWDT.List(i), "(") 
    wenda = wenda + TempArr(0) + "," 
    wendas = wendas + Left(TempArr(1), Len(TempArr(1)) - 1) + "," 
    Zscore = Zscore + Val(Left(TempArr(1), Len(TempArr(1)) - 1)) 
  Next i 
Else 
  wenda = "," 
  wendas = "," 
End If 
'作文 
If LstZWT.ListCount <> 0 Then 
  For i = 0 To LstZWT.ListCount - 1 
    TempArr = Split(LstZWT.List(i), "(") 
    zuowen = zuowen + TempArr(0) + "," 
    zuowens = zuowens + Left(TempArr(1), Len(TempArr(1)) - 1) + "," 
    Zscore = Zscore + Val(Left(TempArr(1), Len(TempArr(1)) - 1)) 
  Next i 
Else 
 zuowen = "," 
 zuowens = "," 
End If 
 
 
danxuan = Left(danxuan, Len(danxuan) - 1) 
danxuanS = Left(danxuanS, Len(danxuanS) - 1) 
duoxuan = Left(duoxuan, Len(duoxuan) - 1) 
duoxuanS = Left(duoxuanS, Len(duoxuanS) - 1) 
 
tiankong = Left(tiankong, Len(tiankong) - 1) 
tiankongs = Left(tiankongs, Len(tiankongs) - 1) 
panduan = Left(panduan, Len(panduan) - 1) 
panduans = Left(panduans, Len(panduans) - 1) 
 
wenda = Left(wenda, Len(wenda) - 1) 
wendas = Left(wendas, Len(wendas) - 1) 
zuowen = Left(zuowen, Len(zuowen) - 1) 
zuowens = Left(zuowens, Len(zuowens) - 1) 
Dim Msg As String 
Msg = Msg + "单选择题:" + danxuan + "  分数:" + danxuanS + vbCrLf 
Msg = Msg + "多选题:" + duoxuan + "  分数:" + duoxuanS + vbCrLf 
Msg = Msg + "填空题:" + tiankong + "  分数:" + tiankongs + vbCrLf 
Msg = Msg + "填空题:" + panduan + "  分数:" + panduans + vbCrLf 
Msg = Msg + "问答题:" + wenda + "  分数:" + wendas + vbCrLf 
Msg = Msg + "作文题:" + zuowen + "  分数:" + zuowens + vbCrLf 
Msg = Msg + "试卷总分数为:" & Zscore 
MsgBox Msg 
'写入数据库 
If MsgBox("你真的要生成这份试卷吗?确认吗?", vbYesNo, "问题") = vbNo Then 
   Exit Function 
End If 
Dim testRS As Recordset 
Set testRS = New Recordset 
testRS.Open "test", DB, adOpenStatic, adLockOptimistic 
testRS.AddNew 
testRS.Fields("id") = GetAutoID("test") 
testRS.Fields("kemuid") = UseKeMuID 
testRS.Fields("nianjiid") = UseNianJiID 
testRS.Fields("title") = TxTTitle.Text 
testRS.Fields("danxuan") = danxuan 
testRS.Fields("duoxuan") = duoxuan 
testRS.Fields("danxuans") = danxuanS 
testRS.Fields("duoxuans") = duoxuanS 
testRS.Fields("tiankong") = tiankong 
testRS.Fields("tiankongs") = tiankongs 
testRS.Fields("panduan") = panduan 
testRS.Fields("panduans") = panduans 
testRS.Fields("wenda") = wenda 
testRS.Fields("wendas") = wendas 
testRS.Fields("zuowen") = zuowen 
testRS.Fields("zuowens") = zuowens 
testRS.Fields("zscore").Value = Zscore 
testRS.Update 
 
MsgBox "试卷已经成功的生成!" 
TxTTitle.Text = "" 
CreateTest = True 
End Function 
Private Sub Check1_Click() 
 
End Sub 
 
Private Sub CmbPD_Click() 
  Dim adoRs As Recordset 
   Dim NanDuStr As String 
   Set adoRs = New Recordset 
   '查询题目id 
   NanDuStr = CmbPD.Text 
   If CmbPD.ListIndex <> 0 Then 
     adoRs.Open "select id from questionPD where kemuid=" & UseKeMuID & " and nianjiid=" & UseNianJiID & " and nandu='" & NanDuStr & "'", DB, adOpenStatic, adLockOptimistic 
    Else 
     adoRs.Open "select id from questionPD where kemuid=" & UseKeMuID & " and nianjiid=" & UseNianJiID, DB, adOpenStatic, adLockOptimistic 
   End If 
   LstPD.Clear 
  '添加列表 
  Do While Not adoRs.EOF 
    LstPD.AddItem "第" & adoRs.Fields("id").Value & "题" 
    adoRs.MoveNext 
  Loop 
  Set adoRs = Nothing 
End Sub 
 
Private Sub CmbTK_Click() 
     Dim adoRs As Recordset 
   Dim NanDuStr As String 
   Set adoRs = New Recordset 
   '查询题目id 
   NanDuStr = CmbTK.Text 
   If CmbTK.ListIndex <> 0 Then 
     adoRs.Open "select id from questionTK where kemuid=" & UseKeMuID & " and nianjiid=" & UseNianJiID & " and nandu='" & NanDuStr & "'", DB, adOpenStatic, adLockOptimistic 
    Else 
     adoRs.Open "select id from questionTK where kemuid=" & UseKeMuID & " and nianjiid=" & UseNianJiID, DB, adOpenStatic, adLockOptimistic 
   End If 
   LstTK.Clear 
  '添加列表 
  Do While Not adoRs.EOF 
    LstTK.AddItem "第" & adoRs.Fields("id").Value & "题" 
    adoRs.MoveNext 
  Loop 
  Set adoRs = Nothing 
 
End Sub 
 
Private Sub CmbWD_Click() 
  Dim adoRs As Recordset 
   Dim NanDuStr As String 
   Set adoRs = New Recordset 
   '查询题目id 
   NanDuStr = CmbWD.Text 
   If CmbWD.ListIndex <> 0 Then 
     adoRs.Open "select id from questionWD where kemuid=" & UseKeMuID & " and nianjiid=" & UseNianJiID & " and nandu='" & NanDuStr & "'", DB, adOpenStatic, adLockOptimistic 
    Else 
     adoRs.Open "select id from questionWD where kemuid=" & UseKeMuID & " and nianjiid=" & UseNianJiID, DB, adOpenStatic, adLockOptimistic 
   End If 
   LstWD.Clear 
  '添加列表 
  Do While Not adoRs.EOF 
    LstWD.AddItem "第" & adoRs.Fields("id").Value & "题" 
    adoRs.MoveNext 
  Loop 
  Set adoRs = Nothing 
End Sub 
 
Private Sub CmbZW_Click() 
  Dim adoRs As Recordset 
   Dim NanDuStr As String 
   Set adoRs = New Recordset 
   '查询题目id 
   NanDuStr = CmbZW.Text 
   If CmbZW.ListIndex <> 0 Then 
     adoRs.Open "select id from questionZW where kemuid=" & UseKeMuID & " and nianjiid=" & UseNianJiID & " and nandu='" & NanDuStr & "'", DB, adOpenStatic, adLockOptimistic 
    Else 
     adoRs.Open "select id from questionZW where kemuid=" & UseKeMuID & " and nianjiid=" & UseNianJiID, DB, adOpenStatic, adLockOptimistic 
   End If 
   LstZW.Clear 
  '添加列表 
  Do While Not adoRs.EOF 
    LstZW.AddItem "第" & adoRs.Fields("id").Value & "题" 
    adoRs.MoveNext 
  Loop 
  Set adoRs = Nothing 
End Sub 
 
Private Sub CmdAdd_Click() 
 
 If CmdAdd.Tag <> "" Then 
    Score = "0" 
    'Frmscore.Show 1 
     
    AddList CmdAdd.Tag + "(" + Score + ")" 
 End If 
 CmdAdd.Tag = "" 
End Sub 
 
 
 
Private Sub CmdDel_Click() 
   If LstWho = "LstTM" Then 
    If LstTM.ListIndex >= 0 Then LstTM.RemoveItem (LstTM.ListIndex) 
  Else 
    If LstTMD.ListIndex >= 0 Then LstTMD.RemoveItem (LstTMD.ListIndex) 
 End If 
End Sub 
 
Private Sub CmdEsc_Click() 
   If MsgBox("试卷生成没有完成,你真的放弃试卷的生成吗?", vbYesNo, "问题") = vbYes Then 
   Unload Me 
 End If 
 
End Sub 
 
Private Sub CmdNext_Click() 
 If CmdNext.Caption = "完成" Then 
    '提交试卷 
   If CreateTest() = True Then Unload Me 
   Exit Sub 
 End If 
  
  Who = Who + 1 
 SetFraVisible Who 
 CmdPrv.Enabled = True 
 If Who = 5 Then CmdNext.Caption = "完成" 
 
End Sub 
 
Private Sub CmdOldTest_Click() 
  LstWho = "LstTM" 
  FrmOldTest.Show 1 
End Sub 
 
Private Sub CmdPDAdd_Click() 
  If LstPD.ListIndex < 0 Then Exit Sub 
  Score = 0 
  AddtoList GetID(LstPD.List(LstPD.ListIndex)) & "(" & Score & ")", LstPDT 
 
End Sub 
 
Private Sub CmdPDDel_Click() 
 If LstPDT.ListIndex >= 0 Then LstPDT.RemoveItem (LstPDT.ListIndex) 
End Sub 
 
Private Sub CmdPDOld_Click() 
    LstWho = "LstPD" 
  FrmOldTest.Show 1 
 
End Sub 
 
Private Sub CmdPDSJ_Click() 
    MsgBox "时间关系,现在只有选择题有随机生成功能,过两天再补上!" 
End Sub 
 
Private Sub CmdPrv_Click() 
  Who = Who - 1 
 SetFraVisible Who 
 If Who = 1 Then CmdPrv.Enabled = False 
 CmdNext.Caption = "下一步" 
End Sub 
 
Private Sub CmdSJ_Click() 
   FrmSJSet.Show 1 
End Sub 
'添加字符串到list框 
Sub AddtoList(ByVal str As String, ByVal LstBox As ListBox) 
  Dim i As Integer 
  '判断是单项还是多项 
    For i = 0 To LstBox.ListCount - 1 
     If Val(str) = Val(LstBox.List(i)) Then 
       Exit Sub 
     End If 
    Next i 
    LstBox.AddItem str 
End Sub 
 
Private Sub CmdTKAdd_Click() 
  If LstTK.ListIndex < 0 Then Exit Sub 
  Score = 0 
  AddtoList GetID(LstTK.List(LstTK.ListIndex)) & "(" & Score & ")", LstTKT 
   
End Sub 
 
Private Sub CmdTKDel_Click() 
 If LstTKT.ListIndex >= 0 Then LstTKT.RemoveItem (LstTKT.ListIndex) 
End Sub 
 
Private Sub CmdTKOld_Click() 
    LstWho = "LstTK" 
  FrmOldTest.Show 1 
 
End Sub 
 
Private Sub CmdTKSJ_Click() 
  MsgBox "时间关系,现在只有选择题有随机生成功能,过两天再补上!" 
End Sub 
 
Private Sub CmdView_Click() 
  If LstTM.ListCount < 1 And LstTMD.ListCount < 1 And LstTKT.ListCount < 1 And LstPDT.ListCount < 1 And LstWDT.ListCount < 1 And LstZWT.ListCount < 1 Then 
     MsgBox "请至少选择一种题型!" 
     Exit Sub 
  End If 
   '得到所选择的题目的ID号 
   Dim i As Integer 
   Dim TStr As String 
   Dim strid As String 
   strid = "" 
   For i = 0 To LstTM.ListCount - 1 
      TStr = LstTM.List(i) 
      TStr = str(Val(TStr)) 
      strid = strid + Trim(TStr) + "," 
   Next i 
    
   For i = 0 To LstTMD.ListCount - 1 
      TStr = LstTMD.List(i) 
      TStr = str(Val(TStr)) 
      strid = strid + Trim(TStr) + "," 
   Next i 
    
   If strid <> "" Then 
     strid = "(" + Left(strid, Len(strid) - 1) + ")" 
    Else 
     strid = "(0)" 
   End If 
   'MsgBox StrID 
   Dim adoTMRs As Recordset 
   Dim adoTMRsd As Recordset 
   Dim sql As String 
   Dim sqld As String 
   Set adoTMRs = New Recordset 
   sql = "select wenti,xuanze1,xuanze2,xuanze3,xuanze4,daan from question where id in " + strid + " and leibie='单'" 
   'MsgBox SQL 
   adoTMRs.Open sql, DB, adOpenStatic, adLockOptimistic 
   sqld = "select wenti,xuanze1,xuanze2,xuanze3,xuanze4,daan from question where id in " + strid + " and leibie='多'" 
   Set adoTMRsd = New Recordset 
   adoTMRsd.Open sqld, DB, adOpenStatic, adLockOptimistic 
    
   '生成填空题的记录集 
   strid = "" 
   For i = 0 To LstTKT.ListCount - 1 
      TStr = LstTKT.List(i) 
      TStr = str(Val(TStr)) 
      strid = strid + Trim(TStr) + "," 
   Next i 
   If strid <> "" Then 
      strid = "(" + Left(strid, Len(strid) - 1) + ")" 
     Else 
      strid = "(0)" 
   End If 
   Dim adoTMTK As Recordset 
   Set adoTMTK = New Recordset 
   adoTMTK.Open "select wenti,daan from questionTK where id in " + strid, DB, adOpenStatic, adLockOptimistic 
       
   '生成判断题 
    strid = "" 
   For i = 0 To LstPDT.ListCount - 1 
      TStr = LstPDT.List(i) 
      TStr = str(Val(TStr)) 
      strid = strid + Trim(TStr) + "," 
   Next i 
   If strid <> "" Then 
      strid = "(" + Left(strid, Len(strid) - 1) + ")" 
     Else 
      strid = "(0)" 
   End If 
   Dim adoTMPD As Recordset 
   Set adoTMPD = New Recordset 
   adoTMPD.Open "select wenti,daan from questionPD where id in " + strid, DB, adOpenStatic, adLockOptimistic 
   
   '生成问答题 
    strid = "" 
   For i = 0 To LstWDT.ListCount - 1 
      TStr = LstWDT.List(i) 
      TStr = str(Val(TStr)) 
      strid = strid + Trim(TStr) + "," 
   Next i 
   If strid <> "" Then 
      strid = "(" + Left(strid, Len(strid) - 1) + ")" 
     Else 
      strid = "(0)" 
   End If 
   Dim adoTMWD As Recordset 
   Set adoTMWD = New Recordset 
   adoTMWD.Open "select wenti,daan from questionWD where id in " + strid, DB, adOpenStatic, adLockOptimistic 
   
  '生成作文题 
    strid = "" 
   For i = 0 To LstZWT.ListCount - 1 
      TStr = LstZWT.List(i) 
      TStr = str(Val(TStr)) 
      strid = strid + Trim(TStr) + "," 
   Next i 
   If strid <> "" Then 
      strid = "(" + Left(strid, Len(strid) - 1) + ")" 
     Else 
      strid = "(0)" 
   End If 
   Dim adoTMZW As Recordset 
   Set adoTMZW = New Recordset 
   adoTMZW.Open "select wenti,daan from questionZW where id in " + strid, DB, adOpenStatic, adLockOptimistic 
   
   '生成HTML文件 
   Dim DaView As Boolean 
   DaView = False 
   If CheView = 1 Then 
     DaView = True 
   End If 
   CreateHTML App.Path + "\temp.html", TxTTitle.Text, DaView, adoTMRs, adoTMRsd, adoTMTK, adoTMPD, adoTMWD, adoTMZW 
   'FrmView.Web.LocationURL = App.Path + "\temp.html" 
   Set adoTMRs = Nothing 
   Set adoTMRsd = Nothing 
   Set adoTMTK = Nothing 
   Set adoTMPD = Nothing 
   Set adoTMWD = Nothing 
   Set adoTMZW = Nothing 
   FrmView.TXTDan.Text = LstTM.ListCount 
   FrmView.TXTDuo.Text = LstTMD.ListCount 
   FrmView.Web.Navigate App.Path + "\temp.html" 
   FrmView.Show 1 
    
End Sub 
 
Private Sub CmdWDAdd_Click() 
  If LstWD.ListIndex < 0 Then Exit Sub 
  Score = 0 
  AddtoList GetID(LstWD.List(LstWD.ListIndex)) & "(" & Score & ")", LstWDT 
 
End Sub 
 
Private Sub CmdWDDel_Click() 
   If LstWDT.ListIndex >= 0 Then LstWDT.RemoveItem (LstWDT.ListIndex) 
 
End Sub 
 
Private Sub CmdWDOld_Click() 
    LstWho = "LstWD" 
  FrmOldTest.Show 1 
 
End Sub 
 
Private Sub CmdWDSJ_Click() 
    MsgBox "时间关系,现在只有选择题有随机生成功能,过两天再补上!" 
End Sub 
 
Private Sub CmdZWAdd_Click() 
  If LstZW.ListIndex < 0 Then Exit Sub 
  Score = 0 
  AddtoList GetID(LstZW.List(LstZW.ListIndex)) & "(" & Score & ")", LstZWT 
 
End Sub 
 
Private Sub CmdZWDel_Click() 
     If LstZWT.ListIndex >= 0 Then LstZWT.RemoveItem (LstZWT.ListIndex) 
 
End Sub 
 
Private Sub CmdZWOld_Click() 
    LstWho = "LstZW" 
  FrmOldTest.Show 1 
 
End Sub 
 
Private Sub Command1_Click() 
  Unload Me 
End Sub 
 
 
Private Sub CmdZWSJ_Click() 
    MsgBox "时间关系,现在只有选择题有随机生成功能,过两天再补上!" 
End Sub 
 
Private Sub Form_Activate() 
 Unload FrmFlash 
 
End Sub 
'生成选择题的树 
Sub CreateXZ() 
    Dim MyNod As Node 
  ', Mynod1 As Node 
  Dim NewNod As Node 
  Dim sql As String 
  '难度 
  Dim NanDu(1 To 3) As String 
  '类别 
  Dim LeiBie(1 To 2) As String 
  Dim j As Integer 
  Dim k As Integer 
  Dim adoQuestionRs As Recordset 
  Set adoQuestionRs = New Recordset 
    Dim NanDuStr As String 
 
  NanDu(1) = "低" 
  NanDu(2) = "中" 
  NanDu(3) = "高" 
  LeiBie(1) = "单" 
  LeiBie(2) = "多" 
 '建立根接点 
  For k = 1 To 2 
  '建立类别节点 
  Set NewNod = TrVKeMu.Nodes.Add(, , "node_ml|" + LeiBie(k), LeiBie(k) + "项选择") 
  '建立难度节点 
  For j = 1 To 3 
       NanDuStr = NanDu(j) 
       Set NewNod = TrVKeMu.Nodes.Add("node_ml|" + LeiBie(k), tvwChild, "node_nd|" + LeiBie(k) + "|" + NanDu(j), NanDu(j)) 
       NewNod.Image = "nandu" 
       NewNod.ExpandedImage = "nanduopen" 
       '建立题目节点 
       sql = "select id from question where kemuid=" + Int2Str(UseKeMuID) + " and nianjiid=" + Int2Str(UseNianJiID) + " and nandu='" + NanDu(j) + "' and leibie='" + LeiBie(k) + "' order by id" 
       adoQuestionRs.Open sql, DB, adOpenStatic, adLockOptimistic 
       Do While Not adoQuestionRs.EOF 
          Set NewNod = TrVKeMu.Nodes.Add("node_nd|" + LeiBie(k) + "|" + NanDu(j), tvwChild, "N" + Int2Str(adoQuestionRs.Fields("id").Value), "第" + Trim(str(adoQuestionRs.Fields("id").Value)) + "题") 
          adoQuestionRs.MoveNext 
       Loop 
       adoQuestionRs.Close 
     Next j 
 Next k 
End Sub 
Private Sub Form_Load() 
 '生成选择树 
 CreateXZ 
 ''初始化难度选择框 
 CmbTK.ListIndex = 0 
 CmbPD.ListIndex = 0 
 CmbWD.ListIndex = 0 
 CmbZW.ListIndex = 0 
 '初始化题目列表框 
 Dim adoRs As Recordset 
 Set adoRs = New Recordset 
 '填空 
 adoRs.Open "select id from questionTK where kemuid=" & UseKeMuID & " and nianjiid=" & UseNianJiID, DB, adOpenStatic, adLockOptimistic 
 LstTK.Clear 
 Do While Not adoRs.EOF 
   LstTK.AddItem "第" & adoRs.Fields(0).Value & "题" 
   adoRs.MoveNext 
 Loop 
 adoRs.Close 
  
  '判断 
 adoRs.Open "select id from questionPD where kemuid=" & UseKeMuID & " and nianjiid=" & UseNianJiID, DB, adOpenStatic, adLockOptimistic 
 LstPD.Clear 
 Do While Not adoRs.EOF 
   LstPD.AddItem "第" & adoRs.Fields(0).Value & "题" 
   adoRs.MoveNext 
 Loop 
 adoRs.Close 
  
  '问答 
 adoRs.Open "select id from questionWD where kemuid=" & UseKeMuID & " and nianjiid=" & UseNianJiID, DB, adOpenStatic, adLockOptimistic 
 LstWD.Clear 
 Do While Not adoRs.EOF 
   LstWD.AddItem "第" & adoRs.Fields(0).Value & "题" 
   adoRs.MoveNext 
 Loop 
 adoRs.Close 
  
  '作文 
 adoRs.Open "select id from questionZW where kemuid=" & UseKeMuID & " and nianjiid=" & UseNianJiID, DB, adOpenStatic, adLockOptimistic 
 LstZW.Clear 
 Do While Not adoRs.EOF 
   LstZW.AddItem "第" & adoRs.Fields(0).Value & "题" 
   adoRs.MoveNext 
 Loop 
 adoRs.Close 
  
 Set adoRs = Nothing 
 Who = 1 
End Sub 
'预览判断题 
Sub ViewPD(ByVal TMID As Long) '题目id 
  Dim adoRs As Recordset 
  Dim TempStr As String 
  Set adoRs = New Recordset 
  adoRs.Open "select wenti,daan,nandu from questionPD where id=" & TMID, DB, adOpenStatic, adLockOptimistic 
  TempStr = "  题目ID: " & TMID & "(" & adoRs.Fields("nandu").Value & ")" + vbCrLf 
  RTBPDT.Text = TempStr + vbCrLf + adoRs.Fields("wenti").Value 
  If adoRs.Fields("daan").Value = "T" Then 
    OptDui.Value = True 
   Else 
    OptCuo.Value = True 
  End If 
  Set adoRs = Nothing 
End Sub 
'预览作文题 
Sub ViewZW(ByVal TMID As Long) '题目id 
  Dim adoRs As Recordset 
  Dim TempStr As String 
  Set adoRs = New Recordset 
  adoRs.Open "select wenti,daan,nandu from questionZW where id=" & TMID, DB, adOpenStatic, adLockOptimistic 
  TempStr = "  题目ID: " & TMID & "(" & adoRs.Fields("nandu").Value & ")" + vbCrLf 
  RTBZWT.Text = TempStr + vbCrLf + adoRs.Fields("wenti").Value 
  RTBZWD.Text = adoRs.Fields("daan").Value 
  Set adoRs = Nothing 
End Sub 
'预览问答题 
Sub ViewWD(ByVal TMID As Long) '题目id 
  Dim adoRs As Recordset 
  Dim TempStr As String 
  Set adoRs = New Recordset 
  adoRs.Open "select wenti,daan,nandu from questionWD where id=" & TMID, DB, adOpenStatic, adLockOptimistic 
  TempStr = "  题目ID: " & TMID & "(" & adoRs.Fields("nandu").Value & ")" + vbCrLf 
  RTBWDT.Text = TempStr + vbCrLf + adoRs.Fields("wenti").Value 
  RTBWDD.Text = adoRs.Fields("daan").Value 
  Set adoRs = Nothing 
End Sub 
'预览填空题 
Sub ViewTK(ByVal TMID As Long) '题目id 
  Dim adoRs As Recordset 
  Dim strArr() As String 
  Dim TempStr As String 
  Dim i As Integer 
  Set adoRs = New Recordset 
  adoRs.Open "select wenti,daan,nandu from questionTK where id=" & TMID, DB, adOpenStatic, adLockOptimistic 
  TempStr = "  题目ID: " & TMID & "(" & adoRs.Fields("nandu").Value & ")" + vbCrLf 
  RTBTKT.Text = TempStr + vbCrLf + adoRs.Fields("wenti").Value 
  If adoRs.Fields("daan").Value <> "" Then 
     strArr = Split(adoRs.Fields("daan").Value, "▲▲") 
  End If 
  TempStr = "" 
  For i = 0 To UBound(strArr) 
    TempStr = TempStr & (i + 1) & "、" & strArr(i) + vbCrLf 
  Next i 
  RTBTKD.Text = TempStr 
  Set adoRs = Nothing 
End Sub 
 
'预览选择题过程 
Sub ViewTM(ByVal adoRs As Recordset) 
   Dim i As Integer 
   Dim TempStr As String 
   Dim TMStr As String 
   Dim XuanzeArr(4) As String 
   TempStr = "  题目ID号:" + str(adoRs.Fields("id")) + "(" + adoRs.Fields("nandu") + ")" + vbCrLf + vbCrLf 
   TMStr = TempStr 
   TMStr = TMStr + Trim(str(adoRs.Fields("id"))) + "、" + adoRs.Fields("wenti") + vbCrLf + vbCrLf 
   'XuanzeArr = Split(adoRS.Fields("xuanze"), "||") 
   XuanzeArr(0) = adoRs.Fields("xuanze1").Value 
   XuanzeArr(1) = adoRs.Fields("xuanze2").Value 
   XuanzeArr(2) = adoRs.Fields("xuanze3").Value 
   XuanzeArr(3) = adoRs.Fields("xuanze4").Value 
 
   For i = 0 To 3 
     TMStr = TMStr + "   " + Chr(65 + i) + "、" + XuanzeArr(i) + vbCrLf + vbCrLf 
      
   Next i 
   TXTView.Text = TMStr 
End Sub 
'设置现在编辑的是那个题型,显示那个组合框 
Sub SetFraVisible(ByVal Who As Integer) 
  'who表示的是现在编辑的题型的序号 
 FraXZ.Visible = False 
 FraTK.Visible = False 
 FraPD.Visible = False 
 FraWD.Visible = False 
 FraZW.Visible = False 
 Select Case Who 
   Case 1 
     FraXZ.Visible = True 
     LabTI.Caption = "现在题型:选择题" 
   Case 2 
     FraTK.Visible = True 
     LabTI.Caption = "现在题型:填空题" 
   Case 3 
     FraPD.Visible = True 
     LabTI.Caption = "现在题型:判断题" 
   Case 4 
     FraWD.Visible = True 
     LabTI.Caption = "现在题型:问答题" 
   Case 5 
     FraZW.Visible = True 
     LabTI.Caption = "现在题型:作文题" 
 End Select 
End Sub 
 
Private Sub Form_Resize() 
  '设置各组和框的位置 
  FraTK.Top = FraXZ.Top 
  FraTK.Left = FraXZ.Left 
  FraPD.Top = FraXZ.Top 
  FraPD.Left = FraXZ.Left 
  FraWD.Top = FraXZ.Top 
  FraWD.Left = FraXZ.Left 
  FraZW.Top = FraXZ.Top 
  FraZW.Left = FraXZ.Left 
   
End Sub 
 
Private Sub LstPD_Click() 
  ViewPD GetID(LstPD.List(LstPD.ListIndex)) 
End Sub 
 
Private Sub LstPD_DblClick() 
  CmdPDAdd_Click 
End Sub 
 
Private Sub LstPDT_Click() 
 ViewPD Val(LstPDT.List(LstPDT.ListIndex)) 
End Sub 
 
Private Sub LstPDT_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 
   Dim TStr As String 
  Dim TstrArr() As String 
  TStr = LstPDT.List(LstPDT.ListIndex) 
  If Button = 2 And LstPDT.ListIndex >= 0 Then 
    Score = 0 
    LstWho = "LstPDT" 
    PopupMenu FrmMeun.M_Active 
    If Score > 0 Then 
      TstrArr = Split(TStr, "(") 
      TStr = TstrArr(0) + "(" + Trim(str(Score)) + ")" 
      LstPDT.List(LstPDT.ListIndex) = TStr 
    End If 
  End If 
End Sub 
 
Private Sub LstTK_Click() 
  ViewTK GetID(LstTK.List(LstTK.ListIndex)) 
End Sub 
 
Private Sub LstTK_DblClick() 
  CmdTKAdd_Click 
End Sub 
 
Private Sub LstTKT_Click() 
   ViewTK Val(LstTKT.List(LstTKT.ListIndex)) 
 
End Sub 
 
Private Sub LstTKT_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 
  Dim TStr As String 
  Dim TstrArr() As String 
  TStr = LstTKT.List(LstTKT.ListIndex) 
  If Button = 2 And LstTKT.ListIndex >= 0 Then 
    Score = 0 
    LstWho = "LstTKT" 
    PopupMenu FrmMeun.M_Active 
    If Score > 0 Then 
      TstrArr = Split(TStr, "(") 
      TStr = TstrArr(0) + "(" + Trim(str(Score)) + ")" 
      LstTKT.List(LstTKT.ListIndex) = TStr 
    End If 
  End If 
 
End Sub 
 
Private Sub LstTM_Click() 
   LstWho = "LstTM" 
   Dim TStr As String 
   TStr = LstTM.List(LstTM.ListIndex) 
   TStr = str(Val(TStr)) 
   '查询显示 
       Dim adoTMRs As Recordset 
       Dim sql As String 
       Set adoTMRs = New Recordset 
       sql = "select * from question where id=" + TStr 
       adoTMRs.Open sql, DB, adOpenStatic, adLockOptimistic 
       'TXTView.Text = "" 
       ViewTM adoTMRs 
       adoTMRs.Close 
End Sub 
 
 
Private Sub LstTM_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 
  Dim TStr As String 
  Dim TstrArr() As String 
  TStr = LstTM.List(LstTM.ListIndex) 
  If Button = 2 And LstTM.ListIndex >= 0 Then 
    Score = 0 
    LstWho = "LstTM" 
    PopupMenu FrmMeun.M_Active 
    If Score > 0 Then 
      TstrArr = Split(TStr, "(") 
      TStr = TstrArr(0) + "(" + Trim(str(Score)) + ")" 
      LstTM.List(LstTM.ListIndex) = TStr 
    End If 
  End If 
End Sub 
Private Sub LstTMD_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 
   Dim TStr As String 
  Dim TstrArr() As String 
  TStr = LstTMD.List(LstTMD.ListIndex) 
  If Button = 2 And LstTMD.ListIndex >= 0 Then 
    Score = 0 
    LstWho = "LstTMD" 
    PopupMenu FrmMeun.M_Active 
    If Score > 0 Then 
      TstrArr = Split(TStr, "(") 
      TStr = TstrArr(0) + "(" + Trim(str(Score)) + ")" 
      LstTMD.List(LstTMD.ListIndex) = TStr 
    End If 
  End If 
End Sub 
 
Private Sub LstTMD_Click() 
 LstWho = "LstTMD" 
  Dim TStr As String 
   TStr = LstTMD.List(LstTMD.ListIndex) 
   TStr = str(Val(TStr)) 
   '查询显示 
       Dim adoTMRs As Recordset 
       Dim sql As String 
       Set adoTMRs = New Recordset 
       sql = "select * from question where id=" + TStr 
       adoTMRs.Open sql, DB, adOpenStatic, adLockOptimistic 
       'TXTView.Text = "" 
       ViewTM adoTMRs 
       adoTMRs.Close 
End Sub 
 
 
Private Sub LstWD_Click() 
  ViewWD GetID(LstWD.List(LstWD.ListIndex)) 
End Sub 
 
Private Sub LstWD_DblClick() 
  CmdWDAdd_Click 
End Sub 
 
Private Sub LstWDT_Click() 
  ViewWD Val(LstWDT.List(LstWDT.ListIndex)) 
End Sub 
 
Private Sub LstWDT_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 
  Dim TStr As String 
  Dim TstrArr() As String 
  TStr = LstWDT.List(LstWDT.ListIndex) 
  If Button = 2 And LstWDT.ListIndex >= 0 Then 
    Score = 0 
    LstWho = "LstWDT" 
    PopupMenu FrmMeun.M_Active 
    If Score > 0 Then 
      TstrArr = Split(TStr, "(") 
      TStr = TstrArr(0) + "(" + Trim(str(Score)) + ")" 
      LstWDT.List(LstWDT.ListIndex) = TStr 
    End If 
  End If 
 
End Sub 
 
Private Sub LstZW_Click() 
  ViewZW GetID(LstZW.List(LstZW.ListIndex)) 
End Sub 
 
Private Sub LstZW_DblClick() 
  CmdZWAdd_Click 
End Sub 
 
Private Sub LstZWT_Click() 
 ViewZW Val(LstZWT.List(LstZWT.ListIndex)) 
 
End Sub 
 
Private Sub LstZWT_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 
  Dim TStr As String 
  Dim TstrArr() As String 
  TStr = LstZWT.List(LstZWT.ListIndex) 
  If Button = 2 And LstZWT.ListIndex >= 0 Then 
    Score = 0 
    LstWho = "LstZWT" 
    PopupMenu FrmMeun.M_Active 
    If Score > 0 Then 
      TstrArr = Split(TStr, "(") 
      TStr = TstrArr(0) + "(" + Trim(str(Score)) + ")" 
      LstZWT.List(LstZWT.ListIndex) = TStr 
    End If 
  End If 
 
End Sub 
 
Private Sub TrVKeMu_DblClick() 
  'MsgBox TrVKeMu.SelectedItem.Key 
  CmdAdd_Click 
End Sub 
 
Private Sub TrVkemu_NodeClick(ByVal Node As MSComctlLib.Node) 
   Dim Pid As Long 
   If Node.Children = 0 And Left(Node.Key, 1) = "N" Then 
       Pid = Val(Right(Node.Key, Len(Node.Key) - 1)) 
       '查询显示 
       Dim adoTMRs As Recordset 
       Dim sql As String 
       Set adoTMRs = New Recordset 
       sql = "select * from question where id=" + str(Pid) 
       adoTMRs.Open sql, DB, adOpenStatic, adLockOptimistic 
       TXTView.Text = "" 
       ViewTM adoTMRs 
     
       '分单多项选择,S为单,D为多 
       If adoTMRs.Fields("leibie") = "单" Then 
         CmdAdd.Tag = "S" + Trim(str(Pid)) 
         Else 
         CmdAdd.Tag = "D" + Trim(str(Pid)) 
       End If 
       '关闭记录集 
       adoTMRs.Close 
        
     'PopupMenu M_Add 
   End If 
End Sub 
'添加题目到列表框 
Sub AddList(ByVal str As String) 
  Dim i As Integer 
  '判断是单项还是多项 
  If Left(str, 1) = "S" Then 
    For i = 0 To LstTM.ListCount - 1 
     If Val(Mid(str, 2)) = Val(LstTM.List(i)) Then 
       Exit Sub 
     End If 
    Next i 
    LstTM.AddItem Mid(str, 2) 
  Else 
    For i = 0 To LstTMD.ListCount - 1 
     If Val(Mid(str, 2)) = Val(LstTMD.List(i)) Then 
       Exit Sub 
     End If 
    Next i 
    LstTMD.AddItem Mid(str, 2) 
  End If 
 
End Sub 
Sub SetCmbText(ByVal str As String, ByVal CmbBox As ComboBox) 
  '查找对应项 
  Dim i As Integer 
  For i = 0 To CmbBox.ListCount - 1 
    If str = CmbBox.List(i) Then CmbBox.ListIndex = i 
  Next i 
   
End Sub 
'从LstTM里取得ID号,返回为long型 
Function GetID(ByVal IdString) As Long 
   GetID = Val(Mid(IdString, 2)) 
    
End Function 
 
Private Sub TxTTitle_KeyPress(KeyAscii As Integer) 
   If KeyAscii = 39 Then KeyAscii = -24145 
 
End Sub