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

1、 PAGE 9 / 9簡易計(jì)算器要求：用 VB 做類似于 windows 自帶的計(jì)算器程序緒論： Visual BasicVB是一種由微軟公司開發(fā)的包含協(xié)助開發(fā)環(huán)境的事件驅(qū)動編程語言。從任何標(biāo)準(zhǔn)來說，VB都是世界上使用人數(shù)最多的語言不僅是盛贊VB的開發(fā)者還是抱怨VB的開發(fā)者的數(shù)量。它源自于BASIC編程語言。 VB擁有圖形用戶界面GUI和快速應(yīng)用程序開發(fā)RAD系統(tǒng)，可以輕易的使用DAO、RDO、ADO連接數(shù)據(jù)庫，或者輕松的創(chuàng)立ActiveX控件。程序員可以輕松的使用VB提供的組件快速建立一個(gè)應(yīng)用程序。界面設(shè)計(jì)：根據(jù) WINDOWS計(jì)算器界面模型，修改后制作簡易計(jì)算器界面。新建一個(gè) 窗體，添加一

2、個(gè)文本框用于顯示運(yùn)算數(shù)字和結(jié)果，添加假設(shè)干按鈕包括數(shù)字0 9， +，-，* ，/，=，x，1/x，清屏，退出。當(dāng)單擊數(shù)字按鈕時(shí)輸入運(yùn)算數(shù)時(shí)，單擊運(yùn)算符按鈕，再單擊“=按鈕，那么再文本框中顯示計(jì)算結(jié)果。具體如下列圖計(jì)算器界面設(shè)計(jì)示意圖流程圖如下：簡易計(jì)算器計(jì)算器管理界面計(jì)算界面退出程序程序代碼：Dim A, B As Single Dim Op As StringPrivate Sub mand1_Click()Text1.Text = Text1.Text + mand1.Caption End SubPrivate Sub mand14_Click()定義減法If A = 0 ThenA =

3、 Text1.Text ElseB = Text1.Text End IfText1.Text = Op = -End SubPrivate Sub mand2_Click()Text1.Text = Text1.Text + mand2.Caption End SubPrivate Sub mand20_Click()定義平方A = Text1.Text B = A 2Text1.Text = BEnd SubPrivate Sub mand3_Click()Text1.Text = Text1.Text + mand3.Caption End SubPrivate Sub mand4_Cl

4、ick()Text1.Text = Text1.Text + mand4.Caption End SubPrivate Sub mand13_Click()定義加法If A = 0 ThenA = Text1.Text ElseB = Text1.Text End IfText1.Text = Op = +End SubPrivate Sub mand5_Click()Text1.Text = Text1.Text + mand5.Caption End SubPrivate Sub mand6_Click()Text1.Text = Text1.Text + mand6.Caption En

5、d SubPrivate Sub mand17_Click()清屏Text1.Text = A = 0: B = 0End SubPrivate Sub mand19_Click()EndEnd SubPrivate Sub mand16_Click()定義除法If A = 0 ThenA = Text1.Text ElseB = Text1.TextEnd If Text1.Text = Op = /End SubPrivate Sub mand12_Click()通過四那么運(yùn)算，求出值B = Text1.Text Select Case OpCase +A = A + BCase -A =

6、 A - BCase *A = A * BCase /A = A / BCase 1/x A = 1 / AEnd Select Text1.Text = AEnd SubPrivate Sub mand7_Click()Text1.Text = Text1.Text + mand7.Caption End SubPrivate Sub mand8_Click()Text1.Text = Text1.Text + mand8.Caption End SubPrivate Sub mand15_Click()定義乘法If A = 0 ThenA = Text1.Text ElseB = Text

7、1.Text End IfText1.Text = Op = *End SubPrivate Sub mand9_Click()Text1.Text = Text1.Text + mand9.Caption End SubPrivate Sub mand10_Click()Text1.Text = Text1.Text + mand10.Caption End SubPrivate Sub mand11_Click()Text1.Text = Text1.Text + mand11.Caption End SubPrivate Sub mand18_Click() If A = 0 ThenA

8、 = Text1.TextElseB = Text1.Text End IfText1.Text = 1 / A Op = 1/xEnd sub3.程序運(yùn)行進(jìn)入計(jì)算機(jī)運(yùn)行界面：求倒數(shù)值輸入值：輸入運(yùn)算符：輸入運(yùn)算值：得結(jié)果：清屏：退出程序；結(jié)論：經(jīng)過一學(xué)期的學(xué)習(xí)與編制等一系列的過程，完成了如題所示的簡易計(jì)算器，包 括數(shù)字09，+，-，*，/，=等按鍵，可實(shí)現(xiàn)根本 +，-，*，/，平方等的運(yùn)算， 符合計(jì)算器的根本要求。調(diào)試過程中不可防止的出現(xiàn)不少錯(cuò)誤，經(jīng)過查閱資料， 詢問同學(xué)， 修改后， 根本解決加減乘除等的一些問題。根本完成學(xué)習(xí)和實(shí)踐的要求和目的。課程設(shè)計(jì)， 使我提高了實(shí)際操作能力， 從以前的理論上升到實(shí)踐，從感性認(rèn)識上升到理性認(rèn)識，真正做到學(xué)有所用，懂得先要發(fā)現(xiàn)問題，分析問題，解決問題，雖然在設(shè)計(jì)過程中我也遇到一些困難，但在同學(xué)的幫助和自己的努力下，我都認(rèn)真克制了， 但由于時(shí)間緊觸， 我并不能做到盡善盡美， 應(yīng)該說這是一大遺憾吧，我相信這對以后會有別開生會的體驗(yàn)。致在本次課程設(shè)計(jì)中， 我們?nèi)藦闹笇?dǎo)教師身上學(xué)到了很多東西。她認(rèn)真負(fù)責(zé)的工作態(tài)度， 嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。她無論在理論上還是在實(shí)踐中， 都給與我很大的幫助， 使我得到很大的提高， 這對于我以后的工作和學(xué)習(xí)