簡易計算器VB課程設計匯本報告

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

2、個文本框用于顯示運算數字和結果，添加假設干按鈕包括數字0 9， +，-，* ，/，=，x，1/x，清屏，退出。當單擊數字按鈕時輸入運算數時，單擊運算符按鈕，再單擊“=按鈕，那么再文本框中顯示計算結果。具體如下列圖計算器界面設計示意圖流程圖如下：簡易計算器計算器管理界面計算界面退出程序程序代碼：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()通過四那么運算，求出值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.程序運行進入計算機運行界面：求倒數值輸入值：輸入運算符：輸入運算值：得結果：清屏：退出程序；結論：經過一學期的學習與編制等一系列的過程，完成了如題所示的簡易計算器，包 括數字09，+，-，*，/，=等按鍵，可實現根本 +，-，*，/，平方等的運算， 符合計算器的根本要求。調試過程中不可防止的出現不少錯誤，經過查閱資料， 詢問同學， 修改后， 根本解決加減乘除等的一些問題。根本完成學習和實踐的要求和目的。課程設計， 使我提高了實際操作能力， 從以前的理論上升到實踐，從感性認識上升到理性認識，真正做到學有所用，懂得先要發(fā)現問題，分析問題，解決問題，雖然在設計過程中我也遇到一些困難，但在同學的幫助和自己的努力下，我都認真克制了， 但由于時間緊觸， 我并不能做到盡善盡美， 應該說這是一大遺憾吧，我相信這對以后會有別開生會的體驗。致在本次課程設計中， 我們三人從指導教師身上學到了很多東西。她認真負責的工作態(tài)度， 嚴謹的治學精神和深厚的理論水平都使我收益匪淺。她無論在理論上還是在實踐中， 都給與我很大的幫助， 使我得到很大的提高， 這對于我以后的工作和學習