【導(dǎo)讀】基于VBA的試卷生成系統(tǒng)的設(shè)。除了文中特別加以標(biāo)注引用的內(nèi)容外，本論文不包含任何其他個人或集體已經(jīng)發(fā)表或。撰寫的成果或作品。本人完全意識到本聲明的法律后果由本人承擔(dān)。關(guān)畢業(yè)論文管理部門或機(jī)構(gòu)送交論文的復(fù)印件和電子版，允許論文被查閱和借閱。關(guān)數(shù)據(jù)庫以資檢索，可以采用復(fù)印、縮印或掃描等復(fù)制手段保存和匯編本畢業(yè)論文。試，因而試卷的質(zhì)量將直接影響到教學(xué)評價的結(jié)果。一般情況下，教師出試卷時要從龐大。卷，這樣既費時又費力而且很難保證試題的覆蓋面和把握試卷的難度。為了減輕教師的工。作量也為了提高試卷的質(zhì)量以及使試卷規(guī)范化，本文開發(fā)一個試卷生成系統(tǒng)。利用MSOffice技術(shù)，在ASP中將數(shù)據(jù)。庫和Word的VBA技術(shù)相結(jié)合，從而可以高效能、大容量地收集、處理、存儲題庫信息，要求的試卷文檔。

　　

【正文】 hile not z=z+1 xz0=選擇題 (本大題共 amp。rs3(choosecount)amp。小題，每題 amp。rs3(chooseper)amp。分 ,共 amp。cmarkamp。分 ) xz1=amp。 rs2(mainbody) amp。 ( ) xz2=A. amp。 rs2(q_a) amp。 B. amp。 rs2(q_b) amp。 xz3=C. amp。 rs2(q_c) amp。 D. amp。 rs2(q_d) amp。 xz4=amp。zamp。. if rs2(q_e) and rs2(q_f) then xz=xzamp。 Chr(13) amp。xz4amp。xz1amp。 Chr(13) amp。xz2 amp。 Chr(13) amp。xz3amp。 Chr(13) amp。xz5 else xz=xzamp。 Chr(13) amp。xz4amp。xz1amp。 Chr(13) amp。xz2 amp。 Chr(13) amp。xz3 end if wend 其次，將試卷的內(nèi)容以二進(jìn)制的方式導(dǎo)入 WORD 中： set fs = CreateObject() set exc = ((),2,True) (excelstring) if (()) then% %(a href=試卷已經(jīng)生成，點擊查看 /a) else (生成試卷失??！ ) end if (1)試題導(dǎo)入 WORD 的過程只能實現(xiàn)基本的文本導(dǎo)入，但是由于教師提供的試卷模板中對于不同的文本內(nèi)容有不同的字體設(shè)置，因此如何設(shè)置試卷的字體是本子系統(tǒng)的關(guān)鍵問題。 基于 VBA的試卷生成系統(tǒng)的設(shè)計與實現(xiàn) 26 解決方案是在 WORD中利用 VBA對試卷進(jìn)行排版。 VBA(Visual Basic for Applications)作為新一代標(biāo)準(zhǔn)宏語言，具有跨越多種 Office 應(yīng)用軟件并且控制應(yīng)用軟件對象的能力。它提供了面向?qū)ο蟮某绦蛟O(shè)計方法，可以使用宏記錄器記錄用戶的所需要的操作，并將其轉(zhuǎn)換成 VBA代碼，使工作自動化，從而可以提高工作效率。 在 Microsoft Visual Basic 編輯器中，利用用戶模板設(shè)計一個用戶操作界面，可以對試卷中的各個題型的標(biāo)題進(jìn)行字體設(shè)置，其主要編碼體現(xiàn)在各個按鈕的觸發(fā)事件中，如Private Sub CommandButton1_Click()等。 [11]為了簡化教師的工作，避免每次使用該試卷模板時反復(fù)使用“宏”的工具，特別將該功能設(shè)置成 WORD 標(biāo)題欄中的一部分，放于“撤消鍵↙”的右面。 以試題大標(biāo)題后括號內(nèi)的注釋為例，實現(xiàn)過程如下： Sub ziti() Dim context As String context = If context Like 本大題共 *小題，每題 *分 ,共 *分 Then With .ClearFormatting With .Replacement .ClearFormatting . = 12 . = 宋體 End With .Execute findtext:=context, Format:=True, Replace:=wdReplaceAll End With End If 2021屆本科畢業(yè)論文（設(shè)計 ） 27 7 系統(tǒng)評價 系統(tǒng)特色 /優(yōu)點介紹 本系統(tǒng)具備了試卷生成系統(tǒng)的基本特點，無論是界面設(shè)計還是系統(tǒng)設(shè)置都是從方便用戶使用角度出發(fā)。系統(tǒng)的特色歸納如下： (1)本系統(tǒng)是根據(jù)試卷生成的實際需求進(jìn)行設(shè)計和開發(fā)的，切合實際，具有很強(qiáng)的實用性。 (2)提供了功能強(qiáng)大的題庫管理，可以對課程進(jìn)行管理，課程的知識點進(jìn)行管理，還可以對不同科目題庫中的題數(shù)進(jìn)行統(tǒng)計，知識點進(jìn)行查看。每個試題還包括知識點，難度等信息。 (3)每一份試卷都是根據(jù)教 師的實際需求產(chǎn)生的。 (4)試卷可以導(dǎo)入 WORD 中，進(jìn)行符合院教務(wù)處對測試試卷要求的排版和打印。 (5)教師只能預(yù)覽自己編輯的試卷，只能對自己編輯的試卷進(jìn)行打印或刪除管理，具有一定安全性。 系統(tǒng)的不足和改進(jìn)方案 由于 自身所學(xué)知識貧乏以及 時間所限等原因，本系統(tǒng)還存在一些不足的地方，各項功能還不是完全的實現(xiàn)，例如： (1)組卷的方式比較單一，沒有實現(xiàn)隨機(jī)組卷的功能。 (2)還需進(jìn)一部增強(qiáng)安全性。 (3)在具體的編程過程中，應(yīng)當(dāng)注意將來安裝的容易性，最好將數(shù)據(jù)庫連接字符串定義成一個常量。 (4)系統(tǒng)的界 面不夠美觀。 因此，此系統(tǒng)要從美觀、功能和技術(shù)上三個方面做重點改進(jìn)。在美觀方面還要不斷的提高自己的審美觀，要熟練的掌握網(wǎng)頁開發(fā)工具，功能方面要擴(kuò)大系統(tǒng)的功能，使得以前沒有實現(xiàn)的功能能夠?qū)崿F(xiàn)，對已有的功能要進(jìn)行修改擴(kuò)充，技術(shù)方面雖然系統(tǒng)的基本功能已經(jīng)實現(xiàn)，但制作方面還不夠細(xì)膩，因此很多方面還需要仔細(xì)考慮。 設(shè)計心得與體會 畢業(yè)設(shè)計階段就要結(jié)束了，緊接而來的就是論文答辯，論文答辯是對我們四年來的學(xué)習(xí)生活的考察，檢驗自己是否是一名合格的大學(xué)畢業(yè)生。在這最后的時刻心情既緊張又興奮。在設(shè)計階段我認(rèn)為是四年生 活中過的最充實的一段時光，使我學(xué)到了很多很多。 我覺得畢業(yè)設(shè)計是最能檢驗大學(xué)所學(xué)知識的時候。就我自己而言我認(rèn)為我沒有很好的基于 VBA的試卷生成系統(tǒng)的設(shè)計與實現(xiàn) 28 運用這四年的時光，對知識的學(xué)習(xí)還是僅僅存在于表面，沒有能夠深入的展開。對所學(xué)知識的一知半解在考試方面尚可過關(guān)，但真正要運用到實踐中便不知道如何下手了，要自己去獨立完成一個開發(fā)設(shè)計困難重重。 我說這些也就是想要告訴大家我在設(shè)計當(dāng)所認(rèn)識到的?！皶接脮r方恨少”，這句話一點也沒錯，在設(shè)計中我深深感受到了這一點。但“萬事開頭難”，只要你狠下一股勁，持之以恒，你就肯定能有很大的收獲。雖然不能說在短 時間內(nèi)不能學(xué)到很多，但一旦你有了信心就不怕學(xué)不好，只要自己持之以恒就沒有什么學(xué)不好的，我相信最后必將實現(xiàn)自己的愿望。 通過這段時間的畢業(yè)設(shè)計，我體會到了軟件開發(fā)不僅是編程，它需要方方面面的考慮，同時也必須具備比較全面的知識。就像我們生活中的第一件事都需要有始有終，認(rèn)真對待。 在設(shè)計過程中也遇到了許多困難，在指導(dǎo)老師的熱情幫助下，也通過自己的努力完成設(shè)計，不但培養(yǎng)了我的細(xì)心和耐性，樹立了一種科學(xué)的學(xué)習(xí)態(tài)度。這對我以后的工作和學(xué)習(xí)有了很大的指導(dǎo)和幫助。同時我也認(rèn)識到本身不存在很多不足的地方，還需要不斷的努力來充 實自己完善自己，只有這樣才能學(xué)無止境，尋求得更大的發(fā)展。 2021屆本科畢業(yè)論文（設(shè)計 ） 29 結(jié) 論 這次設(shè)計我覺得最大的收獲是軟件設(shè)計概念思想的建立。以前做事沒有明確的思路就開始做，當(dāng)遇到問題時才發(fā)現(xiàn)是由于剛開始考慮的不夠周到所致。通過這次設(shè)計發(fā)現(xiàn)，軟件設(shè)計前工作準(zhǔn)備的重要性。 在做開題報告的過程中，我們通過主動的系統(tǒng)調(diào)查、系統(tǒng)分析，完成系統(tǒng)的結(jié)構(gòu)設(shè)計，數(shù)據(jù)庫規(guī)劃等工作，這對我們將要開發(fā)的系統(tǒng)有了更深的了解，為下一步系統(tǒng)開發(fā)做好了準(zhǔn)備。這使我們建立了軟件設(shè)計的正確概念，為今后繼續(xù)開發(fā)系統(tǒng)奠定了基礎(chǔ)。 設(shè)計過程中遇到的艱辛讓我感覺到 以前學(xué)習(xí)的不足。通過問題的交流我也感覺到，討論會是問題清晰化，更容易發(fā)現(xiàn)問題，解決問題，也積累了編程經(jīng)驗。同時我還認(rèn)識到，無論什么方面的編程，都要經(jīng)過不斷的實踐積累，而不是一蹴而就的。 四年的學(xué)習(xí)不算很短，也不算很長。計算機(jī)知識的運用也不止一次了，但我覺得這次畢業(yè)設(shè)計才是一種真正的實戰(zhàn)。從開始到結(jié)束，老師只能在軟件開發(fā)的整體設(shè)計和思路上給我們指導(dǎo)，但如何用語言把該軟件給開發(fā)出來，要完全由自己去完成，這對于我們來說是一種鍛煉更是一種挑戰(zhàn)，這次畢業(yè)設(shè)計為我們今后的開發(fā)工作奠定了基礎(chǔ)，積累了經(jīng)驗。 基于 VBA的試卷生成系統(tǒng)的設(shè)計與實現(xiàn) 30 參 考 文 獻(xiàn) [1]林陳雷 ,郭安源 .教育信息化系統(tǒng)開發(fā)實例導(dǎo)航 [M].人民郵電出版社， 2021 [2]李政． VBA應(yīng)用基礎(chǔ)與實例教程 ［ M］ .北京 ： 國防工業(yè)出版社， 2021,5. [3]楊曉亮 .Word VBA高效排版應(yīng)用 ［ M］ .北京：中國青年出版社， 2021 [4]馬開顏 . ASP實用教程 ［ M］ . 北京：北京理工大學(xué)出版社， 2021. [5]北京博彥科技發(fā)展有限責(zé)任公司 .OfficeVBA 編程高手 [M].北京：北京大學(xué)出版社， 2021,5. [6]韓小良 ,韓舒婷 .Excel VBA從入門到精通 ［ M］ .北京：科 學(xué)出版社， 2021,3. [7]林丕源 .VBA 在 word文檔中的應(yīng)用 [J] .現(xiàn)代計算機(jī) ， 2021.(9):8589. [8]韓小良 ,周寧 .Excel VBA 實用技巧大全 [M].北京 :中國鐵道出版社， 2021,7. [9]高守傳 .精通 SQL—— 結(jié)構(gòu)化查詢語言詳解 ［ M］ .北京： 人民郵電出版社 ， [10]韓小良 ,陳鑫 . Excel VBA與數(shù)據(jù)庫整合應(yīng)用范例精講 ［ M］ .北京：科學(xué)出版社 .2021,9 [11]李政 .Office XP編程基礎(chǔ)與開發(fā)實例 ［ M］ .北京：國防工業(yè)出版社 ， 2021,12. 2021屆本科畢業(yè)論文（設(shè)計 ） 31 致 謝 這篇論文得以最終完成，我需要感謝很多人，首先我要感謝 這幾年中教過我的所有的老師們，是他們的耐心教導(dǎo)讓我鞏固了我的專業(yè)知識。其次，感謝這幾年里所有陪伴我的同學(xué)們，是他們讓我的校園生活在充實忙碌之余也不乏鮮活與靈動， 正是有了他們的幫助，我才能不斷的獲取信心直至論文的完成。 謝謝他們！ 這篇論文的完成 我最要感謝的還是賈新民老師， 在我的整個寫作過程中得到了他真誠的幫助與指導(dǎo)， 是他不厭其煩地給予我一次又一次的指導(dǎo)和幫助，從論文的選題到今天的答辯，他都給了我很大的支持。在論文的寫作過程中，只要有問題咨詢他，他都會盡己所能地在第一時間予以解答。 寫作初期我對畢業(yè)論文的寫作一臉茫然，是他耐心的指導(dǎo)我去分析思路，并幫助探尋整理資料的方法和途徑，讓我在以后的寫作中有了清晰的思路作指導(dǎo)，寫作期間老師對我的每一個問題都細(xì)心的給予指導(dǎo)，并不斷的鼓勵我，讓我得以順利的完成了論文的寫作。賈 老師認(rèn)真嚴(yán)謹(jǐn)?shù)墓ぷ鲬B(tài)度和活潑樂觀的個性， 我很是敬佩。在此，誠摯地感謝賈老師對我論文寫作的悉心指導(dǎo)！ 最后，我還得向在百忙之中抽出時間對本篇論文進(jìn)行審閱，評議和今天參與學(xué)生論文答辯的各位老師表示衷心的感謝，謝謝你們！ 內(nèi)部資料 請勿外傳 9JWKf wvGt YM*Jgamp。 6a*CZ7H$dq8Kqqf HVZFedswSyXTyamp。 QA9wkxFyeQ^! djsXuyUP2kNXpRWXm Aamp。 UE9aQ@Gn8xp$Ramp。 849Gx^Gj qv^$UE9wEwZQc@UE% amp。 qYp@Eh5pDx2zVkum amp。 gTXRm 6X4NGpP$vSTTamp。 ksv*3t nGK8! z89Am YWpazadNuKNamp。MuWFA5uxY7JnD6YWRr Wwc^vR9CpbK! zn% Mz849Gx^Gj qv^$UE9wEwZQc@UE%amp。 qYp@Eh5pDx2zVkumamp。 gTXRm 6X4NGpP$vSTTamp。 ksv*3t nGK8!z89Am YWpazadNuKNamp。MuWFA5ux^Gj qv^$UE9wEwZQc@UE%amp。 qYp@Eh5pDx2zVkumamp。 gTXRm 6X4NGpP$vSTTamp。 ksv*3t nGK8! z89Am YWpazadNuKNamp。MuWFA5uxY7JnD6YWRr Wwc^vR9CpbK! zn%Mz849Gx^Gj qv^$UE9wEwZQc@UE%amp。 qYp@Eh5pDx2zVkumamp。 gTXRm 6X4NGpP$vSTTamp。 ksv*3t nGK8! z89Am UE9aQ@Gn8xp$Ramp。 849Gx^Gj qv^$UE9wEwZQc@UE%amp。 qYp@Eh5pDx2zVkumamp。 gTXRm6X4NGpP$vSTTamp。 ksv*3t nGK8!z89Am YWpazadNuKNamp。 MuWFA5uxY7JnD6YWRr Wwc^vR9CpbK!zn%Mz849Gx^Gj qv^$UE9wEwZQc@UE% amp。 qYp@Eh5pDx2zVkum amp。 gTXRm 6X4NGpP$vSTTamp。 ksv*3t nGK8! z89Am YWpazadNuKNamp。 MuWFA5ux^Gj qv^$UE9wEwZQc@UE%amp。 qYp@Eh5pDx2zVkumamp。 gTXRm 6X4NGpP$vSTTamp。 ksv*3t nGK8! z89Am YWpazadNuKNamp。 MuWFA5uxY7JnD6YWRr Wwc^vR9CpbK! zn% Mz849Gx^Gj qv^$UE9wEwZQc@UE%amp。 qYp@Eh5pDx2zVkumamp。 gTXRm 6X4NGpP$vSTTamp。ksv*3t nGK8!z8vGt YM*Jgamp。 6a*CZ7H$dq8Kqqf HVZFedswSyXTyamp。 QA9wkxFyeQ^! dj sXuyUP2kNXpRWXm Aamp。 UE9aQ@Gn8xp$Ramp。 849Gx^Gj qv^$UE9wEwZQc@UE%amp。 qYp@Eh5