1、簡(jiǎn)易計(jì)算器要求：用VB做類(lèi)似于windows自帶的計(jì)算器程序緒論：Visual Basic（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ù)

2、字和結(jié)果，添加若干按鈕包括（數(shù)字09，+，-，*，/，=，x ，1/x，清屏，退出）。當(dāng)單擊數(shù)字按鈕時(shí)輸入運(yùn)算數(shù)時(shí)，單擊運(yùn)算符按鈕，再單擊“=”按鈕，則再文本框中顯示計(jì)算結(jié)果。具體如下圖計(jì)算器界面設(shè)計(jì)示意圖流程圖如下： 簡(jiǎn)易計(jì)算器計(jì)算器管理界面計(jì)算界面退出程序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.Tex

4、t + Command3.CaptionEnd SubPrivate 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

5、+ Command5.CaptionEnd SubPrivate Sub Command6_Click() 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.

6、Text End If Text1.Text = "" Op = "/"End SubPrivate Sub Command12_Click() 通過(guò)四則運(yùn)算，求出值 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.Te

7、xt = AEnd SubPrivate Sub Command7_Click() Text1.Text = Text1.Text + Command7.CaptionEnd SubPrivate Sub Command8_Click() Text1.Text = Text1.Text + Command8.Caption End Sub Private Sub Command15_Click() 定義乘法 If A = 0 Then A = Text1.Text Else B = Text1.Text End If Text1.Text = "" Op = "*

8、" End Sub Private Sub Command9_Click() Text1.Text = Text1.Text + Command9.CaptionEnd SubPrivate Sub Command10_Click() Text1.Text = Text1.Text + Command10.CaptionEnd SubPrivate Sub Command11_Click() Text1.Text = Text1.Text + Command11.CaptionEnd SubPrivate Sub Command18_Click() 求倒數(shù)值 If A = 0 The

9、n A = Text1.Text Else B = Text1.Text End If Text1.Text = 1 / A Op = "1/x"End sub3.程序運(yùn)行進(jìn)入計(jì)算機(jī)運(yùn)行界面：輸入值： 輸入運(yùn)算符： 輸入運(yùn)算值：得結(jié)果：清屏：退出程序； 4. 結(jié)論： 經(jīng)過(guò)一學(xué)期的學(xué)習(xí)與編制等一系列的過(guò)程，完成了如題所示的簡(jiǎn)易計(jì)算器，包括數(shù)字09，+，-，*，/，=等按鍵，可實(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ú)論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到很大