簡(jiǎn)易計(jì)算器VB課程設(shè)計(jì)報(bào)告報(bào)告

..簡(jiǎn)易計(jì)算器要求：用VB做類似于windows自帶的計(jì)算器程序緒論：VisualBasic〔VB是一種由微軟公司開(kāi)發(fā)的包含協(xié)助開(kāi)發(fā)環(huán)境的事件驅(qū)動(dòng)編程語(yǔ)言。從任何標(biāo)準(zhǔn)來(lái)說(shuō),VB都是世界上使用人數(shù)最多的語(yǔ)言——不僅是盛贊VB的開(kāi)發(fā)者還是抱怨VB的開(kāi)發(fā)者的數(shù)量。它源自于BASIC編程語(yǔ)言。VB擁有圖形用戶界面〔GUI和快速應(yīng)用程序開(kāi)發(fā)〔RAD系統(tǒng),可以輕易的使用DAO、RDO、ADO連接數(shù)據(jù)庫(kù),或者輕松的創(chuàng)建ActiveX控件。程序員可以輕松的使用VB提供的組件快速建立一個(gè)應(yīng)用程序。1.界面設(shè)計(jì)：根據(jù)WINDOWS計(jì)算器界面模型,修改后制作簡(jiǎn)易計(jì)算器界面。新建一個(gè)窗體,添加一個(gè)文本框用于顯示運(yùn)算數(shù)字和結(jié)果,添加若干按鈕包括〔數(shù)字0—9,+,-,*,/,=,x^,1/x,清屏,退出。當(dāng)單擊數(shù)字按鈕時(shí)輸入運(yùn)算數(shù)時(shí),單擊運(yùn)算符按鈕,再單擊"="按鈕,則再文本框中顯示計(jì)算結(jié)果。具體如下圖計(jì)算器界面設(shè)計(jì)示意圖流程圖如下：簡(jiǎn)易計(jì)算器↓計(jì)算器管理界面↓計(jì)算界面↓退出程序2.程序代碼：DimA,BAsSingleDimOpAsStringPrivateSubCommand1_Click<>Text1.Text=Text1.Text+Command1.CaptionEndSubPrivateSubCommand14_Click<>’定義減法IfA=0ThenA=Text1.TextElseB=Text1.TextEndIfText1.Text=""Op="-"EndSubPrivateSubCommand2_Click<>Text1.Text=Text1.Text+Command2.CaptionEndSubPrivateSubCommand20_Click<>’定義平方A=Text1.TextB=A^2Text1.Text=BEndSubPrivateSubCommand3_Click<>Text1.Text=Text1.Text+Command3.CaptionEndSubPrivateSubCommand4_Click<>Text1.Text=Text1.Text+Command4.CaptionEndSubPrivateSubCommand13_Click<>’定義加法IfA=0ThenA=Text1.TextElseB=Text1.TextEndIfText1.Text=""Op="+"EndSubPrivateSubCommand5_Click<>Text1.Text=Text1.Text+Command5.CaptionEndSubPrivateSubCommand6_Click<>Text1.Text=Text1.Text+Command6.CaptionEndSubPrivateSubCommand17_Click<>’清屏Text1.Text=""A=0:B=0EndSubPrivateSubCommand19_Click<>EndEndSubPrivateSubCommand16_Click<>’定義除法IfA=0ThenA=Text1.TextElseB=Text1.TextEndIfText1.Text=""Op="/"EndSubPrivateSubCommand12_Click<>’通過(guò)四則運(yùn)算,求出值B=Text1.TextSelectCaseOpCase"+"A=A+BCase"-"A=A-BCase"*"A=A*BCase"/"A=A/BCase"1/x"A=1/AEndSelectText1.Text=AEndSubPrivateSubCommand7_Click<>Text1.Text=Text1.Text+Command7.CaptionEndSubPrivateSubCommand8_Click<>Text1.Text=Text1.Text+Command8.CaptionEndSubPrivateSubCommand15_Click<>’定義乘法IfA=0ThenA=Text1.TextElseB=Text1.TextEndIfText1.Text=""Op="*"EndSubPrivateSubCommand9_Click<>Text1.Text=Text1.Text+Command9.CaptionEndSubPrivateSubCommand10_Click<>Text1.Text=Text1.Text+Command10.CaptionEndSubPrivateSubCommand11_Click<>Text1.Text=Text1.Text+Command11.CaptionEndSubPrivateSubCommand18_Click<>’求倒數(shù)值IfA=0ThenA=Text1.TextElseB=Text1.TextEndIfText1.Text=1/AOp="1/x"Endsub3.程序運(yùn)行進(jìn)入計(jì)算機(jī)運(yùn)行界面：輸入值：輸入運(yùn)算符：輸入運(yùn)算值：得結(jié)果：清屏：退出程序；結(jié)論：經(jīng)過(guò)一學(xué)期的學(xué)習(xí)與編制等一系列的過(guò)程,完成了如題所示的簡(jiǎn)易計(jì)算器,包括數(shù)字0—9,+,-,*,/,=等按鍵,可實(shí)現(xiàn)基本+,-,*,/,平方等的運(yùn)算,符合計(jì)算器的基本要求。調(diào)試過(guò)程中不可避免的出現(xiàn)不少錯(cuò)誤,經(jīng)過(guò)查閱資料,詢問(wèn)同學(xué),修改后,基本解決加減乘除等的一些問(wèn)題?；就瓿蓪W(xué)習(xí)和實(shí)踐的要求和目的。課程設(shè)計(jì),使我提高了實(shí)際操作能力,從以前的理論上升到實(shí)踐,從感性認(rèn)識(shí)上升到理性認(rèn)識(shí),真正做到學(xué)有所用,懂得先要發(fā)現(xiàn)問(wèn)題,分析問(wèn)題,解決問(wèn)題,雖然在設(shè)計(jì)過(guò)程中我也遇到一些困難,但在同學(xué)的幫助和自己的努力下,我都認(rèn)真克服了,但由于時(shí)間緊觸,我并不能做到盡善盡美,應(yīng)該說(shuō)這是一大遺憾吧,我相信這對(duì)以后會(huì)有別開(kāi)生會(huì)的體驗(yàn)。5.致謝在本次課程設(shè)計(jì)中,我們?nèi)藦闹笇?dǎo)老師身上學(xué)到了很多東西。她認(rèn)真負(fù)責(zé)的工作態(tài)度,嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。她無(wú)論在理論上還