frmwiat.frm

在线试题库,用ASP写的程序

VERSION 5.00
Begin VB.Form frmWiat 
   BackColor       =   &H00000000&
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   9000
   ClientLeft      =   0
   ClientTop       =   225
   ClientWidth     =   12000
   LinkTopic       =   "Form1"
   ScaleHeight     =   9000
   ScaleWidth      =   12000
   ShowInTaskbar   =   0   'False
   WindowState     =   2  'Maximized
   Begin VB.Timer Timer1 
      Interval        =   2000
      Left            =   5520
      Top             =   5880
   End
   Begin VB.Image Image1 
      Height          =   1695
      Left            =   4230
      Picture         =   "frmWiat.frx":0000
      Top             =   3285
      Width           =   3405
   End
   Begin VB.Label lblTitle 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "正在评分请耐心等待......"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   285
      Left            =   3000
      TabIndex        =   1
      Top             =   6930
      Width           =   3840
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "全国计算机等级考试"
      BeginProperty Font 
         Name            =   "华文行楷"
         Size            =   36
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   765
      Left            =   2475
      TabIndex        =   0
      Top             =   1260
      Width           =   6630
   End
End
Attribute VB_Name = "frmWiat"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit



Private Sub Timer1_Timer()
Dim i As Integer
lblTitle.Caption = "      评分结束!!"
For i = 1 To 3000

Next i
frmPF.Show
Unload Me

End Sub