筑牢安全防线 构建和谐企业由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“浅谈和谐企业的构建”。
文件头: VERSION 5.00
Begin VB.Form Form1
Caption
=
“Form1”
ClientHeight
=
1725
ClientLeft
=
ClientTop
=
345
ClientWidth
=
2430
DrawMode
= 'Merge Pen Not
DrawStyle
= 'Dot
LinkTopic
=
“Form1”
ScaleHeight
=
1725
ScaleWidth
=
2430
StartUpPosition = '屏幕中心
Begin VB.CommandButton Command2
Caption
=
“选择题”
Height
=
375
Left
=
1440
TabIndex
=
Top
=
1200
Width
=
855
End
Begin VB.CommandButton Command1
Caption
=
“填空题”
Height
=
375
Left
=
240
TabIndex
=
0
Top
=
1200
Width
=
855
End
Begin VB.Label Label1
Caption
=
“考试系统”
BeginProperty Font
Name
=
“宋体”
Size
文件尾:
=
2175
End End
Attribute VB_Name = “Form1”
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'
#####
'#
本例程由.::VB天空::.提供
#
'#
请访问http://www.daodoc.com以得到更多VB资讯
#
'#
作者: 心雨软件工作室
#
'#
主页:http://www.daodoc.com.::VB天空::.#
'#
电子邮件:webmaster@evbsky.com
#
'#
evbsky@sina.com
#
'#
本例程演示了如何创建一个考试系统，包括填空题、选择题。#
'#
稍加修改就能编写一个完整的程序。
#
'#
你可以自由散播本例程，但必须要保留这段版本信息
#
'
#####
Private Sub Command1_Click()
Form2.Show
End Sub
Private Sub Command2_Click()
Form3.Show
End Sub 文件头: VERSION 5.00
Begin VB.Form Form2
BackColor
=
&H00C0C0C0&
Caption
=
“Form2”
ClientHeight
=
2400
ClientLeft
=
ClientTop
=
345
ClientWidth
=
3990
LinkTopic
=
“Form2”
MaxButton
=
0
'False
ScaleHeight
=
2400
ScaleWidth
=
3990
StartUpPosition = '窗口缺省
Begin VB.Frame Frame1
Caption
=
“题目”
Height
=
1215
Left
=
120
TabIndex
=
Top
=
480
Width
=
3735
Begin VB.TextBox Text3
Height
=
375
Left
=
1440
TabIndex
=
Top
=
720
Width
=
2055
End
Begin VB.TextBox Text2
Height
=
375
Left
=
1440
TabIndex
=
Top
=
240
Width
= 文件尾: Data.Fields(1).Value '显示题目
Result = rsData.Fields(2).Value '将答案放入变量
Loop
Exit Sub
errhand: MsgBox “无当前记录！”
End Sub
Private Sub Command4_Click()
End Sub
Private Sub Form_Load()i = 0
Set db = OpenDatabase(App.Path & “test.mdb”)'打开数据库
Set rsData = db.OpenRecordset(“test”)'打开表test
Call IniTheme
End Sub
Sub IniTheme()
On Error Resume Next
rsData.MoveFirst '将数据指针指向数据库首位
Randomize '初始化随机数种子
'产生随机数，可以改进为产生不重复的随机数
a = Int((181 + 1)* Rnd + 1)
Do Until rsData.Fields(0).Value = a '随机抽取试题
rsData.MoveNext
Text1.Text = rsData.Fields(0).Value '显示题号
Text2.Text = rsData.Fields(1).Value '显示题目
Text3.Text = rsData.Fields(2).Value
Text4.Text = rsData.Fields(3).Value
Result = rsData.Fields(4).Value '将答案放入变量
Loop
End Sub
Private Sub Option1_Click()
Result1 = Text3.Text
End Sub
Private Sub Option2_Click()
Result1 = Text4.Text
End Sub 文件头: Type=Exe
Reference=*G{00020430-0000-0000-C000-000000000046}#2.0#0#C:WINDOWSSYSTEMStdOle2.tlb#OLE Automation
Reference=*G{00025E01-0000-0000-C000-000000000046}#5.0#0#C:PROGRAM FILESCOMMON FILESMICROSOFT SHAREDDAODAO360.DLL#Microsoft DAO 3.6 Object Library
Form=Form1.frm Form=Form2.frm
Form=Form3.frm
Startup=“Form1”
Command32=“”
Name=“工程1”
HelpContextID=“0”
CompatibleMode=“0”
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
VersionCompanyName=“cc”
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0 UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1
