问卷调查系统的设计与实现----谢传海.doc

郑州师范学院本科毕业论文（设计）郑州师范学院毕业论文（设计）题 目 问卷调查系统的设计与实现 姓 名 谢传海 学 号 124115042004 院 系 信息科学与技术学院 专 业 计算机可与与技术 年级班级 2012级2班 指导教师 吕廷勤 2016年5月20日毕业论文（设计）作者声明本人郑重声明：所呈交的毕业论文是本人在导师的指导下独立进行研究所取得的研究成果。除了文中特别加以标注引用的内容外，本论文不包含任何其他个人或集体已经发表或撰写的成果作品。本人完全了解有关保障、使用毕业论文的规定，同意学校保留并向有关毕业论文管理机构送交论文的复印件和电子版。同意省级优秀毕业论文评选机构将本毕业论文通过影印、缩印、扫描等方式进行保存、摘编或汇编；同意本论文被编入有关数据库进行检索和查阅。本毕业论文内容不涉及国家机密。论文题目：问卷调查自系统的设计与实现作者单位：郑州师范学院信息科学与技术学院2012级2班作者签名：问卷调查系统的设计与实现摘 要社会的进步与发展带来了庞大的信息，如何收集信息变成了重中之重。传统的做法是向社会发放一些调查表，但是这样不仅任务繁重，信息收集起来也相当的费力与繁琐且收集周期长，浪费人力物力。为了提高信息的收集效率，缩短信息收集周期，我们设计了这个基于Word的问卷调查方法。本文使用Office2010自带功能：Word中的ActiveX控件和Excel函数功能。以学校中常见的教师授课调查为例，利用Word控件设计调查问卷，再用Excel设计统计表格，利用其函数功能对数据进行统计，二者之间所用VBA代码关联。关键词：Word；Excel；VBA；自动统计IIIDesign and implementation of the questionnaire survey systemAbstract Social progress and development has brought a huge information, how to collect the information into a top priority. The traditional approach is release some questionnaires to the community, but this is not only a heavy task, the information collected is quite laborious and tedious and long collection cycle, a waste of human and material resources. In order to improve the collection efficiency of information and shorten the information gathering period, we have designed this survey system based on Word. This article uses Office2010 to bring the function: In Word ActiveX controls and the Excel function function.The common teacher teaches the investigation take the school in as an example, controls the design questionnaire using Word, again uses Excel to design the statistical form, uses its function function to carry on the statistics to the data, between the two uses the VBA code to be connected.Key Words：Word；Excel；VBA；Automatic statisticsIV目 录摘 要IIAbstractIII1.引言11.1 问卷调查的意义11.2 问卷调查的现状11.3目前问卷调查的不足21.4问题解决思路22.理论支持32.1 Word控件32.2 Excel函数32.3 VBA33.设计与实现53.1 设计思路53.2 设计实现53.2.1制作问卷页面53.2.2创建Excel统计表格83.2.3编写VBA代码93.2.4 说明174.存在的问题185.总结与展望195.1 总结195.2 展望19参考文献21致谢2221.引言1.1 问卷调查的意义 问卷调查是研究者了解事实现况的一种研究方式，目的是收集一个目标群体的各项属性的资料，可以分成描述性研究及分析性研究两大类。在决定是不是使用问卷调查法作为研究工具，应该考虑是否可以达成研究目标以及注意研究目标对于问卷调查的配合度，另外，问卷调查也有它的优点和缺点,根据其特性配合研究主题,才可以完成目标。研究者把需要研究的项目，转化成相应的问题，再以问卷的方式，请相关的人照问卷格式填写的一种形式1。问卷调查，能使研究者直接由被调查对象获得资料,以测量被调查对象个人的看法，个人的价值观和个人的态度，也可以用问卷调查法去调查事实和经验。1.2 问卷调查的现状现在是信息时代，社会上充斥着各种各样的信息，各行各业的发展进步都需要及时的掌握对自身发展有用的信息。问卷调查就成为了人们及时了解所需信息的重要手段。政府需要通过问卷调查来掌握社会动态，制定施政方针；企业需要通过问卷调查来了解市场需求与消费者的心理来制定企业的发展方向和发展计划；老师需要通过问卷调查来了解学生实时的学习进度和知识点的掌握程度来制定下一步的教学计划。由此可见，问卷调查在现今社会中拥有非常重要的作用，而问卷调查的数据结果的统计是问卷调查过程中最重要的一步。问卷调查，因为所使用的载体不一样，可以分成纸质问卷调查与网络问卷调查两种。纸质问卷调查就是传统的问卷调查，调查者使用人工来发纸质问卷，再将填写完成的问卷回收。这样的问卷调查方式存在一些缺点，结果的统计与分析非常麻烦，成本比较高。网络问卷调查，就是调查者通过一些在线问卷调查网站，这些网站能够提供设计问卷，问卷发放，结果分析等服务。这种问卷调查方式的优点是没有地域限制，成本低廉，缺点是问卷的质量没有保证，可能出现乱填的现象使调查出现错误。目前国外的问卷调查网站有surveymonkey，该网站提供了这种方式，而在国内有问卷星、调查派等网站提供这种方法。1.3目前问卷调查的不足现在最常用的问卷调查有两种方式：纸质问卷调查和专业问卷制作网站。纸质问卷是应用范围最广的问卷调查方式，虽然在问卷是比较方便，调查对象也没限制，各个年龄段、行业的人都可以成为纸质问卷的调查对象，但是纸质问卷的成本太高，在回收问卷、对结果进行统计的时候比较麻烦。当调查对象太多的时候，需要花费大量的人力来对结果进行统计。所以，这种问卷调查方式无法适用于大范围的调查 。专业问卷制作网站是最新兴起的一种问卷调查方式，虽然这种方式的问卷调查可以自动统计分析调查结果，但是，这种问卷调查方式的对象有一定的局限性，只适用于那些可以懂得计算机并可以及时上网的对象，而且问卷的质量也无法保证。1.4问题解决思路 大家知道Office办公软件中Word可以制作问卷文档，Word中的控件可以把普通文档转化成带选项，可传送数据的文档。Excel中有各种各样的函数，相应函数让Excel表格具有自动统计的功能，解决问卷调查结果统计繁琐的问题。VBA代码可以拓展Office办公软件的功能，将Word问卷文档与Excel统计表格联系起来，将Word问卷文档中的数据传输到Excel统计表格中。所以，直接利用Office办公软件自身的功能就可以解决目前问卷调查的不足。2.理论支持 为了实现利用Office办公软件自身功能实现自动统计数据结果的功能，在研究过程中应用了Word控件、Excel函数、VBA。2.1 Word控件word控件主要是在VBA窗体中使用，每一个控件都是一个单独的模块，具的体功能通过编写VB代码以及对属性的设置来实现。有些控件也可以在word文档中使用2。word控件其实是VBA的可视化界面，要求了解掌握一定的VBA知识，才可以很好的使用Word控件工具箱。通过控件工具中选项按钮控件、复选框控件、文本框控件等可以制作单选题、多选题、填空题，因此，可以用Word制作调查问卷。2.2 Excel函数Excel是Office办公软件中十分重要的一款软件。Excel中提到的函数其实是一些预定义的公式，Excel函数通过一些被称为参数的特定数值按照一定的顺序进行计算。Excel函数一共有11类，分别是数据库函数、日期与时间函数、工程函数、财务函数、信息函数、逻辑函数、查询和引用函数、数学和三角函数、统计函数、文本函数以及用户自定义函数。Excel处理数据的功能在现在的文字处理软件中能说是首屈一指的，没有哪一款软件可以与之匹敌。函数是Excel对数据进行处理的最重要手段之一，功能非常强大，在学习与工作中有多种应用方法，甚至您能用Excel来设计完成复杂的统计管理表格或者小型的数据库系统。2.3 VBAVisual Basic for Applications(VBA)是Visual Basic的一种宏语言，是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言3。主要是用来对Windows的应用功能进行扩展，特别是Office办公软件。也可以把它当成一种应用程序视觉化的Basic 脚本。这个语言是1993年微软公司开发出来的应用程序共享的通用的自动化语言-Visual Basic For Application(VBA)。常用的办公软件Office中的Word和Excel都可以用VBA来使这些软件的应用效率更高。人们通常只是用Word来编排文档，实际上我们可以用VBA让Word具备更加强大的功能，如：给文档中添加上菜单和命令以及让文档实现控制功能。3.设计与实现3.1 设计思路问卷调查分为调查和统计分析两部分，所以我的设计思路是： 首先，确定需要调查的问题、问题的形式等用word编排好问卷样式，再利用word中的控件完成问卷页面的制作。使用Excel软件制作一个表格，按照问卷中的问题对表格中的每一列属性进行设置，再添加相应的函数使表格具备自动统计功能。在问卷页面中的命令按钮控件的代码编辑器，在其中编写将问卷页面与统计表格相关联的VBA代码。3.2 设计实现3.2.1制作问卷页面第一步：打开Word2010，新建一份空白文档。第二步：单击“文件”按钮，选择“选项”命令，在打开的对话框中单击“自定义功能区”，然后在右侧勾选“开发工具”复选框，调出开发工具工具栏。如图所示：图 调出开发工具 第三步：在空白文档中将问卷的问题与选项的文字与格式编排好，然后单击“开发工具”，在“控件”一栏中的旧式工具中选择问卷文档需要用到的文本框、选项按钮、命令按钮等控件。单击“设计模式”，在“设计模式”下对控件属性进行设置。如图所示：图 设置属性注：在设置控件属性时涉及的属性有“名称”，选择题中，每一个选项控件的属性中的“GroupName”属性必须设置成一样的而且每两道选择题的“GroupName”属性不能一样，否则会出现错误，统计结果的时候会弄混淆。第四步：属性设置完毕后，Word问卷文档就制作成功了。问卷页面如图、图和图所示：图 问卷页面图 问卷页面图 问卷页面3.2.2创建Excel统计表格第一步：打开Excel2010，新建一个Excel文件。第二步：建立此格式存储表格，每道题一行，每个学号一列。如图所示：图 统计表格3.2.3编写VBA代码在“开发工具”中单击“设计模式”下,然后双击“提交”命令按钮, 调出“Visual Basic”编辑器,或者用鼠标右键单击“提交”按钮,在弹出的菜单里,单击“查看代码”进入编辑器,然后就可以在代码编辑窗口下输入代码4。编辑代码如下图图和图所示：图 编写代码图 编写代码具体代码如下:Private Sub CommandButton1_Click()Dim excelsheet As Object, a As Integer Start Excel and get Application object.Set oXL = CreateObject(Excel.Application)oXL.Visible = FalseSet oWB = oXL.Workbooks.Open(E:学习论文a.xls)Set excelsheet = oWB.ActiveSheetexcelsheet.Application.Visible = FalseFor i = 1 To 20excelsheet.Application.Cells(i + 1, 1) = iNexta = TextBox1.Valueexcelsheet.Application.Cells(1, a + 1) = aIf opb1.Value = True Thenexcelsheet.Application.Cells(2, a + 1).Value = AElseIf opb2.Value = True Thenexcelsheet.Application.Cells(2, a + 1).Value = BElseIf opb3.Value = True Thenexcelsheet.Application.Cells(2, a + 1).Value = CElseexcelsheet.Application.Cells(2, a + 1).Value = DEnd IfIf opb5.Value = True Thenexcelsheet.Application.Cells(3, a + 1).Value = AElseIf opb6.Value = True Thenexcelsheet.Application.Cells(3, a + 1).Value = BElseIf opb7.Value = True Thenexcelsheet.Application.Cells(3, a + 1).Value = CElseexcelsheet.Application.Cells(3, a + 1).Value = DEnd IfIf opb9.Value = True Thenexcelsheet.Application.Cells(4, a + 1).Value = AElseIf opb10.Value = True Thenexcelsheet.Application.Cells(4, a + 1).Value = BElseIf opb11.Value = True Thenexcelsheet.Application.Cells(4, a + 1).Value = CElseexcelsheet.Application.Cells(4, a + 1).Value = DEnd IfIf opb13.Value = True Thenexcelsheet.Application.Cells(5, a + 1).Value = AElseIf opb14.Value = True Thenexcelsheet.Application.Cells(5, a + 1).Value = BElseIf opb15.Value = True Thenexcelsheet.Application.Cells(5, a + 1).Value = CElseexcelsheet.Application.Cells(5, a + 1).Value = DEnd IfIf opb17.Value = True Thenexcelsheet.Application.Cells(6, a + 1).Value = AElseIf opb18.Value = True Thenexcelsheet.Application.Cells(6, a + 1).Value = BElseIf opb19.Value = True Thenexcelsheet.Application.Cells(6, a + 1).Value = CElseexcelsheet.Application.Cells(6, a + 1).Value = DEnd IfIf opb21.Value = True Thenexcelsheet.Application.Cells(7, a + 1).Value = AElseIf opb22.Value = True Thenexcelsheet.Application.Cells(7, a + 1).Value = BElseIf opb23.Value = True Thenexcelsheet.Application.Cells(7, a + 1).Value = CElseexcelsheet.Application.Cells(7, a + 1).Value = DEnd IfIf opb25.Value = True Thenexcelsheet.Application.Cells(8, a + 1).Value = AElseIf opb26.Value = True Thenexcelsheet.Application.Cells(8, a + 1).Value = BElseIf opb27.Value = True Thenexcelsheet.Application.Cells(8, a + 1).Value = CElseexcelsheet.Application.Cells(8, a + 1).Value = DEnd IfIf opb29.Value = True Thenexcelsheet.Application.Cells(9, a + 1).Value = AElseIf opb30.Value = True Thenexcelsheet.Application.Cells(9, a + 1).Value = BElseIf opb31.Value = True Thenexcelsheet.Application.Cells(9, a + 1).Value = CElseexcelsheet.Application.Cells(9, a + 1).Value = DEnd IfIf opb33.Value = True Thenexcelsheet.Application.Cells(10, a + 1).Value = AElseIf opb34.Value = True Thenexcelsheet.Application.Cells(10, a + 1).Value = BElseIf opb35.Value = True Thenexcelsheet.Application.Cells(10, a + 1).Value = CElseexcelsheet.Application.Cells(10, a + 1).Value = DEnd IfIf opb37.Value = True Thenexcelsheet.Application.Cells(11, a + 1).Value = AElseIf opb38.Value = True Thenexcelsheet.Application.Cells(11, a + 1).Value = BElseexcelsheet.Application.Cells(11, a + 1).Value = CEnd IfIf opb40.Value = True Thenexcelsheet.Application.Cells(12, a + 1).Value = AElseIf opb41.Value = True Thenexcelsheet.Application.Cells(12, a + 1).Value = BElseexcelsheet.Application.Cells(12, a + 1).Value = CEnd IfIf opb43.Value = True Thenexcelsheet.Application.Cells(13, a + 1).Value = AElseIf opb44.Value = True Thenexcelsheet.Application.Cells(13, a + 1).Value = BElseIf opb45.Value = True Thenexcelsheet.Application.Cells(13, a + 1).Value = CElseexcelsheet.Application.Cells(13, a + 1).Value = DEnd IfIf opb47.Value = True Thenexcelsheet.Application.Cells(14, a + 1).Value = AElseIf opb48.Value = True Thenexcelsheet.Application.Cells(14, a + 1).Value = BElseexcelsheet.Application.Cells(14, a + 1).Value = CEnd IfIf opb50.Value = True Thenexcelsheet.Application.Cells(15, a + 1).Value = AElseIf opb51.Value = True Thenexcelsheet.Application.Cells(15, a + 1).Value = BElseIf opb52.Value = True Thenexcelsheet.Application.Cells(15, a + 1).Value = CElseexcelsheet.Application.Cells(15, a + 1).Value = DEnd IfIf opb54.Value = True Thenexcelsheet.Application.Cells(16, a + 1).Value = AElseIf opb55.Value = True Thenexcelsheet.Application.Cells(16, a + 1).Value = BElseIf opb56.Value = True Thenexcelsheet.Application.Cells(16, a + 1).Value = CElseexcelsheet.Application.Cells(16, a + 1).Value = DEnd IfIf opb58.Value = True Thenexcelsheet.Application.Cells(17, a + 1).Value = AElseIf opb59.Value = True Thenexcelsheet.Application.Cells(17, a + 1).Value = BElseexcelsheet.Application.Cells(17, a + 1).Value = CEnd IfIf opb61.Value = True Thenexcelsheet.Application.Cells(18, a + 1).Value = AElseIf opb62.Value = True Thenexcelsheet.Application.Cells(18, a + 1).Value = BElseexcelsheet.Application.Cells(18, a + 1).Value = CEnd IfIf opb64.Value = True Thenexcelsheet.Application.Cells(19, a + 1).Value = AElseIf opb65.Value = True Thenexcelsheet.Application.Cells(19, a + 1).Value = BElseIf opb66.Value = True Thenexcelsheet.Application.Cells(19, a + 1).Value = CElseexcelsheet.Application.Cells(19, a + 1).Value = DEnd IfIf opb68.Value = True Thenexcelsheet.Application.Cells(20, a + 1).Value = AElseIf opb69.Value = True Thenexcelsheet.Application.Cells(20, a + 1).Value = BElseIf opb70.Value = True Thenexcelsheet.Application.Cells(20, a + 1).Value = CElseexcelsheet.Application.Cells(20, a + 1).Value = DEnd Ifexcelsheet.Application.Cells(21, a + 1).Value = ThisDocument.TextBox2.Valueexcelsheet.Application.QuitSet excelsheet = NothingMsgBox ( 已成功将本问卷结果传递到电子表格中 ! , 谢谢合作! )End Sub3.2.4 说明 本代码的设计思想：让填写问卷的学生先把自己的学号输入，根据每个学生的学号不同，将其填写的问卷结果提交到Excel统计表格相对应的列。因为想要让被调查的学生的答案全部提交在一个Excel表格中，方便统计，但是一个Excel表格文件无法在多台机器上同时打开，所以，参与问卷调查的学生做完后先保存在学生机上，然后通过 FTP 上传到教师机的服务器上, 再一个问卷一个问卷的进行提交，当点击“提交”按钮后, 会出现一个提示提交成功的消息，然后单击“确定”按钮。这样就可以保证把所有的问卷结果都保存到了同一个Excel表格中。在点击“提交”之前，必须在程序指定的位置建立相对应的表格。4.存在的问题本次设计是以我自己上课的经历为例进行的，授课教师对我们学生的学习情况的摸底问卷调查，学生在学生机上填写完问卷后通过FTP发送到教师机上，再由教师一份份点击提交，才可以把所有学生的问卷结果保存到一张表格中。教师机与学生机在同一局域网内，因此可以用这种方法来进行授课情况的调查。但是这种问卷调查方式存在一定的问题：1. 调查者与被调查对象需要在同一个网络中，而且被调查对象需要把填写好的问卷发送给调查者。2. 收到被调查对象填写完成的问卷后需要一份一份提交，工作量大，容易出现遗漏。3. 在点击“提交”前，必须在指定的位置建立对应的文件,在这个程序中, 必须在教师机上新建一个Excel表格, 用来保存被调查学生提交的问卷答案。5.总结与展望5.1 总结21世纪，我国正慢慢走入信息时代，各行各业的发展与规划越来越依赖对信息的统计与分析。目前，在统计与分析信息的过程中，问卷调查是非常重要的一种方式。因此在充斥着各种信息的今天，设计一种方便快捷的问卷方式是非常有意义的。而问卷调查最重要的是对问卷结果的统计与分析，所以不得不考虑对问卷结果的统计问题，否则问卷就变的毫无意义。针对问卷结果自动统计方法的设计就显得非常重要了。本文基于Office办公软件自身的功能设计了一种可以自动统计问卷调查数据结果的问卷方式。主要工作如下：1.研究Word软件控件工具的应用，利用Word控件进行问卷文档的编排与设计，在对各个控件的属性方面做了大量工作。2.研究Excel软件中函数的应用，特别是count/counta（计数函数）、sum（求和函数）等函数的应用方法与属性的设置方面进行了大量的研究与实验。利用这些函数在Excel中建立统计表格，对问卷的结果进行存储与统计。3.研究Visual Basic for Applications(VBA)在Word与Excel中的应用，在VBA代码编写的语法上下了很大的功夫去学习了解。利用VBA代码将Word问卷中的结果传递到Excel统计表格中。5.2 展望问卷调查自动统计作为一种不同于传统人工统计的方法，必然会随着现今社会问卷调查越来越重要的地位而越来越完善。本文立足于Office办公软件，通过利用Excel中的函数设计问卷调查自动统计数据结果的方法，取得了一定的成果，但是，由于时间原因和知识掌握程度的原因，还有很多方面需要考虑与完善：1.本文设计的问卷调查方式的应用需要在同一局域网内，能否