1、簡易計算器要求：用VB做類似于windows自帶的計算器程序緒論：Visual Basic（VB）是一種由微軟公司開發(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提供的組件快速建立一個應(yīng)用程序。1.界面設(shè)計：根據(jù)WINDOWS計算器界面模型，修改后制作簡易計算器界面。新建一個窗體，添加一個文本框用于顯示運算數(shù)

2、字和結(jié)果，添加若干按鈕包括（數(shù)字09，+，-，*，/，=，x ，1/x，清屏，退出）。當(dāng)單擊數(shù)字按鈕時輸入運算數(shù)時，單擊運算符按鈕，再單擊“=”按鈕，則再文本框中顯示計算結(jié)果。具體如下圖計算器界面設(shè)計示意圖流程圖如下： 簡易計算器計算器管理界面計算界面退出程序2.程序代碼：Dim A, B As Single Dim Op As StringPrivate Sub Command1_Click() Text1.Text = Text1.Text + Command1.CaptionEnd SubPrivate Sub Command14_Click() 定義減法 If A = 0 Then A

3、 = Text1.Text Else B = Text1.Text End If Text1.Text = Op = -End SubPrivate Sub Command2_Click() Text1.Text = Text1.Text + Command2.CaptionEnd SubPrivate Sub Command20_Click() 定義平方 A = Text1.Text B = A 2 Text1.Text = BEnd SubPrivate Sub Command3_Click() Text1.Text = Text1.Text + Command3.CaptionEnd S

4、ubPrivate Sub Command4_Click() Text1.Text = Text1.Text + Command4.CaptionEnd SubPrivate Sub Command13_Click() 定義加法 If A = 0 Then A = Text1.Text Else B = Text1.Text End If Text1.Text = Op = +End SubPrivate Sub Command5_Click() Text1.Text = Text1.Text + Command5.CaptionEnd SubPrivate Sub Command6_Clic

5、k() Text1.Text = Text1.Text + Command6.CaptionEnd SubPrivate Sub Command17_Click() 清屏 Text1.Text = A = 0: B = 0End SubPrivate Sub Command19_Click() EndEnd SubPrivate Sub Command16_Click() 定義除法 If A = 0 Then A = Text1.Text Else B = Text1.Text End If Text1.Text = Op = /End SubPrivate Sub Command12_Cli

6、ck() 通過四則運算，求出值 B = Text1.Text Select Case Op Case + A = A + B Case - A = A - B Case * A = A * B Case / A = A / B Case 1/x A = 1 / A End Select Text1.Text = AEnd SubPrivate Sub Command7_Click() Text1.Text = Text1.Text + Command7.CaptionEnd SubPrivate Sub Command8_Click() Text1.Text = Text1.Text + Co

7、mmand8.Caption End Sub Private Sub Command15_Click() 定義乘法 If A = 0 Then A = Text1.Text Else B = Text1.Text End If Text1.Text = Op = * End Sub Private Sub Command9_Click() Text1.Text = Text1.Text + Command9.CaptionEnd SubPrivate Sub Command10_Click() Text1.Text = Text1.Text + Command10.CaptionEnd Sub

8、Private Sub Command11_Click() Text1.Text = Text1.Text + Command11.CaptionEnd SubPrivate Sub Command18_Click() 求倒數(shù)值 If A = 0 Then A = Text1.Text Else B = Text1.Text End If Text1.Text = 1 / A Op = 1/xEnd sub3.程序運行進(jìn)入計算機(jī)運行界面：輸入值： 輸入運算符： 輸入運算值：得結(jié)果：清屏：退出程序； 4. 結(jié)論： 經(jīng)過一學(xué)期的學(xué)習(xí)與編制等一系列的過程，完成了如題所示的簡易計算器，包括數(shù)字09，+

9、，-，*，/，=等按鍵，可實現(xiàn)基本+，-，*，/，平方等的運算，符合計算器的基本要求。調(diào)試過程中不可避免的出現(xiàn)不少錯誤，經(jīng)過查閱資料，詢問同學(xué)，修改后，基本解決加減乘除等的一些問題。基本完成學(xué)習(xí)和實踐的要求和目的。課程設(shè)計，使我提高了實際操作能力，從以前的理論上升到實踐，從感性認(rèn)識上升到理性認(rèn)識，真正做到學(xué)有所用，懂得先要發(fā)現(xiàn)問題，分析問題，解決問題，雖然在設(shè)計過程中我也遇到一些困難，但在同學(xué)的幫助和自己的努力下，我都認(rèn)真克服了，但由于時間緊觸，我并不能做到盡善盡美，應(yīng)該說這是一大遺憾吧，我相信這對以后會有別開生會的體驗。5.致謝 在本次課程設(shè)計中，我們?nèi)藦闹笇?dǎo)老師身上學(xué)到了很多東西。她認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。她無論在理論上還是在實踐中，都給與我很大的幫助，使我得到很大的提高，這對于我以后