問卷調(diào)查系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)

鄭州師范學(xué)院畢業(yè)論文（設(shè)計(jì)）題目問卷調(diào)查系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)謝傳海學(xué) 號(hào)院系—信息科學(xué)與技術(shù)學(xué)院一專 業(yè) 計(jì)算機(jī)可與與技術(shù)年級(jí)班級(jí)

指導(dǎo)教師2012級(jí)2班~~呂廷勤2016年5月20日畢業(yè)論文（設(shè)計(jì)）作者聲明本人鄭重聲明：所呈交的畢業(yè)論文是本人在導(dǎo)師的指導(dǎo)下獨(dú)立進(jìn)行研究所取得的研究成果。除了文中特別加以標(biāo)注引用的內(nèi)容外，本論文不包含任何其他個(gè)人或集體已經(jīng)發(fā)表或撰寫的成果作品。本人完全了解有關(guān)保障、使用畢業(yè)論文的規(guī)定，同意學(xué)校保留并向有關(guān)畢業(yè)論文管理機(jī)構(gòu)送交論文的復(fù)印件和電子版。同意省級(jí)優(yōu)秀畢業(yè)論文評(píng)選機(jī)構(gòu)將本畢業(yè)論文通過影印、縮印、掃描等方式進(jìn)行保存、摘編或匯編；同意本論文被編入有關(guān)數(shù)據(jù)庫進(jìn)行檢索和查閱。本畢業(yè)論文內(nèi)容不涉及國家機(jī)密。論文題目：?jiǎn)柧碚{(diào)查自系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)作者單位：鄭州師范學(xué)院信息科學(xué)與技術(shù)學(xué)院2012級(jí)2班作者簽名：?jiǎn)柧碚{(diào)查系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)摘要社會(huì)的進(jìn)步與發(fā)展帶來了龐大的信息，如何收集信息變成了重中之重。傳統(tǒng)的做法是向社會(huì)發(fā)放一些調(diào)查表，但是這樣不僅任務(wù)繁重，信息收集起來也相當(dāng)?shù)馁M(fèi)力與繁瑣且收集周期長(zhǎng)，浪費(fèi)人力物力。為了提高信息的收集效率，縮短信息收集周期，我們?cè)O(shè)計(jì)了這個(gè)基于Word的問卷調(diào)查方法。本文使用Office2010自帶功能：Word中的ActiveX控件和Excel函數(shù)功能。以學(xué)校中常見的教師授課調(diào)查為例，利用Word控件設(shè)計(jì)調(diào)查問卷，再用Excel設(shè)計(jì)統(tǒng)計(jì)表格，利用其函數(shù)功能對(duì)數(shù)據(jù)進(jìn)行統(tǒng)計(jì)，二者之間所用VBA代碼關(guān)聯(lián)。關(guān)鍵詞：Word；Excel；VBA；自動(dòng)統(tǒng)計(jì)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問卷調(diào)查的意義 11.2問卷調(diào)查的現(xiàn)狀 11.3目前問卷調(diào)查的不足 21.4問題解決思路 2\o"CurrentDocument"理論支持 3Word控件 3Excel函數(shù) 3VBA 3\o"CurrentDocument"設(shè)計(jì)與實(shí)現(xiàn) 53.1設(shè)計(jì)思路 53.2設(shè)計(jì)實(shí)現(xiàn) 5\o"CurrentDocument"3.2.1制作問卷頁面 53.2.2創(chuàng)建Excel統(tǒng)計(jì)表格 83.2.3編寫VBA代碼 93.2.4說明 17\o"CurrentDocument"存在的問題 18\o"CurrentDocument"總結(jié)與展望 195.1總結(jié) 195.2展望 19\o"CurrentDocument"參考文獻(xiàn) 21\o"CurrentDocument"致謝 22引言1.1問卷調(diào)查的意義問卷調(diào)查是研究者了解事實(shí)現(xiàn)況的一種研究方式，目的是收集一個(gè)目標(biāo)群體的各項(xiàng)屬性的資料，可以分成描述性研究及分析性研究?jī)纱箢?。在決定是不是使用問卷調(diào)查法作為研究工具，應(yīng)該考慮是否可以達(dá)成研究目標(biāo)以及注意研究目標(biāo)對(duì)于問卷調(diào)查的配合度，另外，問卷調(diào)查也有它的優(yōu)點(diǎn)和缺點(diǎn)，根據(jù)其特性配合研究主題，才可以完成目標(biāo)。研究者把需要研究的項(xiàng)目，轉(zhuǎn)化成相應(yīng)的問題，再以問卷的方式，請(qǐng)相關(guān)的人照問卷格式填寫的一種形式［1］問卷調(diào)查，能使研究者直接由被調(diào)查對(duì)象獲得資料，以測(cè)量被調(diào)查對(duì)象個(gè)人的看法，個(gè)人的價(jià)值觀和個(gè)人的態(tài)度，也可以用問卷調(diào)查法去調(diào)查事實(shí)和經(jīng)驗(yàn)。1.2問卷調(diào)查的現(xiàn)狀現(xiàn)在是信息時(shí)代，社會(huì)上充斥著各種各樣的信息，各行各業(yè)的發(fā)展進(jìn)步都需要及時(shí)的掌握對(duì)自身發(fā)展有用的信息。問卷調(diào)查就成為了人們及時(shí)了解所需信息的重要手段。政府需要通過問卷調(diào)查來掌握社會(huì)動(dòng)態(tài)，制定施政方針；企業(yè)需要通過問卷調(diào)查來了解市場(chǎng)需求與消費(fèi)者的心理來制定企業(yè)的發(fā)展方向和發(fā)展計(jì)劃；老師需要通過問卷調(diào)查來了解學(xué)生實(shí)時(shí)的學(xué)習(xí)進(jìn)度和知識(shí)點(diǎn)的掌握程度來制定下一步的教學(xué)計(jì)劃。由此可見，問卷調(diào)查在現(xiàn)今社會(huì)中擁有非常重要的作用，而問卷調(diào)查的數(shù)據(jù)結(jié)果的統(tǒng)計(jì)是問卷調(diào)查過程中最重要的一步。問卷調(diào)查，因?yàn)樗褂玫妮d體不一樣，可以分成紙質(zhì)問卷調(diào)查與網(wǎng)絡(luò)問卷調(diào)查兩種。紙質(zhì)問卷調(diào)查就是傳統(tǒng)的問卷調(diào)查，調(diào)查者使用人工來發(fā)紙質(zhì)問卷，再將填寫完成的問卷回收。這樣的問卷調(diào)查方式存在一些缺點(diǎn)，結(jié)果的統(tǒng)計(jì)與分析非常麻煩，成本比較高。網(wǎng)絡(luò)問卷調(diào)查，就是調(diào)查者通過一些在線問卷調(diào)查網(wǎng)站，這些網(wǎng)站能夠提供設(shè)計(jì)問卷，問卷發(fā)放，結(jié)果分析等服務(wù)。這種問卷調(diào)查方式的優(yōu)點(diǎn)是沒有地域限制，成本低廉，缺點(diǎn)是問卷的質(zhì)量沒有保證，可能出現(xiàn)亂填的現(xiàn)象使調(diào)查出現(xiàn)錯(cuò)誤。目前國外的問卷調(diào)查網(wǎng)站有surveymonkey，該網(wǎng)站提供了這種方式，而在國內(nèi)有問卷星、調(diào)查派等網(wǎng)站提供這種方法。1.3目前問卷調(diào)查的不足現(xiàn)在最常用的問卷調(diào)查有兩種方式：紙質(zhì)問卷調(diào)查和專業(yè)問卷制作網(wǎng)站。紙質(zhì)問卷是應(yīng)用范圍最廣的問卷調(diào)查方式，雖然在問卷是比較方便，調(diào)查對(duì)象也沒限制，各個(gè)年齡段、行業(yè)的人都可以成為紙質(zhì)問卷的調(diào)查對(duì)象，但是紙質(zhì)問卷的成本太高，在回收問卷、對(duì)結(jié)果進(jìn)行統(tǒng)計(jì)的時(shí)候比較麻煩。當(dāng)調(diào)查對(duì)象太多的時(shí)候，需要花費(fèi)大量的人力來對(duì)結(jié)果進(jìn)行統(tǒng)計(jì)。所以，這種問卷調(diào)查方式無法適用于大范圍的調(diào)查。專業(yè)問卷制作網(wǎng)站是最新興起的一種問卷調(diào)查方式，雖然這種方式的問卷調(diào)查可以自動(dòng)統(tǒng)計(jì)分析調(diào)查結(jié)果，但是，這種問卷調(diào)查方式的對(duì)象有一定的局限性，只適用于那些可以懂得計(jì)算機(jī)并可以及時(shí)上網(wǎng)的對(duì)象，而且問卷的質(zhì)量也無法保證。1.4問題解決思路大家知道Office辦公軟件中Word可以制作問卷文檔，Word中的控件可以把普通文檔轉(zhuǎn)化成帶選項(xiàng)，可傳送數(shù)據(jù)的文檔。Excel中有各種各樣的函數(shù)，相應(yīng)函數(shù)讓Excel表格具有自動(dòng)統(tǒng)計(jì)的功能，解決問卷調(diào)查結(jié)果統(tǒng)計(jì)繁瑣的問題。VBA代碼可以拓展Office辦公軟件的功能，將Word問卷文檔與Excel統(tǒng)計(jì)表格聯(lián)系起來，將Word問卷文檔中的數(shù)據(jù)傳輸?shù)紼xcel統(tǒng)計(jì)表格中。所以，直接利用Office辦公軟件自身的功能就可以解決目前問卷調(diào)查的不足。理論支持為了實(shí)現(xiàn)利用Office辦公軟件自身功能實(shí)現(xiàn)自動(dòng)統(tǒng)計(jì)數(shù)據(jù)結(jié)果的功能，在研究過程中應(yīng)用了Word控件、Excel函數(shù)、VBA。Word控件word控件主要是在VBA窗體中使用，每一個(gè)控件都是一個(gè)單獨(dú)的模塊，具的體功能通過編寫VB代碼以及對(duì)屬性的設(shè)置來實(shí)現(xiàn)。有些控件也可以在word文檔中使用［2］。word控件其實(shí)是VBA的可視化界面，要求了解掌握一定的VBA知識(shí)，才可以很好的使用Word控件工具箱。通過控件工具中選項(xiàng)按鈕控件、復(fù)選框控件、文本框控件等可以制作單選題、多選題、填空題，因此，可以用Word制作調(diào)查問卷。Excel函數(shù)Excel是Office辦公軟件中十分重要的一款軟件°Excel中提到的函數(shù)其實(shí)是一些預(yù)定義的公式，Excel函數(shù)通過一些被稱為參數(shù)的特定數(shù)值按照一定的順序進(jìn)行計(jì)算。Excel函數(shù)一共有11類，分別是數(shù)據(jù)庫函數(shù)、日期與時(shí)間函數(shù)、工程函數(shù)、財(cái)務(wù)函數(shù)、信息函數(shù)、邏輯函數(shù)、查詢和引用函數(shù)、數(shù)學(xué)和三角函數(shù)、統(tǒng)計(jì)函數(shù)、文本函數(shù)以及用戶自定義函數(shù)。Excel處理數(shù)據(jù)的功能在現(xiàn)在的文字處理軟件中能說是首屈一指的，沒有哪一款軟件可以與之匹敵。函數(shù)是Excel對(duì)數(shù)據(jù)進(jìn)行處理的最重要手段之一，功能非常強(qiáng)大，在學(xué)習(xí)與工作中有多種應(yīng)用方法，甚至您能用Excel來設(shè)計(jì)完成復(fù)雜的統(tǒng)計(jì)管理表格或者小型的數(shù)據(jù)庫系統(tǒng)。VBAVisualBasicforApplications(VBA)是VisualBasic的一種宏語言，是微軟開發(fā)出來在其桌面應(yīng)用程序中執(zhí)行通用的自動(dòng)化(OLE)任務(wù)的編程語言［3］。主要是用來對(duì)Windows的應(yīng)用功能進(jìn)行擴(kuò)展，特別是Office辦公軟件。也可以把它當(dāng)成一種應(yīng)用程序視覺化的Basic腳本。這個(gè)語言是1993年微軟公司開發(fā)出來的應(yīng)用程序共享的通用的自動(dòng)化語言--VisualBasicForApplication(VBA)。常用的辦公軟件Office中的Word和Excel都可以用VBA來使這些軟件的應(yīng)用效率更高。人們通常只是用Word來編排文檔，實(shí)際上我們可以用VBA讓W(xué)ord具備更加強(qiáng)大的功能，如:給文檔中添加上菜單和命令以及讓文檔實(shí)現(xiàn)控制功能。設(shè)計(jì)與實(shí)現(xiàn)3.1設(shè)計(jì)思路問卷調(diào)查分為調(diào)查和統(tǒng)計(jì)分析兩部分，所以我的設(shè)計(jì)思路是：首先，確定需要調(diào)查的問題、問題的形式等用word編排好問卷樣式，再利用word中的控件完成問卷頁面的制作。使用Excel軟件制作一個(gè)表格，按照問卷中的問題對(duì)表格中的每一列屬性進(jìn)行設(shè)置，再添加相應(yīng)的函數(shù)使表格具備自動(dòng)統(tǒng)計(jì)功能。在問卷頁面中的命令按鈕控件的代碼編輯器，在其中編寫將問卷頁面與統(tǒng)計(jì)表格相關(guān)聯(lián)的VBA代碼。3.2設(shè)計(jì)實(shí)現(xiàn)3.2.1制作問卷頁面第一步：打開Word2010，新建一份空白文檔。第二步：?jiǎn)螕簟拔募卑粹o，選擇“選項(xiàng)”命令，在打開的對(duì)話框中單擊“自定義功能區(qū)”，然后在右側(cè)勾選“開發(fā)工具”復(fù)選框，調(diào)出開發(fā)工具工具欄。如圖所示：_R)Bn>IVdcriMcnWord圖調(diào)出開發(fā)工具

_R)Bn>IVdcriMcnWord圖調(diào)出開發(fā)工具第三步：在空白文檔中將問卷的問題與選項(xiàng)的文字與格式編排好，然后單擊“開發(fā)工具”，在“控件”一欄中的舊式工具中選擇問卷文檔需要用到的文本框、選項(xiàng)按鈕、命令按鈕等控件。單擊“設(shè)計(jì)模式”，在“設(shè)計(jì)模式”下對(duì)控件屬性進(jìn)行設(shè)置。如圖所示:玄帽■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*“l(fā)ryl? ：1-bE-hdl-SATtsm■Ftt■UCOJCOK*有位卷加是否技時(shí)上課彳1Te

心廠匚?偶爾不準(zhǔn)St供認(rèn)為說位老叮的上課詣M怎女樣了?非常笨亂II口*圖設(shè)置屬性注：在設(shè)置控件屬性時(shí)涉及的屬性有“名稱”，選擇題中，每一個(gè)選項(xiàng)控件的屬性中的“GroupName”屬性必須設(shè)置成一樣的而且每?jī)傻肋x擇題的“GroupName”屬性不能一樣，否則會(huì)出現(xiàn)錯(cuò)誤，統(tǒng)計(jì)結(jié)果的時(shí)候會(huì)弄混淆。第四步：屬性設(shè)置完畢后，Word問卷文檔就制作成功了。問卷頁面如圖、圖和圖所示：

教師授課情況調(diào)查表客位尋手I在（5字蓉霓中I自們即普嵯手蕓言用建，字世岌在堂，固為愕n教師授課情況調(diào)查表客位尋手I在（5字蓉霓中I自們即普嵯手蕓言用建，字世岌在堂，固為愕n侶西蘭空李與了裳手茸*電e牌：里了筑苣芋日傍無I技們?cè)O(shè)計(jì)了立旨.漱骯空景帝&伯否最％:&逢主任對(duì)友莖釣克金垣任H棗山基巖上，花信由號(hào)罟參觀自三的,沌河,如.■?「軍垃鉀怙苞革]?il]kK^t^.也是河目已化￡8,田肯彌的,于布里叟，￡電團(tuán)二散!亍再定就芋’宜祥晝重的壬正老^是序fll-巖，1、遺位翻幣是否拉時(shí)上謖t-.扯.『Bf?部I「。*頊江E經(jīng)常不淮葉，，i；】.，七勺乂氣止粕％.：=?『.:.由意PI-,且有由殺打*?+=:.:.:r:非恭亂:.遮■起祐譚堂上的講注情就也掉?fr-姍一邊注■同宇的屈怙只注惹部分宇生『I.：?'[?_!.=.?.?.王三亨三j；-..-^IZ^n;：=r:in■：：■ET*虱!范認(rèn)百■E?理有，喧字跡不甬f:很阻便劇■與r[-..十E5、 送恒恿幣上皆時(shí)的律堂紀(jì)律底幺林Y/、點(diǎn)?E；；/二『:-/.：-『[攔丞位新幣上一后,布苣的課夕匪II■里怎也掉?『"'3r：,T--I任七ri■■■-'Si-i■?遮■起幣折近的作業(yè)it改情用n附uISWS.湖幃r有布置IIK御-，業(yè)t罰蘭助，W.「DuISWS.湖幃r有布置IIK御-，業(yè)t罰蘭助，W.「D有布孟從就由我你擷盹始中使用學(xué)寐㈱學(xué)篝崢f'?'.后m云"隹用徂當(dāng)（'■'■7-B不嫻」?云甘二漓?:i涉關(guān)卒？-：.碰<Bt-?f-C部分不情■】T'.-'E心無隅常占用自習(xí)濯柬者彩卜時(shí)曲行孫期?-:.，，急-氣:?專-I'股】1甜課后滑她襄行學(xué)生的輔黝普建羽-.'.?聲,「：F二.而％岸了可愜在"右岸牛.井三牛方面酬膨樣?「.：一脂'二*：郭「.-Hir:轉(zhuǎn)差的制祐踞學(xué)生M為即*;...，=藉「"W"「.：列性盜旎祐爰有翱或腳郵學(xué)生的膻?S：專*?E「：壬#「[前::■詢立赫是否有上理制手聃強(qiáng)象?sW*■不1「二罕16■■詢旎稷否有有置教行為?f■:吉圖問卷頁面■B很少有LC一直有你認(rèn)為老師上課的衣昔打扮是否得體？-A得體lB基本得體LC不太得體這位走師授課以來，你的學(xué)習(xí)成攜怎么樣？-A明顯進(jìn)步lB有些進(jìn)步尸C沒進(jìn)步LD有退步場(chǎng)、你對(duì)這位教師M德、能、勤、績(jī)四方面做一個(gè)評(píng)價(jià)？LA優(yōu)秀LB良好-c合格LD不合格對(duì)、你時(shí)這位救師救學(xué)有何意見或建設(shè)：圖問卷頁面3.2.2創(chuàng)建Excel統(tǒng)計(jì)表格第一步：打開Excel2010，新建一個(gè)Excel文件。第二步：建立此格式存儲(chǔ)表格，每道題一行，每個(gè)學(xué)號(hào)一列。如圖所示：

1費(fèi)hlbr^nltEdkH竺■玨1g.饑E-ffiffiB￡-ywxEZJ!T田和■U「晶.A-C■=.祖 =白祉防yn■力式 Q樂?唯，胡?頊s■普圜侑急g紋伽箕賽M卑尚fl岸此.克版.■?j命， !AlAEciiFGH1JEL1X0pL123司507s9:LUILn1324g546反&89810g1L101011131214IS15Li16151716181920L9盤12?2223圖統(tǒng)計(jì)表格3.2.3編寫VBA代碼在“開發(fā)工具”中單擊“設(shè)計(jì)模式”下，然后雙擊“提交”命令按鈕，調(diào)出“VisualBasic”編輯器,或者用鼠標(biāo)右鍵單擊“提交”按鈕，在彈出的菜單里,單擊“查看代碼”進(jìn)入編輯器，然后就可以在代碼編輯窗口下輸入代碼［4。編輯代碼如下圖圖和圖所示：的MfcrGMft用商町況就-期S|既|?亦汕001灑皿血或|:血宜仁工HiitD或四塹ItA'JlfflSEU旅些運(yùn)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./機(jī)]禎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設(shè)計(jì)】-UThi-sDocurnenl[ft5iyj:由交輯(El^3i￡>贈(zèng)比SAID瞄Q詆就<0運(yùn)行?工=CD工皂-ProjectHIo-x-hkI口?融Proj*ol(ft?)SFilscroicEt:VdtJ.時(shí)柬S']TlisDQcuAULts-Q引用ElsetKotlshAftt-.KpjlimwHciclCells〔15』EiJIfIf呷財(cái)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:、學(xué)習(xí)、論文\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（〃已成功將本問卷結(jié)果傳遞到電子表格中！，謝謝合作！〃）EndSub3.2.4說明本代碼的設(shè)計(jì)思想：讓填寫問卷的學(xué)生先把自己的學(xué)號(hào)輸入，根據(jù)每個(gè)學(xué)生的學(xué)號(hào)不同，將其填寫的問卷結(jié)果提交到Excel統(tǒng)計(jì)表格相對(duì)應(yīng)的列。因?yàn)橄胍尡徽{(diào)查的學(xué)生的答案全部提交在一個(gè)Excel表格中，方便統(tǒng)計(jì)，但是一個(gè)Excel表格文件無法在多臺(tái)機(jī)器上同時(shí)打開，所以，參與問卷調(diào)查的學(xué)生做完后先保存在學(xué)生機(jī)上，然后通過FTP上傳到教師機(jī)的服務(wù)器上，再一個(gè)問卷一個(gè)問卷的進(jìn)行提交，當(dāng)點(diǎn)擊“提交”按鈕后，會(huì)出現(xiàn)一個(gè)提示提交成功的消息，然后單擊“確定”按鈕。這樣就可以保證把所有的問卷結(jié)果都保存到了同一個(gè)Excel表格中。在點(diǎn)擊“提交”之前，必須在程序指定的位置建立相對(duì)應(yīng)的表格。存在的問題本次設(shè)計(jì)是以我自己上課的經(jīng)歷為例進(jìn)行的，授課教師對(duì)我們學(xué)生的學(xué)習(xí)情況的摸底問卷調(diào)查，學(xué)生在學(xué)生機(jī)上填寫完問卷后通過FTP發(fā)送到教師機(jī)上，再由教師一份份點(diǎn)擊提交，才可以把所有學(xué)生的問卷結(jié)果保存到一張表格中。教師機(jī)與學(xué)生機(jī)在同一局域網(wǎng)內(nèi)，因此可以用這種方法來進(jìn)行授課情況的調(diào)查。但是這種問卷調(diào)查方式存在一定的問題：調(diào)查者與被調(diào)查對(duì)象需要在同一個(gè)網(wǎng)絡(luò)中，而且被調(diào)查對(duì)象需要把填寫好的問卷發(fā)送給調(diào)查者。收到被調(diào)查對(duì)象填寫完成的問卷后需要一份一份提交，工作量大，容易出現(xiàn)遺漏。在點(diǎn)擊“提交”前，必須在指定的位置建立對(duì)應(yīng)的文件，在這個(gè)程序中,必須在教師機(jī)上新建一個(gè)Excel表格，用來保存被調(diào)查學(xué)生提交的問卷答案?？偨Y(jié)與展望5.1總結(jié)21世紀(jì)，我國正慢慢走入信息時(shí)代，各行各業(yè)的發(fā)展與規(guī)劃越來越依賴對(duì)信息的統(tǒng)計(jì)與分析。目前，在統(tǒng)計(jì)與分析信息的過程中，問卷調(diào)查是非常重要的一種方式。因此在充斥著各種信息的今天，設(shè)計(jì)一種方便快捷的問卷方式是非常有意義的。而問卷調(diào)查最重要的是對(duì)問卷結(jié)果的統(tǒng)計(jì)與分析，所以不得不考慮對(duì)問卷結(jié)果的統(tǒng)計(jì)問題，否則問卷就變的毫無意義。針對(duì)問卷結(jié)果自動(dòng)統(tǒng)計(jì)