四則運(yùn)算vb課程設(shè)計(jì)報(bào)告

1、經(jīng)濟(jì)管理學(xué)院本科課程設(shè)計(jì)論文面向?qū)ο蟪绦蛟O(shè)計(jì)課程設(shè)計(jì)學(xué) 號(hào)： 1005170126 1005170124 姓 名： 王如平 孫曉東 班 級(jí)： 管理101 專(zhuān) 業(yè)： 信息管理與信息系統(tǒng) 系 別: 管理系 指導(dǎo)教師： 楊勝春 2012 年 01 月 09日 吉 林摘要小學(xué)數(shù)學(xué)四則運(yùn)算，是利用VB編寫(xiě)的一款軟件，可以隨機(jī)出現(xiàn)一道0 9的四則運(yùn)算題，答題者輸入答案，進(jìn)行批改，可以判定答案的正確與否。答對(duì)一題則加10分，答錯(cuò)一題扣10分，做完若干道題后可以看到最終得分。此軟件可以訓(xùn)練小學(xué)生的數(shù)學(xué)四則運(yùn)算能力，提高孩子的學(xué)習(xí)興趣和成績(jī)。目錄封面1內(nèi)容摘要2目錄3一、功能描述4二、概要設(shè)計(jì)5三、詳細(xì)設(shè)計(jì) 6

2、-11四、存在的問(wèn)題及不足12五、結(jié)束語(yǔ)、心得體會(huì)13六、評(píng)分表 14一、功能描述 打開(kāi)小學(xué)數(shù)學(xué)四則運(yùn)算軟件，進(jìn)入做題窗口。 點(diǎn)擊出題按鈕，軟件會(huì)隨機(jī)產(chǎn)生一個(gè)0 9的四則運(yùn)算題目。 在答題框中輸入算式的結(jié)果。答題結(jié)束以后點(diǎn)擊批改按鈕，軟件會(huì)對(duì)所填的答案進(jìn)行判斷，提示對(duì)錯(cuò)。并會(huì)在答案錯(cuò)誤的情況下告知正確結(jié)果。5.正確、錯(cuò)誤 對(duì)答題者所答題正確與錯(cuò)誤的個(gè)數(shù)進(jìn)行統(tǒng)計(jì)。 答對(duì)一題得10分，答錯(cuò)一題扣10分，判斷答題者的答題成績(jī)。二.概要設(shè)計(jì)（模塊流程圖）運(yùn)行四則運(yùn)算軟件出題隨機(jī)產(chǎn)生加法算式減法算式乘法算式除法算式答題批改答案正確提示正確記錄正確個(gè)數(shù)得分加10答案錯(cuò)誤提示錯(cuò)誤，并給出正確答案記錄錯(cuò)誤個(gè)數(shù)

3、得分減10模塊一模塊二模塊三三.詳細(xì)設(shè)計(jì) 本系統(tǒng)共分為三個(gè)模塊： 實(shí)現(xiàn)隨機(jī)出題的功能模塊，單擊出題按鈕，軟件會(huì)隨機(jī)產(chǎn)生一個(gè)0 9的四則運(yùn)算題目，供答題者作答。（1）.代碼如下：Private Sub Command1_Click() Dim a(4) As String Dim b As Integer Randomize Text1.Text = Int(10 * Rnd + 0) 文本框1中隨機(jī)產(chǎn)生0 - 9中的一個(gè)數(shù) a(1) = + a(2) = - a(3) = * a(4) = / b = Int(4 * Rnd + 1) Label1.Caption = a(b) 標(biāo)簽隨機(jī)產(chǎn)生“

4、加”、“減”、“乘”、“除”號(hào) If Label1.Caption = a(4) Then Text2.Text = Int(9 * Rnd + 1) 如果標(biāo)簽出現(xiàn)的是“”號(hào)，則文本框隨機(jī)產(chǎn)生中的一個(gè)數(shù) Else Text2.Text = Int(10 * Rnd + 0) 如果不是則文本框隨機(jī)產(chǎn)生中的一個(gè)數(shù) End IfEnd Sub（2）.運(yùn)行界面截圖：加法算式:減法算式：乘法算式：除法算式：（3）.注意事項(xiàng)！ 由于算式是隨機(jī)產(chǎn)生的，在出現(xiàn)除法算式的情況時(shí)，必須使得除數(shù)不為0，這樣算式才有意義。要解決這個(gè)問(wèn)題則在做除法運(yùn)算時(shí)將除數(shù)限制在1 9 的范圍內(nèi) 答題者輸入答案后單擊批改，如果答案正

5、確，則出現(xiàn)答案正確的提示框，并記錄下正確個(gè)數(shù)及加分。（1）代碼如下：Private Sub Command2_Click()Dim c As SingleIf IsNumeric(Text3.Text) = False Then MsgBox 請(qǐng)輸入數(shù)字!, vbOKOnly + vbExclamation, 提示 如果文本框輸入的不是數(shù)字或沒(méi)有輸入，則提示“請(qǐng)輸入數(shù)字!” Text3.Text = Else Case + c = Val(Text1.Text) + Val(Text2.Text) Case - c = Val(Text1.Text) - Val(Text2.Text) Cas

6、e * c = Val(Text1.Text) * Val(Text2.Text) Case / c = Val(Text1.Text) / Val(Text2.Text) End Select If Text3.Text = c Then MsgBox 恭喜你，回答正確！, vbOKOnly + vbInformation, 提示 x = x + 1 Text4.Text = x 記錄正確個(gè)數(shù) z = z + 10 Text6.Text = z 加分 Else End IfEnd IfEnd Sub(2).運(yùn)行界面截圖：（3）.注意事項(xiàng)！答題框內(nèi)必須輸入數(shù)值型數(shù)據(jù)。沒(méi)有輸入或輸入其他類(lèi)型數(shù)據(jù)

7、時(shí)軟件會(huì)提示“請(qǐng)輸入數(shù)字！”程序代碼為：If IsNumeric(Text3.Text) = False Then MsgBox 請(qǐng)輸入數(shù)字!, vbOKOnly + vbExclamation” Text3.Text = Else 答題者輸入答案后單擊批改，如果答案錯(cuò)誤，則出現(xiàn)答案錯(cuò)誤的提示框，且給出正確答案。同時(shí)記錄下錯(cuò)誤個(gè)數(shù)及減分。（1）.代碼如下：IfElse MsgBox 回答錯(cuò)誤！ & & 正確結(jié)果為 & c, vbOKOnly + vbCritical, 提示 y = y + 1 Text5.Text = y 記錄錯(cuò)誤個(gè)數(shù) z = z - 10 Text6.Text = z 減分

8、 End IfEnd IfEnd Sub（2）.運(yùn)行界面截圖：1.在做一個(gè)答案為負(fù)數(shù)的題目時(shí)，把負(fù)號(hào)寫(xiě)在后面答案也為正確。2.在做余數(shù)除不盡的除法時(shí)，必須把小數(shù)點(diǎn)后7位都寫(xiě)出。3.未能對(duì)答題的正確率進(jìn)行計(jì)算。4.沒(méi)有設(shè)置答題的時(shí)間限制。5.當(dāng)結(jié)果為小于0的小數(shù)時(shí)小數(shù)點(diǎn)前的0不能顯示出來(lái)。五.結(jié)束語(yǔ)、心得體會(huì)為期一周的VB語(yǔ)言程序設(shè)計(jì)很快就結(jié)束了，在這段時(shí)間里我鍛煉了發(fā)現(xiàn)，解決實(shí)際問(wèn)題的能力。學(xué)會(huì)了自主學(xué)習(xí)，自我提高和自我完善，學(xué)以致用。我做的程序是簡(jiǎn)單的數(shù)學(xué)四則運(yùn)算，雖然比較簡(jiǎn)單，但在實(shí)際設(shè)計(jì)的過(guò)程中遇到了許多的問(wèn)題，比如裝載背景圖片、解決答案輸入類(lèi)型問(wèn)題、解決除數(shù)不為0等等。特別是除數(shù)不為0

9、的問(wèn)題，修改、調(diào)試了很多次，才確定了其正確的編寫(xiě)方法和所放置的位置。程序設(shè)計(jì)期間，遇到問(wèn)題自己思考并積極去解決，也向同學(xué)和老師尋求幫助，集思廣益，感覺(jué)收獲頗多，不僅解決了問(wèn)題，還明白了互助的團(tuán)隊(duì)精神。課程設(shè)計(jì)讓我們學(xué)習(xí)與實(shí)踐相結(jié)合，提高了我們對(duì)書(shū)本知識(shí)的理解和運(yùn)用能力。鍛煉了我的學(xué)習(xí)能力。在今后的學(xué)習(xí)中，還要繼續(xù)加強(qiáng)自主學(xué)習(xí)與實(shí)踐的能力。最后，向幫助我的老師和同學(xué)表示衷心的感謝！東華理工大學(xué)長(zhǎng)江學(xué)院課程設(shè)計(jì)評(píng)分表學(xué)生姓名： 王瑞茂 班級(jí)：083222 學(xué)號(hào)：19課程設(shè)計(jì)題目：項(xiàng)目?jī)?nèi)容滿分實(shí) 評(píng)選題能結(jié)合所學(xué)課程知識(shí)、有一定的能力訓(xùn)練。符合選題要求（5人一題）10工作量適中，難易度合理10能力水平能熟練應(yīng)用所學(xué)知識(shí)，有一定查閱文獻(xiàn)及運(yùn)用文獻(xiàn)資料能力10理論依據(jù)充分，數(shù)據(jù)準(zhǔn)確，公式推導(dǎo)正確10能應(yīng)用計(jì)算機(jī)軟件進(jìn)行編程、資料搜集錄入、加工、排版、制圖等10能體現(xiàn)創(chuàng)造性思維，或有獨(dú)特見(jiàn)解10成果質(zhì)量總體設(shè)計(jì)正確、合理，各項(xiàng)技術(shù)指標(biāo)符合要求。10說(shuō)明書(shū)綜述簡(jiǎn)練