【正文】
iJuan(int_Current_NO).int_QuesNO 1 If MyShiJuan(int_Current_NO).MyQuestion(i).str_A_Doc Then MyShiJuan(int_Current_NO).MyQuestion(i).str_A_Doc, str_File amp。 Trim(Str(i)) amp。 End If Next str_File = amp。 \temp\ amp。 \data\, str_File ShellExecute , open, str_File, , , 5 AppActivate prev_A Microsoft Word SendKeys %tmm%r^s 39。運(yùn)行 Word 中的宏以合并試卷 SendKeys %fx DoEvents Call Delay(1) str_File End Sub ‘保存試卷以及試卷的答案 Private Sub Command2_Click() Dim str_File As String Dim FSO As New FileSystemObject 39。 = 導(dǎo)出試卷。 39。 Command1_Click = Word 文檔 (.doc)|*.doc str_File = Trim() If str_File = Then Exit Sub amp。 \temp\, str_File MsgBox 答案導(dǎo)出成功,已保存為 amp。 str_File End Sub Private Sub Command3_Click() str_File = amp。 \temp\ ShellExecute , open, str_File, , , 5 AppActivate prev_A Microsoft Word SendKeys %fv 39。運(yùn)行 Word 進(jìn)行打印 39。SendKeys %fx End Sub Private Sub Command4_Click() Dim FSO As New FileSystemObject Dim str_File As String On Error GoTo Err str_File = amp。 \temp\ If (str_File) = False Then str_File End If str_File = amp。 \temp\temp\ If (str_File) = False Then str_File Else str_File amp。 *.* End If If MyShiJuan(int_Current_NO).int_QuesNO = 0 Then Exit Sub = True = True For i = 0 To MyShiJuan(int_Current_NO).int_QuesNO 1 If MyShiJuan(int_Current_NO).MyQuestion(i).str_Q_Doc Then MyShiJuan(int_Current_NO).MyQuestion(i).str_Q_Doc, str_File amp。 Trim(Str(i)) amp。 End If If MyShiJuan(int_Current_NO).MyQuestion(i).str_P_Doc Then MyShiJuan(int_Current_NO).MyQuestion(i).str_P_Doc, str_File amp。 Trim(Str(i)) amp。 End If Next str_File = amp。 \temp\ amp。 \data\, str_File ShellExecute , open, str_File, , , 5 AppActivate prev_Q Microsoft Word SendKeys %tmm%r^s 39。運(yùn)行 Word 中的宏以合并試卷 SendKeys %fx DoEvents Call Delay(1) str_File Exit Sub Err: MsgBox End Sub 第五章 開發(fā)總結(jié) 經(jīng)過 1 個(gè)多月的學(xué)習(xí)和實(shí)踐,基本上完成了試卷生成系統(tǒng)的整體設(shè)計(jì)和開發(fā),并具備一定的使用價(jià)值。但是由于時(shí)間、技術(shù)等各方面因素,本系統(tǒng)仍不完善,有很多問題需要解決。 1) 系統(tǒng)總體規(guī)劃欠缺:系統(tǒng)在開發(fā)過程中就感到總體規(guī)劃存在一定問題,如后臺(tái)數(shù)據(jù)庫(kù)表的冗余,導(dǎo)致對(duì)數(shù)據(jù)庫(kù)的操作復(fù)雜。這個(gè)問題是開發(fā)到中后期發(fā)現(xiàn)的,發(fā)現(xiàn)的時(shí)候以及為時(shí)過晚,若當(dāng)時(shí)改正,需要重新開發(fā),這時(shí)才認(rèn)識(shí)到軟件開發(fā)過 程的重要性。 2) 系統(tǒng)界面美觀欠缺:界面單調(diào),整體布局不太合理,這個(gè)問題時(shí)由于開發(fā)過程中著重關(guān)注技術(shù)的原因,導(dǎo)致界面不象商業(yè)軟件一樣美觀。 3) 該系統(tǒng)功能還不夠完善,統(tǒng)計(jì)結(jié)果的顯示不太合理,不能一幕了然。 該系統(tǒng)的不盡如人意的地方和功能上的缺陷,這些我都會(huì)進(jìn)一步的改善。 參考文獻(xiàn) 1 陳明 . 軟件工程學(xué)教程 .科技出版社, 2021 2 薩師煊,王珊 . 數(shù)據(jù)庫(kù)系統(tǒng)概論 . 第三版 . 高等教育出版社, 2021 3 飛思科技產(chǎn)品研發(fā)中心 . visual basic 數(shù)據(jù)庫(kù)應(yīng)用開發(fā) .電子工業(yè)出版社, 2021 4 飛思科技產(chǎn)品研發(fā)中心 . visual basic 開發(fā)者手冊(cè) . 電子工業(yè)出版社 , 2021 5 申 旻 . visual basic 高手突破 . 清華大學(xué)出版社, 2021, 302 6 Steve Teixeira, Xaviver Pacheco 著,龍勁松,王瑜,謝尚書譯 . visual basic 開發(fā)人員指南 . 機(jī)械工業(yè)出版社 .2021 7 喬林 .參透 Delphi/ Kylix . 中國(guó)鐵道出版社 .2021 8 李維 .Inside 深入核心 VCL 架構(gòu)剖析 . 電子工業(yè)出版社 .2021 9 張立科編寫組 .Windows API 函數(shù)參考手冊(cè) .人民郵電出版社 .2021 嚴(yán)蔚敏,吳偉民 .數(shù)據(jù)結(jié)構(gòu) .第二版 .清華大學(xué)出版社 .2021 10 王珍 玲 。實(shí)用軟件工程教程 高等教育出版社 2021 11 (英) Ian Sommerville 機(jī)械工業(yè)出版社 2021 12 美 Cantu,U. 王輝等譯 visual basic 從入門到精通 電子工業(yè)出版社 2021 13 李維 面向?qū)ο箝_發(fā)實(shí)踐之路( visual basic 版) (BORLAND 資深顧問著名 visual basic 專家李維最新力作 ) 電子工業(yè)出版社 14 秦斌 等 visual basic 數(shù)據(jù)庫(kù)系統(tǒng)開發(fā)與應(yīng)用 中國(guó)水利水電出版社 2021 .1 15 劉藝 visual basic 面向?qū)ο缶幊趟枷? 機(jī)械工業(yè)出版社 2021 basic 程序設(shè)計(jì)第二版 譚浩強(qiáng) 清華大學(xué)出版社 2021 17. visual 程序設(shè)計(jì)教程 . 胡同森 趙劍鋒等 . 浙江科學(xué)技術(shù)出版社 , (第二版 ) 周蘇 王文 著 科學(xué)出版社 2021 Basic 程序設(shè)計(jì)與開發(fā)技術(shù) 求是科技 人民郵電出版社 致 謝 我首先感謝我的指導(dǎo)老師呂老師,在他嚴(yán)格的要求下我懂得了開發(fā)軟件要有一種極其認(rèn)真負(fù)責(zé)的態(tài)度。無論做什么事都要大膽的去想去做,這樣會(huì)有好的創(chuàng)意,才能更有作為。 在這里我還要感謝我們宿舍的其它 5 個(gè)同學(xué)。他們和我共同生活了四年,在生活和學(xué)習(xí)上給了 我很大的幫助。 They both knew it. And if she hadn39。t won an ecology essay petition and a prize of places for two aboard Sea Shepherd, neither of them would be here. She rested her hand on Gary39。s shoulder and looked at him cheekily. You may be a pain in the neck sometimes, but I39。m glad you39。re ing with me. As Southampton slid astern, Sea Shepherd nosed into the thumping waters of the English Channel. At that moment the sun squinted through a crack in the cloud. On the horizon the sky39。s grey paint was peeling, revealing blue. A good omen? Gary followed Susan down the panionway. See you at dinner, he said, before entering the cabin he shared with Norman. As one of the girls, Susan had Vanessa for a room mate. Next door were Yves and Darren. Susan hesitated outside her cabin, fiddled with her cardigan, ran a b through her hair. Then, head held high, she made her entrance. Vanessa wasn39。t there. Susan relaxed, smiling at herself. The smile faded fast. She39。s taken the bottom bunk! I was here first. Susan stared, glared at the fancy nightdress laid out on the pillow. Did she have the nerve to move it? No, not quite. Fuming, she started to unpac k. Sweaters, Tshirts, jeans, shorts and a dress. She yanked open the wardrobe door. A row of eye catching outfits hung neatly on hangers. It39。s like a fashion store, Susan muttered, shoving the hangers aside to make space for her own clothes. In the bathroom she opened the mirrorfronted cabi on the wall. It was crammed with bottles and jars. Perfume, shampoo, creams ... Susan slammed the cabi shut and pulled a face in the glass. Meanwhile Gary was trying to make friends with Norman. Hard wor k. Norman proved to be a very serious young man, much given to using long words. Must39。ve swallowed a dictionary, Gary thought. But he kept up the conversation. T