m.frm

一个用VB写的考试系统

VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "国家信息化考试"
   ClientHeight    =   6105
   ClientLeft      =   2895
   ClientTop       =   2595
   ClientWidth     =   9330
   Icon            =   "m.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6105
   ScaleWidth      =   9330
   ShowInTaskbar   =   0   'False
   Begin VB.PictureBox Pic 
      AutoRedraw      =   -1  'True
      BackColor       =   &H8000000E&
      Height          =   5055
      Left            =   120
      ScaleHeight     =   4995
      ScaleWidth      =   9075
      TabIndex        =   8
      Top             =   960
      Width           =   9135
   End
   Begin VB.Frame Frame2 
      Height          =   855
      Left            =   120
      TabIndex        =   6
      Top             =   0
      Width           =   2295
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "考试文件夹C:\CCIS"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   420
         Left            =   360
         TabIndex        =   7
         Top             =   240
         Width           =   1620
         WordWrap        =   -1  'True
      End
   End
   Begin VB.CommandButton Command5 
      Caption         =   "实践题"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   7920
      TabIndex        =   5
      Top             =   240
      Width           =   1215
   End
   Begin VB.CommandButton Command4 
      Caption         =   "简答题"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   6600
      TabIndex        =   4
      Top             =   240
      Width           =   1215
   End
   Begin VB.CommandButton Command3 
      Caption         =   "判断题"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   5280
      TabIndex        =   3
      Top             =   240
      Width           =   1215
   End
   Begin VB.CommandButton Command2 
      Caption         =   "选择题"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   3960
      TabIndex        =   2
      Top             =   240
      Width           =   1215
   End
   Begin VB.CommandButton Command1 
      Caption         =   "填空题"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   2640
      TabIndex        =   1
      Top             =   240
      Width           =   1215
   End
   Begin VB.Frame Frame1 
      Height          =   855
      Left            =   2520
      TabIndex        =   0
      Top             =   0
      Width           =   6735
   End
   Begin VB.Menu ksxm 
      Caption         =   "考试项目(&I)"
      Begin VB.Menu tk 
         Caption         =   "填空题(15')"
      End
      Begin VB.Menu xz 
         Caption         =   "选择题(20')"
      End
      Begin VB.Menu pd 
         Caption         =   "判断题(20')"
      End
      Begin VB.Menu jd 
         Caption         =   "简答题(30')"
      End
      Begin VB.Menu sj 
         Caption         =   "实践题(15')"
      End
   End
   Begin VB.Menu Help 
      Caption         =   "帮助(&H)"
      Begin VB.Menu About 
         Caption         =   "关于国家信息化考试"
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub About_Click()
MsgBox "国家考试 - 盐城考核基地" + vbCrLf + "陈正同" + vbCrLf + "19.May,2003", 64, "国家考试"
End Sub

Private Sub Command1_Click()
Pic.Cls
Pic.ForeColor = vbBlack
Pic.FontSize = 12
Pic.Print "    填空题(15分,每空0.5分)"
Pic.Print "请在考试项目菜单中选取“填空题”菜单项，按指定的要求请行答题!"

End Sub

Private Sub Command2_Click()
Pic.Cls
Pic.ForeColor = vbBlack
Pic.FontSize = 12
Pic.Print "    选择题(20分,每小题2分)"
Pic.Print "请在考试项目菜单中选取“选择题”菜单项，按指定的要求请行答题!"
End Sub

Private Sub Command3_Click()
Pic.Cls
Pic.ForeColor = vbBlack
Pic.FontSize = 12
Pic.Print "    判断题(20分,每空2分)"
Pic.Print "请在考试项目菜单中选取“填空题”菜单项，按指定的要求请行答题!"
End Sub

Private Sub Command4_Click()
Pic.Cls
Pic.ForeColor = vbBlack
Pic.FontSize = 12
Pic.Print "    简答题(30分,每空3分)"
Pic.Print "1．鼠标的常用操作有哪些？"
Pic.Print "2．简述"; 回收站; "的作用？"
Pic.Print "3．对于一般的Windows系统而言，启动Word应用程序主要有哪几种方法？（请说2种"
Pic.Print "4．制作一个标题应注意哪几个方面？"
Pic.Print "5．Word 97的段落对齐方式有哪5种？"
Pic.Print "6．如何将文本框转换为图文框？"
Pic.Print "7．如何移动、复制和删除文本框？"
Pic.Print "8．改变数学公式大小必须要装什么？"
Pic.Print "9．脚注与题注的作用分别是什么？"
Pic.Print "10．Windows 98/ME系统能够管理的应用程序主要有哪3类？"

End Sub

Private Sub Command5_Click()
Pic.Cls
Pic.ForeColor = vbBlack
Pic.FontSize = 12
Pic.Print "    实践题(15分,每空5分)"
Pic.Print "请在考试项目菜单中选取“填空题”菜单项，按指定的要求请行答题!"
End Sub

Private Sub Form_Load()
Pic.Cls
Pic.ForeColor = vbBlack
Pic.FontSize = 12
Pic.Print "    填空题(15分,每空0.5分)"
Pic.Print "请在考试项目菜单中选取“填空题”菜单项，按指定的要求请行答题!"
End Sub

Private Sub jd_Click()
Shell "C:\Documents and Settings\All Users\「开始」菜单\程序\Microsoft Word", 1
SendKeys "Jian Da Ti!"
End Sub

Private Sub sj_Click()
Shell "C:\Program Files\Microsoft Office\Office\WINWORD.EXE", 1
SendKeys "Shi Jian Ti!"
End Sub

Private Sub xz_Click()
Form4.Show
End Sub