www.pudn.com > stu_rag.rar > frmResult.frm, change:2003-04-04,size:10603b


VERSION 5.00 
Begin VB.Form frmResult  
   BorderStyle     =   0  'None 
   ClientHeight    =   5055 
   ClientLeft      =   0 
   ClientTop       =   -210 
   ClientWidth     =   6510 
   LinkTopic       =   "Form1" 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   Moveable        =   0   'False 
   ScaleHeight     =   5055 
   ScaleWidth      =   6510 
   ShowInTaskbar   =   0   'False 
   StartUpPosition =   2  'CenterScreen 
   Begin VB.CommandButton CmdExit  
      Caption         =   "退出" 
      Height          =   495 
      Left            =   5280 
      TabIndex        =   2 
      Top             =   4440 
      Width           =   975 
   End 
   Begin VB.Frame FrameResult  
      Height          =   3375 
      Left            =   120 
      TabIndex        =   1 
      Top             =   960 
      Width           =   6255 
      Begin VB.TextBox txtPercent  
         Appearance      =   0  'Flat 
         BeginProperty Font  
            Name            =   "黑体" 
            Size            =   12 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H000000FF& 
         Height          =   375 
         Left            =   3960 
         TabIndex        =   16 
         Top             =   2520 
         Width           =   1695 
      End 
      Begin VB.TextBox txtTotal  
         Appearance      =   0  'Flat 
         BeginProperty Font  
            Name            =   "黑体" 
            Size            =   12 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H000000FF& 
         Height          =   375 
         Left            =   1320 
         TabIndex        =   14 
         Top             =   2520 
         Width           =   1695 
      End 
      Begin VB.TextBox txtO1  
         Appearance      =   0  'Flat 
         BeginProperty Font  
            Name            =   "黑体" 
            Size            =   12 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H000000FF& 
         Height          =   375 
         Left            =   1320 
         TabIndex        =   12 
         Top             =   1800 
         Width           =   1695 
      End 
      Begin VB.TextBox txtO2  
         Appearance      =   0  'Flat 
         BeginProperty Font  
            Name            =   "黑体" 
            Size            =   12 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H000000FF& 
         Height          =   375 
         Left            =   3960 
         TabIndex        =   11 
         Top             =   1800 
         Width           =   1695 
      End 
      Begin VB.TextBox txtS1  
         Appearance      =   0  'Flat 
         BeginProperty Font  
            Name            =   "黑体" 
            Size            =   12 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H000000FF& 
         Height          =   375 
         Left            =   1320 
         TabIndex        =   7 
         Top             =   720 
         Width           =   1695 
      End 
      Begin VB.TextBox txtS2  
         Appearance      =   0  'Flat 
         BeginProperty Font  
            Name            =   "黑体" 
            Size            =   12 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H000000FF& 
         Height          =   375 
         Left            =   3960 
         TabIndex        =   6 
         Top             =   720 
         Width           =   1695 
      End 
      Begin VB.Label lblPercent  
         Alignment       =   2  'Center 
         Caption         =   "换算" 
         BeginProperty Font  
            Name            =   "黑体" 
            Size            =   15 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   375 
         Left            =   3000 
         TabIndex        =   15 
         Top             =   2520 
         Width           =   975 
      End 
      Begin VB.Label lblTotal  
         Alignment       =   2  'Center 
         Caption         =   "总分" 
         BeginProperty Font  
            Name            =   "黑体" 
            Size            =   15 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   375 
         Left            =   240 
         TabIndex        =   13 
         Top             =   2520 
         Width           =   975 
      End 
      Begin VB.Label lblO2  
         Caption         =   "实得" 
         BeginProperty Font  
            Name            =   "黑体" 
            Size            =   12 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   375 
         Left            =   3240 
         TabIndex        =   10 
         Top             =   1920 
         Width           =   615 
      End 
      Begin VB.Label lblO1  
         Caption         =   "应得" 
         BeginProperty Font  
            Name            =   "黑体" 
            Size            =   12 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   375 
         Left            =   720 
         TabIndex        =   9 
         Top             =   1920 
         Width           =   735 
      End 
      Begin VB.Label lblObj  
         Caption         =   "客观题部分" 
         BeginProperty Font  
            Name            =   "黑体" 
            Size            =   15 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   375 
         Left            =   240 
         TabIndex        =   8 
         Top             =   1320 
         Width           =   1815 
      End 
      Begin VB.Label LlbS2  
         Caption         =   "实得" 
         BeginProperty Font  
            Name            =   "黑体" 
            Size            =   12 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   375 
         Left            =   3240 
         TabIndex        =   5 
         Top             =   840 
         Width           =   615 
      End 
      Begin VB.Label LblS1  
         Caption         =   "应得" 
         BeginProperty Font  
            Name            =   "黑体" 
            Size            =   12 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   375 
         Left            =   720 
         TabIndex        =   4 
         Top             =   840 
         Width           =   735 
      End 
      Begin VB.Label lblSub  
         Caption         =   "主观题部分" 
         BeginProperty Font  
            Name            =   "黑体" 
            Size            =   15 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   375 
         Left            =   240 
         TabIndex        =   3 
         Top             =   240 
         Width           =   1815 
      End 
   End 
   Begin VB.Label LblTitle  
      Alignment       =   2  'Center 
      Caption         =   "本次测试结果" 
      BeginProperty Font  
         Name            =   "方正舒体" 
         Size            =   24 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   615 
      Left            =   240 
      TabIndex        =   0 
      Top             =   240 
      Width           =   5895 
   End 
End 
Attribute VB_Name = "frmResult" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Private Sub CmdExit_Click() 
    Unload Me 
End Sub 
 
Private Sub Form_Load() 
    Dim t As Single, p As Single 
    txtS1.Text = QPaper.OScore 
    txtS2.Text = QPaper.ObjectiveScore 
    txtO1.Text = QPaper.SScore 
    txtO2.Text = QPaper.SubjectiveScore 
    t = CSng(txtS2.Text) + CSng(txtO2.Text) 
    txtTotal.Text = CStr(t) 
    p = CSng(txtS1.Text) + CSng(txtO1.Text) 
    txtPercent = Format(t / p, "##.0%") 
     
End Sub