问卷调查系统的设计与实现

郑州师范学院毕业论文（设计）题目问卷调查系统的设计与实现谢传海学 号院系—信息科学与技术学院一专 业 计算机可与与技术年级班级

指导教师2012级2班~~吕廷勤2016年5月20日毕业论文（设计）作者声明本人郑重声明：所呈交的毕业论文是本人在导师的指导下独立进行研究所取得的研究成果。除了文中特别加以标注引用的内容外，本论文不包含任何其他个人或集体已经发表或撰写的成果作品。本人完全了解有关保障、使用毕业论文的规定，同意学校保留并向有关毕业论文管理机构送交论文的复印件和电子版。同意省级优秀毕业论文评选机构将本毕业论文通过影印、缩印、扫描等方式进行保存、摘编或汇编；同意本论文被编入有关数据库进行检索和查阅。本毕业论文内容不涉及国家机密。论文题目：问卷调查自系统的设计与实现作者单位：郑州师范学院信息科学与技术学院2012级2班作者签名：问卷调查系统的设计与实现摘要社会的进步与发展带来了庞大的信息，如何收集信息变成了重中之重。传统的做法是向社会发放一些调查表，但是这样不仅任务繁重，信息收集起来也相当的费力与繁琐且收集周期长，浪费人力物力。为了提高信息的收集效率，缩短信息收集周期，我们设计了这个基于Word的问卷调查方法。本文使用Office2010自带功能：Word中的ActiveX控件和Excel函数功能。以学校中常见的教师授课调查为例，利用Word控件设计调查问卷，再用Excel设计统计表格，利用其函数功能对数据进行统计，二者之间所用VBA代码关联。关键词：Word；Excel；VBA；自动统计DesignandimplementationofthequestionnairesurveysystemAbstractSocialprogressanddevelopmenthasbroughtahugeinformation,howtocollecttheinformationintoatoppriority.Thetraditionalapproachisreleasesomequestionnairestothecommunity,butthisisnotonlyaheavytask,theinformationcollectedisquitelaboriousandtediousandlongcollectioncycle,awasteofhumanandmaterialresources.Inordertoimprovethecollectionefficiencyofinformationandshortentheinformationgatheringperiod,wehavedesignedthissurveysystembasedonWord.ThisarticleusesOffice2010tobringthefunction:InWordActiveXcontrolsandtheExcelfunctionfunction.Thecommonteacherteachestheinvestigationtaketheschoolinasanexample,controlsthedesignquestionnaireusingWord,againusesExceltodesignthestatisticalform,usesitsfunctionfunctiontocarryonthestatisticstothedata,betweenthetwousestheVBAcodetobeconnected.KeyWords:Word；Excel；VBA；Automaticstatistics目录TOC\o"1-5"\h\z\o"CurrentDocument"摘要 IIAbstract. III\o"CurrentDocument"引言 11.1问卷调查的意义 11.2问卷调查的现状 11.3目前问卷调查的不足 21.4问题解决思路 2\o"CurrentDocument"理论支持 3Word控件 3Excel函数 3VBA 3\o"CurrentDocument"设计与实现 53.1设计思路 53.2设计实现 5\o"CurrentDocument"3.2.1制作问卷页面 53.2.2创建Excel统计表格 83.2.3编写VBA代码 93.2.4说明 17\o"CurrentDocument"存在的问题 18\o"CurrentDocument"总结与展望 195.1总结 195.2展望 19\o"CurrentDocument"参考文献 21\o"CurrentDocument"致谢 22引言1.1问卷调查的意义问卷调查是研究者了解事实现况的一种研究方式，目的是收集一个目标群体的各项属性的资料，可以分成描述性研究及分析性研究两大类。在决定是不是使用问卷调查法作为研究工具，应该考虑是否可以达成研究目标以及注意研究目标对于问卷调查的配合度，另外，问卷调查也有它的优点和缺点，根据其特性配合研究主题，才可以完成目标。研究者把需要研究的项目，转化成相应的问题，再以问卷的方式，请相关的人照问卷格式填写的一种形式［1］问卷调查，能使研究者直接由被调查对象获得资料，以测量被调查对象个人的看法，个人的价值观和个人的态度，也可以用问卷调查法去调查事实和经验。1.2问卷调查的现状现在是信息时代，社会上充斥着各种各样的信息，各行各业的发展进步都需要及时的掌握对自身发展有用的信息。问卷调查就成为了人们及时了解所需信息的重要手段。政府需要通过问卷调查来掌握社会动态，制定施政方针；企业需要通过问卷调查来了解市场需求与消费者的心理来制定企业的发展方向和发展计划；老师需要通过问卷调查来了解学生实时的学习进度和知识点的掌握程度来制定下一步的教学计划。由此可见，问卷调查在现今社会中拥有非常重要的作用，而问卷调查的数据结果的统计是问卷调查过程中最重要的一步。问卷调查，因为所使用的载体不一样，可以分成纸质问卷调查与网络问卷调查两种。纸质问卷调查就是传统的问卷调查，调查者使用人工来发纸质问卷，再将填写完成的问卷回收。这样的问卷调查方式存在一些缺点，结果的统计与分析非常麻烦，成本比较高。网络问卷调查，就是调查者通过一些在线问卷调查网站，这些网站能够提供设计问卷，问卷发放，结果分析等服务。这种问卷调查方式的优点是没有地域限制，成本低廉，缺点是问卷的质量没有保证，可能出现乱填的现象使调查出现错误。目前国外的问卷调查网站有surveymonkey，该网站提供了这种方式，而在国内有问卷星、调查派等网站提供这种方法。1.3目前问卷调查的不足现在最常用的问卷调查有两种方式：纸质问卷调查和专业问卷制作网站。纸质问卷是应用范围最广的问卷调查方式，虽然在问卷是比较方便，调查对象也没限制，各个年龄段、行业的人都可以成为纸质问卷的调查对象，但是纸质问卷的成本太高，在回收问卷、对结果进行统计的时候比较麻烦。当调查对象太多的时候，需要花费大量的人力来对结果进行统计。所以，这种问卷调查方式无法适用于大范围的调查。专业问卷制作网站是最新兴起的一种问卷调查方式，虽然这种方式的问卷调查可以自动统计分析调查结果，但是，这种问卷调查方式的对象有一定的局限性，只适用于那些可以懂得计算机并可以及时上网的对象，而且问卷的质量也无法保证。1.4问题解决思路大家知道Office办公软件中Word可以制作问卷文档，Word中的控件可以把普通文档转化成带选项，可传送数据的文档。Excel中有各种各样的函数，相应函数让Excel表格具有自动统计的功能，解决问卷调查结果统计繁琐的问题。VBA代码可以拓展Office办公软件的功能，将Word问卷文档与Excel统计表格联系起来，将Word问卷文档中的数据传输到Excel统计表格中。所以，直接利用Office办公软件自身的功能就可以解决目前问卷调查的不足。理论支持为了实现利用Office办公软件自身功能实现自动统计数据结果的功能，在研究过程中应用了Word控件、Excel函数、VBA。Word控件word控件主要是在VBA窗体中使用，每一个控件都是一个单独的模块，具的体功能通过编写VB代码以及对属性的设置来实现。有些控件也可以在word文档中使用［2］。word控件其实是VBA的可视化界面，要求了解掌握一定的VBA知识，才可以很好的使用Word控件工具箱。通过控件工具中选项按钮控件、复选框控件、文本框控件等可以制作单选题、多选题、填空题，因此，可以用Word制作调查问卷。Excel函数Excel是Office办公软件中十分重要的一款软件°Excel中提到的函数其实是一些预定义的公式，Excel函数通过一些被称为参数的特定数值按照一定的顺序进行计算。Excel函数一共有11类，分别是数据库函数、日期与时间函数、工程函数、财务函数、信息函数、逻辑函数、查询和引用函数、数学和三角函数、统计函数、文本函数以及用户自定义函数。Excel处理数据的功能在现在的文字处理软件中能说是首屈一指的，没有哪一款软件可以与之匹敌。函数是Excel对数据进行处理的最重要手段之一，功能非常强大，在学习与工作中有多种应用方法，甚至您能用Excel来设计完成复杂的统计管理表格或者小型的数据库系统。VBAVisualBasicforApplications(VBA)是VisualBasic的一种宏语言，是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言［3］。主要是用来对Windows的应用功能进行扩展，特别是Office办公软件。也可以把它当成一种应用程序视觉化的Basic脚本。这个语言是1993年微软公司开发出来的应用程序共享的通用的自动化语言--VisualBasicForApplication(VBA)。常用的办公软件Office中的Word和Excel都可以用VBA来使这些软件的应用效率更高。人们通常只是用Word来编排文档，实际上我们可以用VBA让Word具备更加强大的功能，如:给文档中添加上菜单和命令以及让文档实现控制功能。设计与实现3.1设计思路问卷调查分为调查和统计分析两部分，所以我的设计思路是：首先，确定需要调查的问题、问题的形式等用word编排好问卷样式，再利用word中的控件完成问卷页面的制作。使用Excel软件制作一个表格，按照问卷中的问题对表格中的每一列属性进行设置，再添加相应的函数使表格具备自动统计功能。在问卷页面中的命令按钮控件的代码编辑器，在其中编写将问卷页面与统计表格相关联的VBA代码。3.2设计实现3.2.1制作问卷页面第一步：打开Word2010，新建一份空白文档。第二步：单击“文件”按钮，选择“选项”命令，在打开的对话框中单击“自定义功能区”，然后在右侧勾选“开发工具”复选框，调出开发工具工具栏。如图所示：_R)Bn>IVdcriMcnWord图调出开发工具

_R)Bn>IVdcriMcnWord图调出开发工具第三步：在空白文档中将问卷的问题与选项的文字与格式编排好，然后单击“开发工具”，在“控件”一栏中的旧式工具中选择问卷文档需要用到的文本框、选项按钮、命令按钮等控件。单击“设计模式”，在“设计模式”下对控件属性进行设置。如图所示:玄帽■rrlWi：J^afiIHnL瞄占IBa原A・i・W4CH■■E—rEF IJwia)“.rfi-—%・玄帽■rrlWi：J^afiIHnL瞄占IBa原A・i・W4CH■■E—rEF IJwia)“.rfi-—%・■■.£*■<■!lurE Harna.1I*11：mr-ifbeIcdr~urI£iuj7]id-:UEtf-b£ir-rsjilAldip.rnpLW*biFilasr；JiLF.r*Mr虫/ "=* "-"1hflE'rtMtf]E DjU«nJ!iU£i4LM. ■1jvfj*•••f|鸠：IT-\ 'B'g至gKML电佥■aitmFRtIMI更1盅ztEU£匚•Micrc-iDreWard¥iritwb・i：l>C・nrEmn— 事用i tk^三理«P5!RHZHh*ahYi,・ *■，.All(£■■■?•: 1—XQJtnOuixirrrrrE*“lryl・ ：1-bE-hdl-SATtsm■Ftt■UCOJCOK*有位卷加是否技时上课彳1Te

心厂匚•偶尔不准St供认为说位老叮的上课诣M怎女样了•非常笨乱II口*图设置属性注：在设置控件属性时涉及的属性有“名称”，选择题中，每一个选项控件的属性中的“GroupName”属性必须设置成一样的而且每两道选择题的“GroupName”属性不能一样，否则会出现错误，统计结果的时候会弄混淆。第四步：属性设置完毕后，Word问卷文档就制作成功了。问卷页面如图、图和图所示：

教师授课情况调查表客位寻手I在（5字蓉霓中I自们即普嵯手芸言用建，字世岌在堂，固为愕n教师授课情况调查表客位寻手I在（5字蓉霓中I自们即普嵯手芸言用建，字世岌在堂，固为愕n侣西兰空李与了裳手茸*电e牌：里了筑苣芋日傍无I技们设计了立旨.漱肮空景帝&伯否最％:&逢主任对友茎钓克金垣任H枣山基岩上，花信由号罟参观自三的,沌河,如.■»「军垃钾怙苞革]®il]kK^t^.也是河目已化£8,田肯弥的,于布里叟，£电团二散!亍再定就芋’宜祥昼重的壬正老^是序fll-岩，1、遗位翻币是否拉时上谡t-.扯.『Bf•部I「。*顼江E经常不淮叶，，i；】.，七勺乂气止粕％.：=?『.:.由意PI-,且有由杀打*?+=:.:.:r:非恭乱:.遮■起祐谭堂上的讲注情就也掉?fr-姗一边注■同宇的屈怙只注惹部分宇生『I.：?'[•_!.=.•.•.王三亨三j；-..-^IZ^n;：=r:in■：：■ET*虱!范认百■E♦理有，喧字迹不甬f:很阻便剧■与r[-..十E5、 送恒恿币上皆时的律堂纪律底幺林Y/、点♦E；；/二『:-/.：-『[拦丞位新币上一后,布苣的课夕匪II■里怎也掉?『"'3r：,T--I任七ri■■■-'Si-i■•遮■起币折近的作业it改情用n附uISWS.湖帏r有布置IIK御-，业t罚兰助，W.「DuISWS.湖帏r有布置IIK御-，业t罚兰助，W.「D有布孟从就由我你撷盹始中使用学寐㈱学篝峥f'•'.后m云"隹用徂当（'■'■7-B不娴」•云甘二漓•:i涉关卒？-：.碰<Bt-?f-C部分不情■】T'.-'E心无隅常占用自习濯柬者彩卜时曲行孙期?-:.，，急-气:•专-I'股】1甜课后滑她襄行学生的辅黝普建羽-.'.?声,「：F二.而％岸了可惬在"右岸牛.井三牛方面酬膨样?「.：一脂'二*：郭「.-Hir:转差的制祐踞学生M为即*;...，=藉「"W"「.：列性盗旎祐爰有翱或脚邮学生的膻?S：专*?E「：壬#「[前::■询立赫是否有上理制手聃强象?sW*■不1「二罕16■■询旎稷否有有置教行为?f■:吉图问卷页面■B很少有LC一直有你认为老师上课的衣昔打扮是否得体？-A得体lB基本得体LC不太得体这位走师授课以来，你的学习成携怎么样？-A明显进步lB有些进步尸C没进步LD有退步场、你对这位教师M德、能、勤、绩四方面做一个评价？LA优秀LB良好-c合格LD不合格对、你时这位救师救学有何意见或建设：图问卷页面3.2.2创建Excel统计表格第一步：打开Excel2010，新建一个Excel文件。第二步：建立此格式存储表格，每道题一行，每个学号一列。如图所示：

1费hlbr^nltEdkH竺■珏1g.饥E-ffiffiB£-ywxEZJ!T田和■U「晶.A-C■=.祖 =白祉防yn■力式 Q乐•唯，胡•顼s■普圜侑急g纹伽箕赛M卑尚fl岸此.克版.■«j命， !AlAEciiFGH1JEL1X0pL123司507s9:LUILn1324g546反&89810g1L101011131214IS15Li16151716181920L9盘12?2223图统计表格3.2.3编写VBA代码在“开发工具”中单击“设计模式”下，然后双击“提交”命令按钮，调出“VisualBasic”编辑器,或者用鼠标右键单击“提交”按钮，在弹出的菜单里,单击“查看代码”进入编辑器，然后就可以在代码编辑窗口下输入代码［4。编辑代码如下图图和图所示：的MfcrGMft用商町况就-期S|既|•亦汕001洒皿血或|:血宜仁工HiitD或四堑ItA'JlfflSEU旅些运EE1*11次作明宓矽幽暗肋UH-PrqrclIt'LYi.ta5山6f・UiMuLUdJT]J土l]■[■iriiTE*lchi*tAetlhjg心.LeLnt+^H*曰新rcimii'lS：A-liieTDiDftIcrljjlSi蜀]曰新rcimii'lS：A-liieTDiDftIcrljjlSi蜀]TlaxD^cwuhSatilX-rr»at«dL-Ja<tT^xhL上ppLirxHai/1')&Lrisible-FdseSit.n-JLVwklwli.Ctm-：-Z： 'lfcxLTl，■■匕iTE^lEhiri-t=JLst3v»£Li-itwt41duMC.JiniLinH*xlTisiblh：-J-J.14Tarl-iT.30ttic-ilsJLtttIklU?ad«nCdLs'H+h1)■iKiek用=f好Ifiijd.WapMC-IC-llllvit.JlFfiJ-jEht3-7JLC^ILb'J,.1.+])■■hIt«bl.Vdi*=Tn*Thmwwldwrtt|»Li祯MLJ：£.4+ -IluirDP*Vilu.■T:ru.TUl探电LsltttijtLisidftnCelLs'lL占•■1). -'B'lli«£l河旧Aibu-TjuiIhuMcnL-tlMtIppLichtn-n.1*1顷3,a+1)=f£L»HcnL-dMtiuLientaai.C»1Lt<：^■卜1〉.甲」”■VEodHXEapLE.■Tn»Th.nJiwljO1M：%4+1).VdiJ!：=Wflull ViL'xi■TxuiIlfUmczLtIiE>«iLichta-n. a,+1,El的[f呼kTlUm=TiaiTkn■MnL-dMkiMlLiEkt^lC>1Lt>；X■卜I)WT”-fEIk .UnLllvit.IppLlEht3-7JLtllLl'嵩I.+】}.Ytl-U.■S'EndIfIf0|ib9.¥dix：■ItutTtiiDHCHL-dMtinUrntaai.C»1Lt>^.卜1〉.E”■官Els^IE(tHQ.bJ.tw-Te“ftiiriHcnL-di-iti|?pLiChta-aa.匚》1Lf；虹a.+]).Ydii-,HstlfEHLValu=TneThj;nunlalvit.JLmlLichta-MLCJLi'il.ai.+]).Vtlu.■L律福LwkM./机]祯H皿GMLj如五十]).Vdi*三VThJHIfo>bL3.TiLw-TyutTitoUHlnlut.JLmlLekta^L ■.+]).Vd-u.-ElmH砒1土Vd*=TntTh^n俄吨LiLiSir.iRiLinHcjl匚HLr面j bT1mITc^ib15. ■Tr”Thar.wijQlslwthtdJ祯H«n「MLj：&4+3).^dijai-EeHwlsJjttfc虹tUEtSftLCdlW：5L占•1).^dis-WfnJIITf«Ll7Tkl-M=TtimT1mI图编写代码的MicruwflVisualBasicforAppliesliens-问卷I设计】-UThi-sDocurnenl[ft5iyj:由交辑(El^3i£>赠比SAID瞄Q诋就<0运行®工=CD工皂-ProjectHIo-x-hkI口•融Proj*ol(ft®)SFilscroicEt:VdtJ.时柬S']TlisDQcuAULts-Q引用ElsetKotlshAftt-.KpjlimwHciclCells〔15』EiJIfIf呷财Vijlut=Tt-iic«xcalxh»»tXpj-11ci.ti^Ixalfc-plEE-V■■axcalxlii-a-t ci.titlxalf呼IfiEVbIu«"TfubTlianU041dl<:£:L.AppLlCktl^DLC«ll£f]&.UOildlt&t.XpplL>2-Lti>JDLCollsf]S.LadH__IfoDbffiVsl-Qg--TriiiTh^ntTotlsh^etApjlimticiclCells(1Elstlf蜂破ViJ.114=TrntThseraelskeftt.KhIi^itiacLCells(1Else■ixEBlxhi-»tXpj-1!■:■!ian,CalixI.]EnJl£l£aplfi]Vil-ai-■TrsThan«XEBlxlii-»tXpj-11■:■!ian,Calixl.】8「Els«Ifopl4Z.VaIuv-Iru.4Th忡.UQ«ldL«&t.KpplLdtijDLC«lls£1=4 .uo«ldu：£t.KPpLic-iti'jDLC^llsf]S.EndIfIfopb^Vftluft=Tf警Hh®tTotlskett.Kjt-1 Cells〔1&Elstlf婵成Vjin=fnieThtntrotlsL 一Elxal£七-axcBlxlii-a-k:tlxa-flxcB*lxlii-»tXpjJ.ivi.tLaa,匚bTIhI.]9..ELnAj£If"p姣.mug~ltU4Ih皿uQ^ldu：此顷MeMimC^llsf3u..Elwilfopl^S1.Vilua三Iru.4Th«n4K041whj*自tAJ>J>1i.fl<ii.tici[LCill5〔20』Elstlf<jpb70Yulin=TrntThseraelskeftt.Kj^-li^itiacLCellsElse.Kpj-li<；4ti-3rLCells[31EndIt■ixcalxlii-»tXpj-11■:扁dCalix(ZL.«-ixcal.xlii-»tXpj-11■:i.ki-an.QuatSatbxc»1"if-atkinz3皿”W;中虹港its*SI?P7#-tft■i?：i?：：'i'l"：■LadSub:i.iaa,Calix(3S,■Tfublaa,Cb.L).VillAA*七L).VilLW-5L)Vtlu■-"CL).Vd.LL4-■fi).yjLw-侦LtftiwtimCells[说呼l££Vkl*x«■TfubThani»»tApjli■:i.klaa,Calix(39^L)Ulis-"uL).yd.l)7ilu«"■TliaxDDc-w»ntT-ixkBg}£.ViJub一曰图编写代码具体代码如下：PrivateSubCommandButton1_Click()DimexcelsheetAsObject,aAsInteger'StartExcelandgetApplicationobject.SetoXL=CreateObject("Excel.Application")oXL.Visible=FalseSetoWB=oXL.Workbooks.Open("E:、学习、论文\a.xls")Setexcelsheet=oWB.ActiveSheetexcelsheet.Application.Visible=FalseFori=1To20excelsheet.Application.Cells(i+1,1)=iNexta=TextBox1.Valueexcelsheet.Application.Cells(1,a+1)=aIfopb1.Value=TrueThenexcelsheet.Application.Cells(2,a+1).Value="AElseIfopb2.Value=TrueThenexcelsheet.Application.Cells(2,a+1).Value="BElseIfopb3.Value=TrueThenexcelsheet.Application.Cells(2,a+1).Value="CElseexcelsheet.Application.Cells(2,a+1).Value="DEndIfIfopb5.Value=TrueThenexcelsheet.Application.Cells(3,a+1).Value="AElseIfopb6.Value=TrueThenexcelsheet.Application.Cells(3,a+1).Value="BElseIfopb7.Value=TrueThenexcelsheet.Application.Cells(3,a+1).Value="CElseexcelsheet.Application.Cells(3,a+1).Value="DEndIfIfopb9.Value=TrueThenexcelsheet.Application.Cells(4,a+1).Value="AElseIfopb10.Value=TrueThenexcelsheet.Application.Cells(4,a+1).Value="BElseIfopb11.Value=TrueThenexcelsheet.Application.Cells(4,a+1).Value="CElseexcelsheet.Application.Cells(4,a+1).Value="DEndIfIfopb13.Value=TrueThenexcelsheet.Application.Cells(5,a+1).Value="AElseIfopb14.Value=TrueThenexcelsheet.Application.Cells(5,a+1).Value="BElseIfopb15.Value=TrueThenexcelsheet.Application.Cells(5,a+1).Value="CElseexcelsheet.Application.Cells(5,a+1).Value="DEndIfIfopb17.Value=TrueThenexcelsheet.Application.Cells(6,a+1).Value="AElseIfopb18.Value=TrueThenexcelsheet.Application.Cells(6,a+1).Value="BElseIfopb19.Value=TrueThenexcelsheet.Application.Cells(6,a+1).Value="CElseexcelsheet.Application.Cells(6,a+1).Value="DEndIfIfopb21.Value=TrueThenexcelsheet.Application.Cells(7,a+1).Value="AElselfopb22.Value=TrueThenexcelsheet.Application.Cells(7,a+1).Value="BElseIfopb23.Value=TrueThenexcelsheet.Application.Cells(7,a+1).Value="CElseexcelsheet.Application.Cells(7,a+1).Value="DEndIfIfopb25.Value=TrueThenexcelsheet.Application.Cells(8,a+1).Value="AElseIfopb26.Value=TrueThenexcelsheet.Application.Cells(8,a+1).Value="BElseIfopb27.Value=TrueThenexcelsheet.Application.Cells(8,a+1).Value="CElseexcelsheet.Application.Cells(8,a+1).Value="DEndIfIfopb29.Value=TrueThenexcelsheet.Application.Cells(9,a+1).Value="AElseIfopb30.Value=TrueThenexcelsheet.Application.Cells(9,a+1).Value="BElseIfopb31.Value=TrueThenexcelsheet.Application.Cells(9,a+1).Value="CElseexcelsheet.Application.Cells(9,a+1).Value="DEndIfIfopb33.Value=TrueThenexcelsheet.Application.Cells(10,a+1).Value="AElselfopb34.Value=TrueThenexcelsheet.Application.Cells(10,a+1).Value="BElseIfopb35.Value=TrueThenexcelsheet.Application.Cells(10,a+1).Value="CElseexcelsheet.Application.Cells(10,a+1).Value="DEndIfIfopb37.Value=TrueThenexcelsheet.Application.Cells(11,a+1).Value="AElseIfopb38.Value=TrueThenexcelsheet.Application.Cells(11,a+1).Value="BElseexcelsheet.Application.Cells(11,a+1).Value="CEndIfIfopb40.Value=TrueThenexcelsheet.Application.Cells(12,a+1).Value="AElseIfopb41.Value=TrueThenexcelsheet.Application.Cells(12,a+1).Value="BElseexcelsheet.Application.Cells(12,a+1).Value="CEndIfIfopb43.Value=TrueThenexcelsheet.Application.Cells(13,a+1).Value="AElseIfopb44.Value=TrueThenexcelsheet.Application.Cells(13,a+1).Value="BElseIfopb45.Value=TrueThenexcelsheet.Application.Cells(13,a+1).Value="CElseexcelsheet.Application.Cells(13,a+1).Value="DEndIfIfopb47.Value=TrueThenexcelsheet.Application.Cells(14,a+1).Value="AElseIfopb48.Value=TrueThenexcelsheet.Application.Cells(14,a+1).Value="BElseexcelsheet.Application.Cells(14,a+1).Value="CEndIfIfopb50.Value=TrueThenexcelsheet.Application.Cells(15,a+1).Value="AElseIfopb51.Value=TrueThenexcelsheet.Application.Cells(15,a+1).Value="BElseIfopb52.Value=TrueThenexcelsheet.Application.Cells(15,a+1).Value="CElseexcelsheet.Application.Cells(15,a+1).Value="DEndIfIfopb54.Value=TrueThenexcelsheet.Application.Cells(16,a+1).Value="AElseIfopb55.Value=TrueThenexcelsheet.Application.Cells(16,a+1).Value="BElseIfopb56.Value=TrueThenexcelsheet.Application.Cells(16,a+1).Value="CElseexcelsheet.Application.Cells(16,a+1).Value="DEndIfIfopb58.Value=TrueThenexcelsheet.Application.Cells(17,a+1).Value="AElselfopb59.Value=TrueThenexcelsheet.Application.Cells(17,a+1).Value="BElseexcelsheet.Application.Cells(17,a+1).Value="CEndIfIfopb61.Value=TrueThenexcelsheet.Application.Cells(18,a+1).Value="AElseIfopb62.Value=TrueThenexcelsheet.Application.Cells(18,a+1).Value="BElseexcelsheet.Application.Cells(18,a+1).Value="CEndIfIfopb64.Value=TrueThenexcelsheet.Application.Cells(19,a+1).Value="AElseIfopb65.Value=TrueThenexcelsheet.Application.Cells(19,a+1).Value="BElseIfopb66.Value=TrueThenexcelsheet.Application.Cells(19,a+1).Value="CElseexcelsheet.Application.Cells(19,a+1).Value="DEndIfIfopb68.Value=TrueThenexcelsheet.Application.Cells(20,a+1).Value="AElseIfopb69.Value=TrueThenexcelsheet.Application.Cells(20,a+1).Value="BElseIfopb70.Value=TrueThenexcelsheet.Application.Cells(20,a+1).Value="CElseexcelsheet.Application.Cells(20,a+1).Value="DEndIfexcelsheet.Application.Cells（21,a+1）.Value=ThisDocument.TextBox2.Valueexcelsheet.Application.QuitSetexcelsheet=NothingMsgBox（〃已成功将本问卷结果传递到电子表格中！，谢谢合作！〃）EndSub3.2.4说明本代码的设计思想：让填写问卷的学生先把自己的学号输入，根据每个学生的学号不同，将其填写的问卷结果提交到Excel统计表格相对应的列。因为想要让被调查的学生的答案全部提交在一个Excel表格中，方便统计，但是一个Excel表格文件无法在多台机器上同时打开，所以，参与问卷调查的学生做完后先保存在学生机上，然后通过FTP上传到教师机的服务器上，再一个问卷一个问卷的进行提交，当点击“提交”按钮后，会出现一个提示提交成功的消息，然后单击“确定”按钮。这样就可以保证把所有的问卷结果都保存到了同一个Excel表格中。在点击“提交”之前，必须在程序指定的位置建立相对应的表格。存在的问题本次设计是以我自己上课的经历为例进行的，授课教师对我们学生的学习情况的摸底问卷调查，学生在学生机上填写完问卷后通过FTP发送到教师机上，再由教师一份份点击提交，才可以把所有学生的问卷结果保存到一张表格中。教师机与学生机在同一局域网内，因此可以用这种方法来进行授课情况的调查。但是这种问卷调查方式存在一定的问题：调查者与被调查对象需要在同一个网络中，而且被调查对象需要把填写好的问卷发送给调查者。收到被调查对象填写完成的问卷后需要一份一份提交，工作量大，容易出现遗漏。在点击“提交”前，必须在指定的位置建立对应的文件，在这个程序中,必须在教师机上新建一个Excel表格，用来保存被调查学生提交的问卷答案。总结与展望5.1总结21世纪，我国正慢慢走入信息时代，各行各业的发展与规划越来越依赖对信息的统计与分析。目前，在统计与分析信息的过程中，问卷调查是非常重要的一种方式。因此在充斥着各种信息的今天，设计一种方便快捷的问卷方式是非常有意义的。而问卷调查最重要的是对问卷结果的统计与分析，所以不得不考虑对问卷结果的统计问题，否则问卷就变的毫无意义。针对问卷结果自动统计