这是一个用VB编写的在线考试系统

				VERSION 5.00
				Begin VB.Form Form4 
				   Caption         =   "ok"
				   ClientHeight    =   3195
				   ClientLeft      =   60
				   ClientTop       =   345
				   ClientWidth     =   4680
				   LinkTopic       =   "Form4"
				   ScaleHeight     =   3195
				   ScaleWidth      =   4680
				   StartUpPosition =   3  '窗口缺省
				   Begin VB.CommandButton Command1 
				      Caption         =   "退出"
				      Height          =   495
				      Left            =   3120
				      TabIndex        =   1
				      Top             =   2400
				      Width           =   1455
				   End
				   Begin VB.Label Label1 
				      Caption         =   "文件以安装成功！"
				      Height          =   375
				      Left            =   240
				      TabIndex        =   0
				      Top             =   240
				      Width           =   1575
				   End
				End
				Attribute VB_Name = "Form4"
				Attribute VB_GlobalNameSpace = False
				Attribute VB_Creatable = False
				Attribute VB_PredeclaredId = True
				Attribute VB_Exposed = False
				Option Explicit
				
				Private Sub Command1_Click()
				If Not (Command1.Tag = "" Or Command1.Tag = "seek_end" Or Command1.Tag = vbNullString) Then
				Dim prgi As Long
				prgi = Shell(Form1.Text1.Text & "\" & Command1.Tag, vbNormalFocus)
				End If
				End
				End Sub
				
				Private Sub Form_Unload(Cancel As Integer)
				End
				End Sub