构建和谐信合,共筑安全防线演讲稿[范文模版]（四）.doc

构建和谐信合,共筑安全防线演讲稿范文模版 文件头：version5.00 beginvb.formform1 caption = “form1” clientheight = 1725 clientleft = 60 clienttop = 345 clientwidth = 2430 drawmode = 15mergepennot drawstyle = 2dot linktopic = “form1” scaleheight = 1725 scalewidth = 2430 startupposition= 2屏幕中心 mandbuttoncommand2 caption = “选择题” height = 375 left = 1440 tabindex = 1 top = 1200 width = 855 end mandbuttoncommand1 caption = “填空题” height = 375 left = 240 tabindex = 0 top = 1200 width = 855 end beginvb.labellabel1 caption = “考试系统” beginpropertyfont name = “宋体” size 文件尾： = 2175 endend attributevb_name=“form1” attributevb_globalnamespace=false attributevb_creatable=false attributevb_predeclaredid=true attributevb_exposed=false # # 本例程由.：vb天空：.提供 # # 请访问http：/以得到更多vb资讯 # # 作者：心雨软件工作室 # # 主页：http：/.：vb天空：. # # 电子邮件：webmaster # # evbsky # # 本例程演示了如何创建一个考试系统，包括填空题、选择题。# # 稍加修改就能编写一个完整的程序。 # # 你可以自由散播本例程，但必须要保留这段版本信息 # # privatesubcommand1_click form2.show endsub privatesubcommand2_click form3.show endsub文件头：version5.00 beginvb.formform2 backcolor = &h00c0c0c0& caption = “form2” clientheight = 2400 clientleft = 60 clienttop = 345 clientwidth = 3990 linktopic = “form2” maxbutton = 0 false scaleheight = 2400 scalewidth = 3990 startupposition= 3窗口缺省 beginvb.frameframe1 caption = “题目” height = 1215 left = 120 tabindex = 8 top = 480 width = 3735 beginvb.textboxtext3 height = 375 left = 1440 tabindex = 10 top = 720 width = 2021 end beginvb.textboxtext2 height = 375 left = 1440 tabindex = 9 top = 240 width =文件尾：data.fields（1）.value显示题目 result=rsdata.fields（2）.value将答案放入变量 loop exitsub errhand。msgbox”无当前记录。” endsub privatesubcommand4_click endsub privatesubform_loadi=0 setdb=opendatabase（app.path&”test.mdb”）打开数据库 setrsdata=db.openrecordset（”test”）打开表test callinitheme endsub subinitheme onerrorresumenext rsdata.movefirst将数据指针指向数据库首位 randomize初始化随机数种子 产生随机数，可以改进为产生不重复的随机数 a=int（181+1）*rnd+1） dountilrsdata.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 endsub privatesuboption1_click result1=text3.text endsub privatesuboption2_click result1=text4.text endsub文件头：type=exe reference=*g00020210-0000-0000-c000-000000000046#2.0#0#c：windowssystemstdole2.tlb#oleautomation reference=*g00025e01-0000-0000-c000-000000000046#5.0#0#c：programfilescommonfilesmicrosoftshareddaodao360.dll#microsoftdao3.6objectlibrary form=form1.frmform=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=“cssc” compilationtype=0 optimizationtype=0 favorpentiumpro（tm）=0 codeviewdebuginfo=0 noaliasing=0 boundscheck=0 overflowcheck=0 flpointcheck=0 fdivcheck=0unroundedfp=0 startmode=0 unattended=0 retained=0 threadperobject=0 maxnumberofthreads=1 第 13 页 共 13 页免责声明：图文来源于网络搜集，版权归原作者所以若侵犯了您的合法权益，请作者与本上传人联系，我们将及时更正删除。