frmvalidkeyword.frm

非常著名的人工智能程序bob,想学人工智能的可以参考下.

VERSION 5.00
Begin VB.Form FrmValidKeyword 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Validate Keyword-Response System "
   ClientHeight    =   4275
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6300
   Icon            =   "FrmValidKeyword.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4275
   ScaleWidth      =   6300
   StartUpPosition =   3  'Windows Default
   Begin VB.Frame Frame1 
      Caption         =   "Report"
      Height          =   3885
      Left            =   30
      TabIndex        =   0
      Top             =   30
      Width           =   6225
      Begin VB.TextBox TxtReport 
         Height          =   1875
         Left            =   60
         MultiLine       =   -1  'True
         ScrollBars      =   3  'Both
         TabIndex        =   22
         Top             =   180
         Width           =   6105
      End
      Begin VB.Frame Frame2 
         Caption         =   "Progress"
         Height          =   1575
         Left            =   2760
         TabIndex        =   11
         Top             =   2130
         Width           =   3375
         Begin VB.Label LblQuestions 
            Alignment       =   1  'Right Justify
            Caption         =   "0"
            Height          =   255
            Left            =   2190
            TabIndex        =   21
            Top             =   1200
            Width           =   1035
         End
         Begin VB.Label Label8 
            Caption         =   "No. of Questions checked:"
            Height          =   255
            Left            =   90
            TabIndex        =   20
            Top             =   1200
            Width           =   2385
         End
         Begin VB.Label lblStatements 
            Alignment       =   1  'Right Justify
            Caption         =   "0"
            Height          =   255
            Left            =   2190
            TabIndex        =   19
            Top             =   930
            Width           =   1035
         End
         Begin VB.Label Label9 
            Caption         =   "No. of Statements checked:"
            Height          =   285
            Left            =   90
            TabIndex        =   18
            Top             =   960
            Width           =   2385
         End
         Begin VB.Label lblMissingRef 
            Alignment       =   1  'Right Justify
            Caption         =   "0"
            Height          =   255
            Left            =   2190
            TabIndex        =   17
            Top             =   690
            Width           =   1035
         End
         Begin VB.Label Label7 
            Caption         =   "No. of Missing References:"
            Height          =   285
            Left            =   90
            TabIndex        =   16
            Top             =   720
            Width           =   2385
         End
         Begin VB.Label lblmissing 
            Alignment       =   1  'Right Justify
            Caption         =   "0"
            Height          =   255
            Left            =   1740
            TabIndex        =   15
            Top             =   450
            Width           =   1485
         End
         Begin VB.Label Label6 
            Caption         =   "No. of Missing Files:"
            Height          =   285
            Left            =   90
            TabIndex        =   14
            Top             =   480
            Width           =   1815
         End
         Begin VB.Label lblProcess 
            Alignment       =   1  'Right Justify
            Caption         =   "0"
            Height          =   255
            Left            =   1740
            TabIndex        =   13
            Top             =   240
            Width           =   1485
         End
         Begin VB.Label Label5 
            Caption         =   "No. Processed Lines"
            Height          =   285
            Left            =   90
            TabIndex        =   12
            Top             =   240
            Width           =   1815
         End
      End
      Begin VB.CommandButton cmdSave 
         Caption         =   "Save"
         Height          =   315
         Left            =   1740
         TabIndex        =   2
         Top             =   2070
         Width           =   915
      End
      Begin VB.CommandButton cmdStart 
         Caption         =   "Start"
         Height          =   315
         Left            =   60
         TabIndex        =   1
         Top             =   2070
         Width           =   1635
      End
      Begin VB.Label lblErrors 
         Alignment       =   1  'Right Justify
         Caption         =   "0"
         Height          =   255
         Left            =   2130
         TabIndex        =   10
         Top             =   3210
         Width           =   495
      End
      Begin VB.Label Label4 
         Caption         =   "No. of Errors"
         Height          =   285
         Left            =   90
         TabIndex        =   9
         Top             =   3240
         Width           =   1815
      End
      Begin VB.Label lblKeywords 
         Alignment       =   1  'Right Justify
         Caption         =   "0"
         Height          =   255
         Left            =   2130
         TabIndex        =   8
         Top             =   2970
         Width           =   495
      End
      Begin VB.Label Label3 
         Caption         =   "No. of Usable Keywords"
         Height          =   285
         Left            =   90
         TabIndex        =   7
         Top             =   3000
         Width           =   1815
      End
      Begin VB.Label LblBlank 
         Alignment       =   1  'Right Justify
         Caption         =   "0"
         Height          =   255
         Left            =   2130
         TabIndex        =   6
         Top             =   2730
         Width           =   495
      End
      Begin VB.Label Label2 
         Caption         =   "No. of Blank Lines:"
         Height          =   285
         Left            =   90
         TabIndex        =   5
         Top             =   2760
         Width           =   1815
      End
      Begin VB.Label LblComments 
         Alignment       =   1  'Right Justify
         Caption         =   "0"
         Height          =   255
         Left            =   2130
         TabIndex        =   4
         Top             =   2490
         Width           =   495
      End
      Begin VB.Label Label1 
         Caption         =   "No. of Comment Lines:"
         Height          =   285
         Left            =   90
         TabIndex        =   3
         Top             =   2520
         Width           =   1815
      End
   End
End
Attribute VB_Name = "FrmValidKeyword"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public LineCounter As Long
Public sComments As Long
Public sBlanks As Long
Public sWorkingWords As Long
Public sErrors As Long
Public Extra As String
Public sProcessed As Long
Public sMissingFiles As Long
Public sMissingReferences As Long
Public sStatements As Long