CN108062240A - 基于vb和python的问卷录入与绘图*** - Google Patents

Abstract

基于VB和PYTHON的问卷录入与绘图***，该***使用VB 6.0编程语言完成问卷数据的录入以及调用EXCEL程序来完成问卷数据的存储并采用PYTHON 3.5编程语言对问卷数据进行绘图，包括：录入显示部用于问卷信息的显示和录入；存储部用于存储录入的问卷信息；绘图部使用问卷信息进行绘图并将结果输出，EXCEL表格中预先设置有空白问卷页填写问卷页，录入显示部调取空白问卷页里的所有内容并显示在录入页面中，存储部将录入的问卷信息按预定的存储方式记录在一个填写问卷页内，录入完成后，绘图部调取所有填写问卷页中的绘图问题以及相对应的所有答案信息，并将这些答案信息按特定的统计方式进行统计并作图得到统计图，再将该绘图输出至录入显示部并显示在绘图显示画面中。

Description

基于VB和PYTHON的问卷录入与绘图***

技术领域

本发明涉及一种问卷录入与***，具体的涉及一种基于VB和PYTHON的问卷录入与绘图***。

背景技术

随着我们的社会逐步迈入大数据时代，而数据的收集是大数据利用的基础。目前纸质调查问卷是数据收集常采用的方式之一，纸质调查问卷收集的数据需要转化为电子数据汇总后再进行统计学处理。

EXCEL是Windows平台下的电子表格处理软件，能够进行各种大规模数据的处理、统计分析和辅助决策操作。EXCEL文档拥有良好的数据保管能力，数据移植性好，广泛地应用于众多领域。Visual Basic 6.0(VB 6.0)语言拥有易于学习，界面设计容易，操作简易，并且具有很好的兼容性，通过调用各种不同的软件解决实际问题。PYTHON的绘图库(matplotlib库)，是一款功能强大的科学绘图库，具有很高的统计绘图效率以及很好的兼容性，能够与各种软件结合实现不同的数据处理功能。

现有的专业问卷录入软件界面比较繁琐，使用时往往需要操作者具备一定的专业常识，操作复杂并且购买软件以及后期升级的费用都较为昂贵。而一些初级用户来说仅仅使用到其中一些基础功能，并且时常需要根据自身的需求对软件的功能进行调整，而专业的问卷录入需要进行***的学习操作并支付到昂贵的费用才能够让用户完成数据的录入，使用极不便利。

发明内容

本发明是为了解决上述专业问卷录入软件，操作复杂，软件购买升级费用昂贵不适合初级用户使用的问题，目的在于提供一种基于VB和PYTHON的问卷录入与绘图***。

本发明提供的基于VB和PYTHON的问卷录入与绘图***，该***使用VB 6.0编程语言调用EXCEL程序来完成问卷数据的录入和存储并采用PYTHON 3.5编程语言所编写的软件对问卷数据进行绘图，其特征在于，包括：录入显示部，具有录入页面及绘图显示画面，用于问卷信息的显示和录入，该问卷信息包括问卷中的所有问题和分别与这些问题对应的答案信息；存储部，将录入的问卷信息记录在EXCEL表格中；以及绘图部，调取存储部中存储的问卷信息进行绘图并将结果输出至录入显示部并显示在绘图显示画面中，其中，EXCEL表格中预先设置有空白问卷页和多个带有编号的填写问卷页，空白问卷页中预先存有问卷中的所有问题和与每个问题相对应的所有答案选项，问题中包含有多个带有标记的绘图问题，录入显示部调取空白问卷页里的所有内容并显示在录入页面中，用户每录入完成一份问卷后，存储部将该问卷信息按预定的存储方式记录在一个填写问卷页内，每份问卷具有问卷编号，该问卷的问卷信息记录在具有相应编号的填写问卷页内，当所有的问卷录入完成后，绘图部调取所有填写问卷页中的绘图问题以及与这些问题相对应的所有答案信息，并将这些答案信息按特定的统计方式进行统计并作图得到统计图，形成以绘图问题为标题同时包含对应的统计图的绘图，再将该绘图输出至录入显示部并显示在绘图显示画面中，每张绘图只包含一个绘图问题及其相应的统计图。

本发明提供的基于VB和PYTHON的问卷录入与绘图***，其特征在于，还具有：查询修改部，用于根据问卷编号查询对应的问卷信息并修改存储该问卷信息，包括查询页面、查询模块以及修改存储模块。

本发明提供的基于VB和PYTHON的问卷录入与绘图***，还可以具有这样的特征，其特征在于：其中，查询模块根据用户输入的问卷编号调取记录在对应填写问卷页中的问卷信息，并将该问卷信息显示在查询页面上，修改保存模块接收用户在查询页面中录入的修改后的问卷信息，再将该问卷信息保存至相应的填写问卷页中。

本发明提供的基于VB和PYTHON的问卷录入与绘图***，还可以具有这样的特征，其特征在于：其中，录入部还具有暂停单元，用于录入过程中的暂停和恢复，所示暂停单元包括暂停选项、暂停画面、暂停模块以及恢复模块，述暂停选项设置在录入页面中。

本发明提供的基于VB和PYTHON的问卷录入与绘图***，还可以具有这样的特征，其特征在于：其中，当暂停模块接收到用户录入的暂停信号时，暂停模块将录入页面转换为暂停画面，使得用户无法继续进行录入，暂停画面具有恢复选项以及密码录入框，当恢复模块接收到用户录入密码和恢复信号时，将该密码与预先存储在恢复模块中的原始密码进行比对，两者完全一致时恢复模块将暂停画面转换为录入画面让用户继续进行录入，两者不一致时恢复模块继续显示暂停画面并提示密码录入错误。

本发明提供的基于VB和PYTHON的问卷录入与绘图***，还可以具有这样的特征，其特征在于：其中，录入页面具有多个显示框，用于显示和接收问卷信息，一个显示框用于同时显示问卷中所有的问题，每个问题对应的所有答案选项分别对应的显示在不同的显示框中。

本发明提供的基于VB和PYTHON的问卷录入与绘图***，还可以具有这样的特征，其特征在于：其中，存储方式为将问题与该问题匹配的答案信息对应进行存储。

本发明提供的基于VB和PYTHON的问卷录入与绘图***，还可以具有这样的特征，其特征在于：其中，答案信息包括用户录入的所有答案选项，统计方式为将绘图问题存储于所有填写问卷页中对应的答案信息按每个答案选项的选择人数进行累加，获得该问题每个答案选项的选择总人数，再以每个绘图问题的所有答案选项和其相应的选择总人数为横纵坐标绘制柱状图。

发明的作用与效果

本发明中的基于VB和PYTHON的问卷录入与绘图***采用该使用VB 6.0编程语言来调用EXCEL程序来完成问卷数据的录入和存储并采用PYTHON 3.5编程语言所编写的软件对问卷数据进行绘图。具有含有录入页面的录入显示部将问卷中的问题与相应的答案显示在录入页面中，供用户录入收集到的问卷信息。存储部将用户录入的问卷信息按对应的编号记录在相应的EXCEL表格页中。绘图部调取EXCEL表格页中存储的需要绘图的问卷信息，进行统计并画图图，再将得到的相应绘图并输出至录入显示部，最终显示在录入显示部中的绘图显示画面中。这样的数据收集方式收集的信息具有良好的稳定性，文字不易发生改变。本发明采用VB 6.0语言进行编程，EXCEL程序作为存储工具，PYTHON对收集到的数据进行统计绘图，三者相结合，使用简易，对用户专业知识要求低，兼容性强，同时用户还可以根据自身的需求对软件进行适应性调整，免去了软件升级的费用，降低成本，非常适合各种初级用户的使用。

附图说明

图1为本发明的基于VB和PYTHON的问卷录入与绘图***的框图；

图2为本发明中空白问卷页的示意图；

图3为本发明中录入页面的示意图；

图4为本发明中暂停画面的示意图

图5为本发明中填写问卷页的示意图；

图6为本发明中绘图的示意图；

图7为本发明中绘图显示画面的示意图；

图8为本发明中查询页面的示意图；

图9为本发明的基于VB和PYTHON的问卷录入与绘图***的动作流程图；

图10为本发明中的暂停单元的动作流程图；以及

图11本发明中的查询修改部的动作流程图。

具体实施方式

为了使本发明实现的技术手段、创作特征、达成目的与功效易于明白了解，以下实施例结合附图对本发明提供的基于VB和PYTHON的问卷录入与绘图***的组成、工作原理以及有益效果作具体阐述。

图1为本发明的基于VB和PYTHON的问卷录入与绘图***的框图。

如图1所示，本实施例中的基于VB和PYTHON的问卷录入与绘图***10，使用VB 6.0编程语言来调用EXCEL程序来完成问卷数据的录入和存储并采用PYTHON 3.5编程语言所编写的软件对问卷数据进行绘图，具有录入显示部20、存储部30、绘图部40、查询修改部50以及控制部60。

录入显示部20具有录入页面201、绘图显示画面202以及暂停单元203。

EXCEL表格中预先设置有空白问卷页和多个带有编号的填写问卷页。

图2为本发明中空白问卷页的示意图。

如图2所示，空白问卷页中预先存有问卷中的所有问题和与每个问题相对应的所有答案选项。预先存储在空白问卷页里的问题中包含有多个带有标记的绘图问题，这些绘图问题采用PYTHON 3.5编程语言所编写的软件进行统计并作图。

图3为本发明中录入页面的示意图；

如图3所示，录入页面201上具有多个显示框2011、编号输入框2012以及完成选项，显示框用于显示和接收问卷信息，编号录入框2012用于输入问卷编号，完成选项用于确认一份问卷已经录入完成。第一个显示框2011同时显示问卷中所有的问题，其后每个显示框2011中与问题对应的行中显示一个与该问题对应的答案选项。

用户录入完一份问卷信息后，录入显示部20将该份问卷的问卷信息和问卷编号输送至存储部30，存储部30将接收到的问卷信息对应地记录在带有对应编号的填写问卷页中。问卷信息包括问卷中的所有问题和分别与这些问题对应的答案信息。

暂停单元203，用于录入过程中的暂停和恢复，暂停单元203包括暂停选项、暂停画面2031、暂停模块以及恢复模块，暂停选项设置在录入页面201中。

图4为本发明中暂停画面的示意图。

如图4所示，暂停画面2031具有恢复选项以及密码输入框2031a。

当用户点选录入画面201上的暂停选项后，暂停模块接收到暂停信号，并将录入页面201转换为暂停画面2031，使得用户无法继续进行录入。当用户点选暂停画面2031中的恢复选项并在密码输入框2031a中输入密码时，恢复模块将接收到用户输入的密码与预先存储在恢复模块中的原始密码进行比较，两者完全一致时恢复模块将暂停画面2031转换为暂停前的录入画面2031让用户继续进行录入，两者不一致时恢复模块继续显示暂停画面2031并提示密码录入错误。

图5为本发明中填写问卷页的示意图。

如图5所示，每个问题与对应的答案记录在同一行中，每行记录一个问题。

当所有的问卷录入完成后，绘图部40提取所有填写问卷页中的绘图问题和该绘图问题的答案信息，并将这些答案信息进行的统计并作图得到统计图，形成以绘图问题为标题同时包含对应统计图的绘图，再将该绘图输出至录入显示部20并显示在绘图显示画面202中。

绘图部40的统计作图方式为：将绘图问题中的每个答案选项的选择人数进行累加，获得该问题每个答案选项的选择总人数，再以每个绘图问题的所有答案选项为横坐标，以其相应的选择总人数为纵坐标绘制柱状图。

每张绘图只包含一个绘图问题及其相应的统计图。

图6为本发明中绘图的示意图。

如图6所示，绘图是“婚姻状况”的统计，以“婚姻状况”为标题，统计图的横坐标为四个答案选项“未婚”、“已婚”、“离异”以及“未填”，统计图的纵坐标为每个答案选项的选择总人数。

图7为本发明中绘图显示画面的示意图意图。

如图7所示，绘图显示画面202中显示了所有绘图问题对应的绘图。

查询修改部50，用于根据问卷编号查询对应的问卷信息并修改存储该问卷数据，包括查询页面501、查询模块502以及修改存储模块503。

图8为本发明中查询页面的示意图。

如图8所示，查询页面501上具有查询框501a、确认选项以及问卷信息显示框501b，

用户在查询框501a中输入问卷编号后点选确认选项进行查询，查询模块502接收到确认信号和用户录入的问卷编号后，调取对应编号的记录的填写问卷页中的问卷信息，并将该问卷信息输出至查询页面501，显示在问卷信息显示框501b中。

修改保存模块503接收用户在查询页面501中录入的修改后的问卷信息后，将该问卷信息保存至相应的填写问卷页中。

控制部60用于控制及协调基于VB和PYTHON的问卷录入与绘图***10中各个组成部分的工作。

图9为本发明的基于VB和PYTHON的问卷录入与绘图***的动作流程图。

如图9所示，基于VB和PYTHON的问卷录入与绘图***10的动作流程包括以下步骤：

步骤S-1，用户打开录入页面201，录入显示部20调取预先记录在空白问卷页中的全部内容并显示在录入页面201上，然后进入步骤S-3。

步骤S-2，用户将问卷的编号输入录入页面201上的编号输入框2012后，录入对应编号的问卷的全部答案信息，点选完成选项，结束一份问卷的录入，然后进入步骤S-3。

步骤S-3，存储部30接收到来自录入显示部20的完整的一份问卷信息后，将该问卷信息记录在EXCELL程序的具有对应编号的填写问卷页中，然后进入步骤S-4。

步骤S-4，当所有的问卷录入完成后，绘图部40提取所有填写问卷页中的绘图问题和该绘图问题的答案信息，分别进行统计，将每个答案选项的选择人数进行累加获得每个答案选项的选择总人数，然后进入步骤S-5。

步骤S-5，绘图部40以每个绘图问题的所有答案选项为横坐标，以其相应的选择总人数为纵坐标绘制柱状图，获得统计图，并形成以绘图问题为标题且包含相对应的统计图的绘图，输出至录入显示部20，然后进入步骤S-6。

步骤S-6，录入显示部20将所有的绘图显示在绘图显示画面202中，完成录入与绘图过程。

图10为本发明中的暂停单元的动作流程图。

如图10所示，暂停单元的动作流程包括以下步骤：

步骤S-21，用户点选录入画面201上的暂停选项2031后，然后进入步骤S-22。

步骤S-22，暂停模块接收到暂停信号，并将录入页面2031转换为暂停画面2032，使得用户无法继续进行录入，然后进入步骤S-3。

步骤S-23，用户点选暂停画面2032中的恢复选项并在密码输入框2032a中输入密码，然后进入步骤S-4。

步骤S-24，恢复模块接收到用户输入的密码后将该密码与预先存储在恢复模块中的原始密码进行比较，然后进入步骤S-5。

步骤S-25，两者完全一致时恢复模块将暂停画面转换为暂停前的录入画面2031让用户继续进行录入，两者不一致时恢复模块继续显示暂停画面2031并提示密码录入错误。

图11本发明中的查询修改部的动作流程图。

如图11所示，查询修改部50的动作流程包括以下步骤：

步骤S-1-1，用户在查询框501a中输入问卷编号后点选确认选项进行查询，然后进入步骤S-1-2。

步骤S-1-2，查询模块502接收到确认信号和用户录入的编号后，调取对应编号填写问卷页中存储的问卷信息，并将该问卷信息输出并显示在问卷信息显示框501b中，然后进入步骤S-1-3。

步骤S-1-3，用户对问卷信息显示框501b中的问卷信息进行修改，然后进入步骤S-1-4。

步骤S-1-4，修改保存模块503接收用户修改后的问卷信息，将该问卷信息保存至相应的填写问卷页中。

以下是实现本发明录入与存储功能的VB6.0的原代码。

(1)问卷录入的准备工作

在VB中调用了“Microsoft Excel 15.0Object Library”，使VB可以实现对于EXCEL的打开、关闭、读取、写入功能。新建窗体FORM1，将其命名为“问题与选项”，声明与EXCEL处理有关的内容。

以下为声明内容：

Dim ExApp As New Excel.Application

Dim ExBook As Excel.Workbook

Dim ExWorksheet As Excel.Worksheet

(2)电子问卷模板形成

按下FORM1的按键，将EXCEL中的问题、选项提取至软件中。

以下代码实现软件的问题与选项提取：

Dim aata(1000)As String

……

Dim hata(1000)As String

Set ExApp＝CreateObject("Excel.Application")

Set ExApp＝New Excel.Application

Set ExBook＝ExApp.Workbooks.Open(Text1.Text)

Set xlsheet＝ExBook.Worksheets("sheet1")

For i＝1To Val(Form2.wt.Text)–1‘确定问题的个数，再导入问题及选项内容

aata(i)＝ExApp.Sheets("sheet1").Range("a"&i).Value

……

hata(i)＝ExApp.Sheets("sheet1").Range("h"&i).Value

Next i

ExApp.ActiveWorkbook.Save

ExApp.Workbooks.Close

ExApp.Quit

For q＝0To Val(Form2.wt.Text)-2

List1.AddItem aata(q+1)

……

List8.AddItem hata(q+1)

Next q

(3)问卷录入

随后新建FORM2，将其命名为“录入区”，在其中新建按钮等。利用CHECK选择框进行问题的勾选，TEXT输入框进行录入选项，录入选项同时进行备份，配有防关闭功能，断点重录功能，激活“临时休息区”。

以下代码实现录入时选项的显示：

If Check3.Caption＝""Then‘查找空白项：check1c和heck2为非空白项，检查check3-8

Check3.Visible＝False

End If

……

If Check7.Caption＝""Then

Check7.Visible＝False

End If

If Check1.Caption＝"("Then

Text1.Visible＝False

Text4.Visible＝True‘打开手工填写窗口

Text4.SetFocus

End If

以下代码实现选择问题选项：

If Val(Text1.Text)＝1And Len(Check1.Caption)>0Then

‘问卷中相应问题项，其Len(object.Caption)>0

Check1.Value＝1

End If

……

If Val(Text1.Text)＝7And Len(Check7.Caption)>0Then

Check7.Value＝1

End If

If Val(Text1.Text)＝8And Len(Check1.Caption)>0Then‘特殊情况窗口被激活

Check8.Value＝1

End If

Text1.Text＝""

以下代码负责在录入时进行备份：

If Text1.Visible＝True Then

‘nb.text为问卷序号(1、2、3….)，text2.text为问题号，no.caption为问卷编号(例：vx0001)

……

Open"d:\副本内容.txt"For Append As#1

Print#1,Val(nb.Text)&"("&Val(Text2.Text)-1&")"&b‘b为选项

Close#1

Open"d:\副本数字.txt"For Append As#2

Print#2,Val(nb.Text)&"("&Val(Text2.Text)-1&")"&c‘c为机械码

Close#2

Open"d:\副本内容"&no.Caption&".txt"For Append As#3

Print#3,b

Close#3

Open"d:\副本数字"&no.Caption&".txt"For Append As#4

Print#4,c

Close#4

Text1.SetFocus

End If

If Text4.Visible＝True And Len(Text4.Text)>0Then

……

Open"d:\副本内容.txt"For Append As#1

Print#1,Val(nb.Text)&"("&Val(Text2.Text)-1&")"&Text4.Text

‘text4.text为特殊情况与文字问题录入的窗口

Close#1

Open"d:\副本数字.txt"For Append As#2

Print#2,Val(nb.Text)&"("&Val(Text2.Text)-1&")"&"无"

Close#2

Open"d:\副本内容"&no.Caption&".txt"For Append As#3

Print#3,Text4.Text

Close#3

Open"d:\副本数字"&no.Caption&".txt"For Append As#4

Print#4,"无"

Close#4

(4)数据导出

新建FORM3，命名为“导出区”，保存同时进行备份。

以下代码实现临时缓存区内的所有内容进行备份：

listnum＝Form4.List4.ListCount

Open"d:\副本1号.txt"For Append As#1

Print#1,Now

Close#1

Open"d:\副本2号.txt"For Append As#2

Print#2,Now

Close#2

For i＝1To listnum

Open"d:\副本1号.txt"For Append As#3

Print#3,Form4.List3.List(i)‘备份问题选项临时存放区

Close#3

Open"d:\副本2号.txt"For Append As#4

Print#4,Form4.List4.List(i)‘备份机械码临时存放区

Close#4

Next i

以下代码实现保存问题选项的功能：

Command4_Click‘对临时缓存区内的所有内容进行备份

Label3.Caption＝""

listnum＝Form4.List3.ListCount

Dim bata(80000)As String‘储存所有问题的选项结果

Dim x(80000)As String‘x、y分别储存EXCEL文档的保存坐标

Dim y(80000)As String‘记录切分点

Dim z(80000)As Single

If Text1.Text＝""Or Text2.Text＝""Then

a＝MsgBox("无效路径！",256)

Exit Sub

End If

For o＝0To listnum

bata(o+1)＝Form4.List3.List(o)

Next o

Set ExApp＝CreateObject("Excel.Application")

Set ExApp＝New Excel.Application

Set ExBook＝ExApp.Workbooks.Open(Text1.Text)

Set xlsheet＝ExBook.Worksheets("sheet1")

……

For la＝1To listnum

On Error Resume Next

xlsheet.Cells(Val(y(la)),Val(x(la))).Value＝Mid(bata(la),z(la)+2)

Next la

Label3.Caption＝"done"

ExApp.ActiveWorkbook.Save

ExApp.Workbooks.Close

ExApp.Quit

(5)问卷数据录入内容的保存与修改

新建FORM4，命名为“临时收录区”，用于支持数据的保存、修改。

以下部分实现“删除直接改正法”的“删除”按钮：

On Error Resume Next

List1.RemoveItem(List1.ListIndex)

List2.RemoveItem(List2.ListIndex)

List3.RemoveItem(List3.ListIndex)

List4.RemoveItem(List4.ListIndex)

以下部分实现“删除直接改正法”的“***”按钮：

Private Sub List3_Click()‘问题选项临时存放区

Text3.Text＝3

List1.ListIndex＝-1

List2.ListIndex＝-1

List4.ListIndex＝-1

End Sub

Private Sub List4_Click()‘机械码临时存放区

Text3.Text＝4

List1.ListIndex＝-1

List2.ListIndex＝-1

List3.ListIndex＝-1

End Sub

Private Sub Command4_Click()‘添加修改内容(注意：第一个格子不能修改)

a＝InputBox("输入修改内容")

If Len(a)＝0Then

Exit Sub

End If

If Text3.Text＝"1"Then

List1.AddItem a,List1.ListIndex+1

End If

If Text3.Text＝"3"Then

List3.AddItem a,List3.ListIndex+1

End If

If Text3.Text＝"4"Then

List4.AddItem a,List4.ListIndex+1

End If

End Sub

Private Sub Command6_Click()‘添加修改内容(注意：仅能修改第一个格子)

a＝InputBox("输入修改内容")

If Len(a)＝0Then

Exit Sub

End If

If Text3.Text＝"1"Then

List1.AddItem a,0

End If

If Text3.Text＝"3"Then

List3.AddItem a,0

End If

If Text3.Text＝"4"Then

List4.AddItem a,0

End If

End Sub

(6)问卷录入的安全

新建FORM5，命名为“临时休息区”，用于录入人员在录入时的临时休息。临时休息区一但激活会关闭所有其他窗口，解除需要密码。

以下代码实现临时休息区：

Private Sub Command1_Click()

If Text1.Text＝"abcdef"Then‘密码为abcdef

Form1.Visible＝True

Form2.Visible＝True

Form4.Visible＝True

Form5.Visible＝False

End If

Text1.Text＝""

End Sub

Private Sub Form_QueryUnload(Cancel As Integer,UnloadMode As Integer)

‘拒绝常规关闭(与录入区防关闭的代码相同)

Cancel＝True

End Sub

以下是实现统计和绘图功能的PYTHON源代码。

首先进行编写的是排除人工填写部分，人工填写部分的内容之间存在较大差异性，因此先行***对这部分数据不自动进行统计学处理。判断后的结果，均以文本文档形式(后缀为“.txt”的文件，简称TXT)保存。

以下代码实现判断是否需要进行自动绘图：

绘图部分以TXT为媒介，结合之前的判断内容与后续添加的内容进行科学绘图。

以下代码实现自动绘图：

实施例的作用与效果

本发明中的基于VB和PYTHON的问卷录入与绘图***采用该使用VB 6.0编程语言来调用EXCEL程序来完成问卷数据的录入和存储并采用PYTHON 3.5编程语言所编写的软件对问卷数据进行绘图。具有含有录入页面的录入显示部将问卷中的问题与相应的答案显示在录入页面中，供用户录入收集到的问卷信息。存储部将用户录入的问卷信息按对应的编号记录在相应的EXCEL表格页中。绘图部调取EXCEL表格页中存储的需要绘图的问卷信息，进行统计并画图图，再将得到的相应绘图并输出至录入显示部，最终显示在录入显示部中的绘图显示画面中。这样的数据收集方式收集的信息具有良好的稳定性，文字不易发生改变。本发明采用VB 6.0语言进行编程，EXCEL程序作为存储工具，PYTHON对收集到的数据进行统计绘图，三者相结合，使用简易，对用户专业知识要求低，兼容性强，同时用户还可以根据自身的需求对软件进行适应性调整，免去了软件升级的费用，降低成本，非常适合各种初级用户的使用。

进一步的，本发明的录入过程中具有暂停录入单元，使得用户在录入过程中出现能够随时停止录入，此时***显示暂停画面防止勿碰导致的录入错误。恢复录入时需要输入密码来返回录入页面，防止***被错误输入导致问卷信息的准确性受到破坏。

本发明还具有查询部能够根据问卷编号查询已经录入的问卷信息，保证录入准确性。当出现录入信息的不确定时可以直接通过编号调取已经录入的问卷信息并进行核查修改，查询过程操作简易快捷，适合初级用户使用。

上述实施方式为本发明的优选案例，并不用来限制本发明的保护范围。

Claims (8)

1.一种基于VB和PYTHON的问卷录入与绘图***，该***使用VB 6.0编程语言调用EXCEL程序来完成问卷数据的录入和存储并采用PYTHON 3.5编程语言所编写的软件对所述问卷数据进行绘图，其特征在于，包括：

录入显示部，具有录入页面及绘图显示画面，用于问卷信息的显示和录入，该问卷信息包括所述问卷中的所有问题和分别与这些问题对应的答案信息；

存储部，将录入的所述问卷信息记录在EXCEL表格中；以及

绘图部，调取所述存储部中存储的所述问卷信息进行绘图并将结果输出至所述录入显示部并显示在所述绘图显示画面中，

其中，所述EXCEL表格中预先设置有空白问卷页和多个带有编号的填写问卷页，

所述空白问卷页中预先存有所述问卷中的所有问题和与每个问题相对应的所有答案选项，

所述问题中包含有多个带有标记的绘图问题，

所述录入显示部调取所述空白问卷页里的所有内容并显示在所述录入页面中，

用户每录入完成一份所述问卷后，所述存储部将该问卷信息按预定的存储方式记录在一个所述填写问卷页内，

每份所述问卷具有问卷编号，该问卷的问卷信息记录在具有相应编号的所述填写问卷页内，

当所有的所述问卷录入完成后，所述绘图部调取所有所述填写问卷页中的所述绘图问题以及与这些问题相对应的所有答案信息，并将这些答案信息按特定的统计方式进行统计并作图得到统计图，形成以所述绘图问题为标题同时包含对应的所述统计图的绘图，再将该绘图输出至所述录入显示部并显示在所述绘图显示画面中，

每张所述绘图只包含一个所述绘图问题及其相应的统计图。

2.根据权利要求1所述的基于VB和PYTHON的问卷录入与绘图***，其特征在于，还具有：

查询修改部，用于根据所述问卷编号查询对应的所述问卷信息并修改存储该问卷信息，包括查询页面、查询模块以及修改存储模块。

3.根据权利要求2所述的基于VB和PYTHON的问卷录入与绘图***，其特征在于：

其中,所述查询模块根据所述用户输入的所述问卷编号调取记录在对应所述填写问卷页中的所述问卷信息，并将该问卷信息显示在所述查询页面上，

所述修改保存模块接收用户在所述查询页面中录入的修改后的所述问卷信息，再将该问卷信息保存至相应的所述填写问卷页中。

4.根据权利要求1所述的基于VB和PYTHON的问卷录入与绘图***，其特征在于：

其中,所述录入部还具有暂停单元，用于录入过程中的暂停和恢复，

所示暂停单元包括暂停选项、暂停画面、暂停模块以及恢复模块，

所述暂停选项设置在所述录入页面中。

5.根据权利要求4所述的基于VB和PYTHON的问卷录入与绘图***，其特征在于：

其中,当所述暂停模块接收到所述用户录入的暂停信号时，所述暂停模块将所述录入页面转换为所述暂停画面，使得所述用户无法继续进行录入，

所述暂停画面具有恢复选项以及密码录入框，

当所述恢复模块接收到用户录入密码和恢复信号时，将该密码与预先存储在所述恢复模块中的原始密码进行比对，两者完全一致时所述恢复模块将所述暂停画面转换为所述录入画面让所述用户继续进行录入，两者不一致时所述恢复模块继续显示所述暂停画面并提示密码录入错误。

6.根据权利要求1所述的基于VB和PYTHON的问卷录入与绘图***，其特征在于：

其中，所述录入页面具有多个显示框，用于显示和接收所述问卷信息，

一个所述显示框用于同时显示所述问卷中所有的问题，

每个所述问题对应的所有答案选项分别对应的显示在不同的所述显示框中。

7.根据权利要求1所述的基于VB和PYTHON的问卷录入与绘图***，其特征在于：

其中，所述存储方式为将所述问题与该问题匹配的答案信息对应进行存储。

8.根据权利要求1所述的基于VB和PYTHON的问卷录入与绘图***，其特征在于：

其中，所述答案信息包括用户录入的所有答案选项，

所述统计方式为将所述绘图问题存储于所有所述填写问卷页中对应的所述答案信息按每个答案选项的选择人数进行累加，获得该问题每个所述答案选项的选择总人数，再以每个所述绘图问题的所有答案选项和其相应的选择总人数为横纵坐标绘制柱状图。