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

				VERSION 5.00
				Begin VB.Form Form1 
				   Caption         =   "管理系统"
				   ClientHeight    =   3120
				   ClientLeft      =   2205
				   ClientTop       =   2910
				   ClientWidth     =   7095
				   LinkTopic       =   "Form1"
				   ScaleHeight     =   3120
				   ScaleWidth      =   7095
				   StartUpPosition =   2  '屏幕中心
				   Begin VB.Frame Frame3 
				      Caption         =   "服务器管理："
				      Height          =   2055
				      Left            =   4920
				      TabIndex        =   7
				      Top             =   240
				      Width           =   2055
				      Begin VB.CommandButton Command5 
				         Caption         =   "服务器管理"
				         Height          =   495
				         Left            =   360
				         TabIndex        =   8
				         Top             =   240
				         Width           =   1455
				      End
				   End
				   Begin VB.Frame Frame2 
				      Caption         =   "题目管理："
				      Height          =   2055
				      Left            =   2400
				      TabIndex        =   5
				      Top             =   240
				      Width           =   2295
				      Begin VB.CommandButton Command4 
				         Caption         =   "题库管理"
				         Height          =   495
				         Left            =   360
				         TabIndex        =   6
				         Top             =   240
				         Width           =   1575
				      End
				   End
				   Begin VB.Frame Frame1 
				      Caption         =   "人员管理："
				      Height          =   2055
				      Left            =   120
				      TabIndex        =   1
				      Top             =   240
				      Width           =   2055
				      Begin VB.CommandButton Command7 
				         Caption         =   "考生管理"
				         Height          =   495
				         Left            =   360
				         TabIndex        =   4
				         Top             =   1440
				         Width           =   1455
				      End
				      Begin VB.CommandButton Command1 
				         Caption         =   "教师人员管理"
				         Height          =   495
				         Left            =   360
				         TabIndex        =   3
				         Top             =   840
				         Width           =   1455
				      End
				      Begin VB.CommandButton Command2 
				         Caption         =   "管理人员设定"
				         Height          =   495
				         Left            =   360
				         TabIndex        =   2
				         Top             =   240
				         Width           =   1455
				      End
				   End
				   Begin VB.CommandButton Command6 
				      Caption         =   "退出管理系统"
				      Height          =   495
				      Left            =   5640
				      TabIndex        =   0
				      Top             =   2520
				      Width           =   1335
				   End
				End
				Attribute VB_Name = "Form1"
				Attribute VB_GlobalNameSpace = False
				Attribute VB_Creatable = False
				Attribute VB_PredeclaredId = True
				Attribute VB_Exposed = False
				Option Explicit
				
				Private Sub Command1_Click()
				Load Form4
				Form1.Visible = False
				Form4.Visible = True
				End Sub
				
				Private Sub Command2_Click()
				Form1.Visible = False
				Load Form2
				Form2.Visible = True
				End Sub
				
				Private Sub Command4_Click()
				Form1.Visible = False
				Load Form6
				Form6.Visible = True
				End Sub
				
				Private Sub Command5_Click()
				Load Form7
				Form1.Visible = False
				Form7.Visible = True
				Form7.Command3.SetFocus
				End Sub
				
				Private Sub Command6_Click()
				End
				End Sub
				
				Private Sub Command7_Click()
				Form1.Visible = False
				Load Form5
				Form5.Visible = True
				End Sub
				
				Private Sub Form_Unload(Cancel As Integer)
				End
				End Sub