1、郑州师范学院毕业论文（设计）题 目 问卷调查系统的设计与实现姓 名 谢传海 学 号 124115042004 院 系 信息科学与技术学院 专 业 计算机可与与技术 年级班级 2012 级 2 班 指导教师 吕廷勤 郑州师范学院本科毕业论文（设计）2016 年 5 月 20 日郑州师范学院本科毕业论文（设计）I毕业论文（设计）作者声明本人郑重声明：所呈交的毕业论文是本人在导师的指导下独立进行研究所取得的研究成果。除了文中特别加以标注引用的内容外，本论文不包含任何其他个人或集体已经发表或撰写的成果作品。本人完全了解有关保障、使用毕业论文的规定，同意学校保留并向有关毕业论文管理机构送交论文的复印件和
2、电子版。同意省级优秀毕业论文评选机构将本毕业论文通过影印、缩印、扫描等方式进行保存、摘编或汇编；同意本论文被编入有关数据库进行检索和查阅。本毕业论文内容不涉及国家机密。论文题目：问卷调查自系统的设计与实现作者单位：郑州师范学院信息科学与技术学院 2012 级 2 班作者签名：郑州师范学院本科毕业论文（设计）II问卷调查系统的设计与实现摘 要社会的进步与发展带来了庞大的信息，如何收集信息变成了重中之重。传统的做法是向社会发放一些调查表，但是这样不仅任务繁重，信息收集起来也相当的费力与繁琐且收集周期长，浪费人力物力。为了提高信息的收集效率，缩短信息收集周期，我们设计了这个基于 Word 的问卷调查
3、方法。本文使用 Office2010 自带功能：Word 中的 ActiveX 控件和 Excel 函数功能。以学校中常见的教师授课调查为例，利用 Word 控件设计调查问卷，再用Excel 设计统计表格，利用其函数功能对数据进行统计，二者之间所用 VBA 代码关联。关键词：Word；Excel；VBA；自动统计郑州师范学院本科毕业论文（设计）III郑州师范学院本科毕业论文（设计）IIIDesign and implementation of the questionnaire survey systemAbstractSocial progress and development has b
4、rought 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 materia
5、l 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 te
6、aches 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；Autom
7、atic statistics郑州师范学院本科毕业论文（设计）IV郑州师范学院本科毕业论文（设计）1目 录摘 要 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 说明 .17郑州师范学院本科毕业论文（设计）24.存在的问题 .1
8、85.总结与展望 .195.1 总结 195.2 展望 19参考文献 .21致谢 22郑州师范学院本科毕业论文（设计）11.引言1.1 问卷调查的意义问卷调查是研究者了解事实现况的一种研究方式，目的是收集一个目标群体的各项属性的资料，可以分成描述性研究及分析性研究两大类。在决定是不是使用问卷调查法作为研究工具，应该考虑是否可以达成研究目标以及注意研究目标对于问卷调查的配合度，另外，问卷调查也有它的优点和缺点,根据其特性配合研究主题,才可以完成目标。研究者把需要研究的项目，转化成相应的问题，再以问卷的方式，请相关的人照问卷格式填写的一种形式 1。问卷调查，能使研究者直接由被调查对象获得资料,以测
9、量被调查对象个人的看法，个人的价值观和个人的态度，也可以用问卷调查法去调查事实和经验。1.2 问卷调查的现状现在是信息时代，社会上充斥着各种各样的信息，各行各业的发展进步都需要及时的掌握对自身发展有用的信息。问卷调查就成为了人们及时了解所需信息的重要手段。政府需要通过问卷调查来掌握社会动态，制定施政方针；企业需要通过问卷调查来了解市场需求与消费者的心理来制定企业的发展方向和发展计划；老师需要通过问卷调查来了解学生实时的学习进度和知识点的掌握程度来制定下一步的教学计划。由此可见，问卷调查在现今社会中拥有非常重要的作用，而问卷调查的数据结果的统计是问卷调查过程中最重要的一步。问卷调查，因为所使用的
10、载体不一样，可以分成纸质问卷调查与网络问卷调查两种。纸质问卷调查就是传统的问卷调查，调查者使用人工来发纸质问卷，再将填写完成的问卷回收。这样的问卷调查方式存在一些缺点，结果的统计与分析非常麻烦，成本比较高。郑州师范学院本科毕业论文（设计）2网络问卷调查，就是调查者通过一些在线问卷调查网站，这些网站能够提供设计问卷，问卷发放，结果分析等服务。这种问卷调查方式的优点是没有地域限制，成本低廉，缺点是问卷的质量没有保证，可能出现乱填的现象使调查出现错误。目前国外的问卷调查网站有 surveymonkey，该网站提供了这种方式，而在国内有问卷星、调查派等网站提供这种方法。1.3 目前问卷调查的不足现在最
11、常用的问卷调查有两种方式：纸质问卷调查和专业问卷制作网站。纸质问卷是应用范围最广的问卷调查方式，虽然在问卷是比较方便，调查对象也没限制，各个年龄段、行业的人都可以成为纸质问卷的调查对象，但是纸质问卷的成本太高，在回收问卷、对结果进行统计的时候比较麻烦。当调查对象太多的时候，需要花费大量的人力来对结果进行统计。所以，这种问卷调查方式无法适用于大范围的调查 。专业问卷制作网站是最新兴起的一种问卷调查方式，虽然这种方式的问卷调查可以自动统计分析调查结果，但是，这种问卷调查方式的对象有一定的局限性，只适用于那些可以懂得计算机并可以及时上网的对象，而且问卷的质量也无法保证。1.4 问题解决思路 大家知道
12、 Office 办公软件中 Word 可以制作问卷文档，Word 中的控件可以把普通文档转化成带选项，可传送数据的文档。Excel 中有各种各样的函数，相应函数让 Excel 表格具有自动统计的功能，解决问卷调查结果统计繁琐的问题。VBA 代码可以拓展 Office 办公软件的功能，将 Word 问卷文档与 Excel 统计表格联系起来，将 Word 问卷文档中的数据传输到 Excel 统计表格中。所以，直接利用 Office 办公软件自身的功能就可以解决目前问卷调查的不足。郑州师范学院本科毕业论文（设计）32.理论支持为了实现利用 Office 办公软件自身功能实现自动统计数据结果的功能，在
13、研究过程中应用了 Word 控件、Excel 函数、VBA。2.1 Word 控件word 控件主要是在 VBA 窗体中使用，每一个控件都是一个单独的模块，具的体功能通过编写 VB 代码以及对属性的设置来实现。有些控件也可以在 word文档中使用 2。word 控件其实是 VBA 的可视化界面，要求了解掌握一定的 VBA 知识，才可以很好的使用 Word 控件工具箱。通过控件工具中选项按钮控件、复选框控件、文本框控件等可以制作单选题、多选题、填空题，因此，可以用 Word 制作调查问卷。2.2 Excel 函数Excel 是 Office 办公软件中十分重要的一款软件。Excel 中提到的函数
14、其实是一些预定义的公式，Excel 函数通过一些被称为参数的特定数值按照一定的顺序进行计算。Excel 函数一共有 11 类，分别是数据库函数、日期与时间函数、工程函数、财务函数、信息函数、逻辑函数、查询和引用函数、数学和三角函数、统计函数、文本函数以及用户自定义函数。Excel 处理数据的功能在现在的文字处理软件中能说是首屈一指的，没有哪一款软件可以与之匹敌。函数是 Excel 对数据进行处理的最重要手段之一，功能非常强大，在学习与工作中有多种应用方法，甚至您能用 Excel 来设计完成复杂的统计管理表格或者小型的数据库系统。郑州师范学院本科毕业论文（设计）42.3 VBAVisual Ba
15、sic for Applications(VBA)是 Visual Basic 的一种宏语言，是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言 3。主要是用来对 Windows 的应用功能进行扩展，特别是 Office 办公软件。也可以把它当成一种应用程序视觉化的 Basic 脚本。这个语言是 1993 年微软公司开发出来的应用程序共享的通用的自动化语言-Visual Basic For Application(VBA)。常用的办公软件 Office 中的 Word 和 Excel 都可以用 VBA 来使这些软件的应用效率更高。人们通常只是用 Word 来编排文档，实际
16、上我们可以用 VBA 让Word 具备更加强大的功能，如：给文档中添加上菜单和命令以及让文档实现控制功能。郑州师范学院本科毕业论文（设计）53.设计与实现3.1 设计思路问卷调查分为调查和统计分析两部分，所以我的设计思路是：首先，确定需要调查的问题、问题的形式等用 word 编排好问卷样式，再利用 word 中的控件完成问卷页面的制作。使用 Excel 软件制作一个表格，按照问卷中的问题对表格中的每一列属性进行设置，再添加相应的函数使表格具备自动统计功能。在问卷页面中的命令按钮控件的代码编辑器，在其中编写将问卷页面与统计表格相关联的 VBA 代码。郑州师范学院本科毕业论文（设计）63.2 设计
17、实现3.2.1 制作问卷页面第一步：打开 Word2010，新建一份空白文档。第二步：单击“文件”按钮，选择“选项”命令，在打开的对话框中单击“自定义功能区” ，然后在右侧勾选“开发工具”复选框，调出开发工具工具栏。如图 3.2.1.1 所示：图 3.2.1.1 调出开发工具第三步：在空白文档中将问卷的问题与选项的文字与格式编排好，然后单击“开发工具” ，在“控件”一栏中的旧式工具中选择问卷文档需要用到的文本框、选项按钮、命令按钮等控件。单击“设计模式” ，在“设计模式”下对控件属性进行设置。如图 3.2.1.2 所示：郑州师范学院本科毕业论文（设计）7图 3.2.1.2 设置属性注：在设置控
18、件属性时涉及的属性有“名称” ，选择题中，每一个选项控件的属性中的“GroupName”属性必须设置成一样的而且每两道选择题的“GroupName”属性不能一样，否则会出现错误，统计结果的时候会弄混淆。第四步：属性设置完毕后，Word 问卷文档就制作成功了。问卷页面如图 3.2.1.3、图 3.2.1.4 和图 3.2.1.5 所示：郑州师范学院本科毕业论文（设计）8图 3.2.1.3 问卷页面郑州师范学院本科毕业论文（设计）9图 3.2.1.4 问卷页面图 3.2.1.5 问卷页面3.2.2 创建 Excel 统计表格第一步：打开 Excel2010，新建一个 Excel 文件。第二步：建立
19、此格式存储表格，每道题一行，每个学号一列。如图3.2.2.1 所示：郑州师范学院本科毕业论文（设计）10图 3.2.2.1 统计表格3.2.3 编写 VBA 代码在“开发工具”中单击“设计模式”下,然后双击“提交”命令按钮, 调出“Visual Basic”编辑器,或者用鼠标右键单击“ 提交”按钮,在弹出的菜单里,单击“查看代码”进入编辑器,然后就可以在代码编辑窗口下输入代码 4。编辑代码如下图图 3.2.3.1 和图 3.2.3.2 所示：郑州师范学院本科毕业论文（设计）11图 3.2.3.1 编写代码郑州师范学院本科毕业论文（设计）12图 3.2.3.2 编写代码具体代码如下:Privat
20、e 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 20exce
21、lsheet.Application.Cells(i + 1, 1) = iNexta = TextBox1.Valueexcelsheet.Application.Cells(1, a + 1) = aIf opb1.Value = True Thenexcelsheet.Application.Cells(2, a + 1).Value = “A“ElseIf opb2.Value = True Thenexcelsheet.Application.Cells(2, a + 1).Value = “B“ElseIf opb3.Value = True Thenexcelsheet.Appl
22、ication.Cells(2, a + 1).Value = “C“郑州师范学院本科毕业论文（设计）13Elseexcelsheet.Application.Cells(2, a + 1).Value = “D“End IfIf opb5.Value = True Thenexcelsheet.Application.Cells(3, a + 1).Value = “A“ElseIf opb6.Value = True Thenexcelsheet.Application.Cells(3, a + 1).Value = “B“ElseIf opb7.Value = True Thenexce
23、lsheet.Application.Cells(3, a + 1).Value = “C“Elseexcelsheet.Application.Cells(3, a + 1).Value = “D“End IfIf opb9.Value = True Thenexcelsheet.Application.Cells(4, a + 1).Value = “A“ElseIf opb10.Value = True Thenexcelsheet.Application.Cells(4, a + 1).Value = “B“ElseIf opb11.Value = True Thenexcelshee
24、t.Application.Cells(4, a + 1).Value = “C“Elseexcelsheet.Application.Cells(4, a + 1).Value = “D“End If郑州师范学院本科毕业论文（设计）14If opb13.Value = True Thenexcelsheet.Application.Cells(5, a + 1).Value = “A“ElseIf opb14.Value = True Thenexcelsheet.Application.Cells(5, a + 1).Value = “B“ElseIf opb15.Value = True
25、 Thenexcelsheet.Application.Cells(5, a + 1).Value = “C“Elseexcelsheet.Application.Cells(5, a + 1).Value = “D“End IfIf opb17.Value = True Thenexcelsheet.Application.Cells(6, a + 1).Value = “A“ElseIf opb18.Value = True Thenexcelsheet.Application.Cells(6, a + 1).Value = “B“ElseIf opb19.Value = True The
26、nexcelsheet.Application.Cells(6, a + 1).Value = “C“Elseexcelsheet.Application.Cells(6, a + 1).Value = “D“End IfIf opb21.Value = True Thenexcelsheet.Application.Cells(7, a + 1).Value = “A“ElseIf opb22.Value = True Then郑州师范学院本科毕业论文（设计）15excelsheet.Application.Cells(7, a + 1).Value = “B“ElseIf opb23.Va
27、lue = True Thenexcelsheet.Application.Cells(7, a + 1).Value = “C“Elseexcelsheet.Application.Cells(7, a + 1).Value = “D“End IfIf opb25.Value = True Thenexcelsheet.Application.Cells(8, a + 1).Value = “A“ElseIf opb26.Value = True Thenexcelsheet.Application.Cells(8, a + 1).Value = “B“ElseIf opb27.Value
28、= True Thenexcelsheet.Application.Cells(8, a + 1).Value = “C“Elseexcelsheet.Application.Cells(8, a + 1).Value = “D“End IfIf opb29.Value = True Thenexcelsheet.Application.Cells(9, a + 1).Value = “A“ElseIf opb30.Value = True Thenexcelsheet.Application.Cells(9, a + 1).Value = “B“ElseIf opb31.Value = Tr
29、ue Thenexcelsheet.Application.Cells(9, a + 1).Value = “C“郑州师范学院本科毕业论文（设计）16Elseexcelsheet.Application.Cells(9, a + 1).Value = “D“End IfIf opb33.Value = True Thenexcelsheet.Application.Cells(10, a + 1).Value = “A“ElseIf opb34.Value = True Thenexcelsheet.Application.Cells(10, a + 1).Value = “B“ElseIf
30、opb35.Value = True Thenexcelsheet.Application.Cells(10, a + 1).Value = “C“Elseexcelsheet.Application.Cells(10, a + 1).Value = “D“End IfIf opb37.Value = True Thenexcelsheet.Application.Cells(11, a + 1).Value = “A“ElseIf opb38.Value = True Thenexcelsheet.Application.Cells(11, a + 1).Value = “B“Elseexc
31、elsheet.Application.Cells(11, a + 1).Value = “C“End IfIf opb40.Value = True Thenexcelsheet.Application.Cells(12, a + 1).Value = “A“郑州师范学院本科毕业论文（设计）17ElseIf opb41.Value = True Thenexcelsheet.Application.Cells(12, a + 1).Value = “B“Elseexcelsheet.Application.Cells(12, a + 1).Value = “C“End IfIf opb43.
32、Value = True Thenexcelsheet.Application.Cells(13, a + 1).Value = “A“ElseIf opb44.Value = True Thenexcelsheet.Application.Cells(13, a + 1).Value = “B“ElseIf opb45.Value = True Thenexcelsheet.Application.Cells(13, a + 1).Value = “C“Elseexcelsheet.Application.Cells(13, a + 1).Value = “D“End IfIf opb47.
33、Value = True Thenexcelsheet.Application.Cells(14, a + 1).Value = “A“ElseIf opb48.Value = True Thenexcelsheet.Application.Cells(14, a + 1).Value = “B“Elseexcelsheet.Application.Cells(14, a + 1).Value = “C“End If郑州师范学院本科毕业论文（设计）18If opb50.Value = True Thenexcelsheet.Application.Cells(15, a + 1).Value
34、= “A“ElseIf opb51.Value = True Thenexcelsheet.Application.Cells(15, a + 1).Value = “B“ElseIf opb52.Value = True Thenexcelsheet.Application.Cells(15, a + 1).Value = “C“Elseexcelsheet.Application.Cells(15, a + 1).Value = “D“End IfIf opb54.Value = True Thenexcelsheet.Application.Cells(16, a + 1).Value
35、= “A“ElseIf opb55.Value = True Thenexcelsheet.Application.Cells(16, a + 1).Value = “B“ElseIf opb56.Value = True Thenexcelsheet.Application.Cells(16, a + 1).Value = “C“Elseexcelsheet.Application.Cells(16, a + 1).Value = “D“End IfIf opb58.Value = True Thenexcelsheet.Application.Cells(17, a + 1).Value
36、= “A“ElseIf opb59.Value = True Then郑州师范学院本科毕业论文（设计）19excelsheet.Application.Cells(17, a + 1).Value = “B“Elseexcelsheet.Application.Cells(17, a + 1).Value = “C“End IfIf opb61.Value = True Thenexcelsheet.Application.Cells(18, a + 1).Value = “A“ElseIf opb62.Value = True Thenexcelsheet.Application.Cells
37、(18, a + 1).Value = “B“Elseexcelsheet.Application.Cells(18, a + 1).Value = “C“End IfIf opb64.Value = True Thenexcelsheet.Application.Cells(19, a + 1).Value = “A“ElseIf opb65.Value = True Thenexcelsheet.Application.Cells(19, a + 1).Value = “B“ElseIf opb66.Value = True Thenexcelsheet.Application.Cells
38、(19, a + 1).Value = “C“Elseexcelsheet.Application.Cells(19, a + 1).Value = “D“End IfIf opb68.Value = True Then郑州师范学院本科毕业论文（设计）20excelsheet.Application.Cells(20, a + 1).Value = “A“ElseIf opb69.Value = True Thenexcelsheet.Application.Cells(20, a + 1).Value = “B“ElseIf opb70.Value = True Thenexcelsheet
39、.Application.Cells(20, a + 1).Value = “C“Elseexcelsheet.Application.Cells(20, a + 1).Value = “D“End Ifexcelsheet.Application.Cells(21, a + 1).Value = ThisDocument.TextBox2.Valueexcelsheet.Application.QuitSet excelsheet = NothingMsgBox (“ 已成功将本问卷结果传递到电子表格中 ! , 谢谢合作! “)End Sub3.2.4 说明本代码的设计思想：让填写问卷的学生
40、先把自己的学号输入，根据每个学生的学号不同，将其填写的问卷结果提交到 Excel 统计表格相对应的列。因为想要让被调查的学生的答案全部提交在一个 Excel 表格中，方便统计，但是一个 Excel 表格文件无法在多台机器上同时打开，所以，参与问卷调查的学生做完后先保存在学生机上，然后通过 FTP 上传到教师机的服务器上, 再一个问卷一个问卷的进行提交，当点击“提交”按钮后, 会出现一个提示提交成功的消息，然后单击“确定”按钮。这样就可以保证把所有的问卷结果都保存到了同一个 Excel 表格中。在点击“提交”之前，必须在程序指定的位置建立相对应郑州师范学院本科毕业论文（设计）21的表格。4.存在的问题本次设计是以我自己上课的经历为例进行的，授课教师对我们学生的学习情况的摸底问卷调查，学生在学生机上填写完问卷后通过 FTP 发送到教师机上，再由教师一份份点击提交，才可以把所有学生的问卷结果保存到一张表格中。教师机与学生机在同一局域网内，因此可以用这种方法来进行授课情况的调查。但是这种问卷调查方式存在一定的问题：1. 调查者与被调查对象需要在同一个网络中，而且被调查对象需要把填写好的问卷发送给调查者。
