已閱讀5頁，還剩4頁未讀， 繼續(xù)免費閱讀
版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進行舉報或認(rèn)領(lǐng)
文檔簡介
vb簡單的計算機源代碼.txt如果青春的時光在閑散中度過，那么回憶歲月將是一場凄涼的悲劇。雜草多的地方莊稼少，空話多的地方智慧少。即使路上沒有花朵，我仍可以欣賞荒蕪。Private Sub Command1_Click()Form1.Caption = 歡迎使用智能計算器 載入默認(rèn)正常顯示If Check1.Value = 0 Then 1類分歧ElseIf Text1.Text = Or Text2.Text = Then 2類分歧Form1.Caption = xataliq kuruldiText3.Text = 運算數(shù)值不能為空ElseIf Text1.Text = And Text2.Text = Then 2類分歧Form1.Caption = xataliq kuruldiText3.Text = 運算數(shù)值不能為空Else 2類分歧Dim a, b, c As Doublea = Val(Text1.Text)b = Val(Text2.Text)c = a + bText3.Text = cText1.Text = Text2.Text = End IfIf Check1.Value = 1 Then 1類分歧ElseIf Text1.Text = Or Text2.Text = Then 2類分歧Form1.Caption = xataliq kuruldiText3.Text = 運算數(shù)值不能為空ElseIf Text1.Text = And Text2.Text = Then 2類分歧Form1.Caption = xataliq kuruldiText3.Text = 運算數(shù)值不能為空Else 2類分歧Dim d, e, f As Doubled = Val(Text1.Text)e = Val(Text2.Text)f = d + eText3.Text = fEnd IfEnd SubPrivate Sub Command2_Click()Form1.Caption = 歡迎使用智能計算器If Check1.Value = 1 ThenElseIf Text1.Text = Or Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運算數(shù)值不能為空ElseIf Text1.Text = And Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運算數(shù)值不能為空ElseDim d, e, f As Doubled = Val(Text1.Text)e = Val(Text2.Text)f = d - eText3.Text = fEnd IfIf Check1.Value = 0 ThenElseIf Text1.Text = Or Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運算數(shù)值不能為空ElseIf Text1.Text = And Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運算數(shù)值不能為空ElseDim a, b, c As Doublea = Val(Text1.Text)b = Val(Text2.Text)c = a - bText3.Text = cText1.Text = Text2.Text = End IfEnd SubPrivate Sub Command3_Click()Form1.Caption = 歡迎使用智能計算器If Check1.Value = 1 ThenElseIf Text1.Text = Or Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運算數(shù)值不能為空ElseIf Text1.Text = And Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運算數(shù)值不能為空ElseDim d, e, f As Doubled = Val(Text1.Text)e = Val(Text2.Text)f = d * eText3.Text = fEnd IfIf Check1.Value = 0 ThenElseIf Text1.Text = Or Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運算數(shù)值不能為空ElseIf Text1.Text = And Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運算數(shù)值不能為空ElseDim a, b, c As Doublea = Val(Text1.Text)b = Val(Text2.Text)c = a * bText3.Text = cText1.Text = Text2.Text = End IfEnd SubPrivate Sub Command4_Click()Form1.Caption = 歡迎使用智能計算器If Check1.Value = 0 ThenElseIf Text1.Text = Or Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運算數(shù)值不能為空ElseIf Text1.Text = And Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運算數(shù)值不能為空ElseIf Val(Text2.Text) = 0 ThenForm1.Caption = xataliq kuruldiText3.Text = 分?jǐn)?shù)的分子不能為零ElseDim a, b, c As Doublea = Val(Text1.Text)b = Val(Text2.Text)c = a / bText3.Text = cText1.Text = Text2.Text = End IfIf Check1.Value = 1 ThenElseIf Text1.Text = Or Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運算數(shù)值不能為空ElseIf Text1.Text = And Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運算數(shù)值不能為空ElseIf Val(Text2.Text) = 0 ThenForm1.Caption = xataliq kuruldiText3.Text = 分?jǐn)?shù)的分子不能為零ElseDim d, e, f As Doubled = Val(Text1.Text)e = Val(Text2.Text)f = d / eText3.Text = fEnd IfEnd SubPrivate Sub Command5_Click()Form1.Caption = 歡迎使用智能計算器Text1.Text = Text2.Text = Text3.Text = End SubPrivate Sub Command6_Click()Form1.Caption = 歡迎使用智能計算器Form1.HideForm3.ShowEnd SubPrivate Sub Command7_Click()EndEnd SubPrivate Sub Command8_Click()Form1.Caption = 歡迎使用智能計算器If Text3.Text ThenText1.Text = Text3.TextText2.Text = Text3.Text = ElseForm1.Caption = xataliq kuruldiText3.Text = 沒有結(jié)果無法繼續(xù)End IfEnd SubPrivate Sub Text2_Change()End SubPrivate Sub 乘_Click()Form1.Caption = 歡迎使用智能計算器If Check1.Value = 1 ThenElseIf Text1.Text = Or Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運算數(shù)值不能為空ElseIf Text1.Text = And Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運算數(shù)值不能為空ElseDim d, e, f As Doubled = Val(Text1.Text)e = Val(Text2.Text)f = d * eText3.Text = fEnd IfIf Check1.Value = 0 ThenElseIf Text1.Text = Or Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運算數(shù)值不能為空ElseIf Text1.Text = And Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運算數(shù)值不能為空ElseDim a, b, c As Doublea = Val(Text1.Text)b = Val(Text2.Text)c = a * bText3.Text = cText1.Text = Text2.Text = End IfEnd SubPrivate Sub 除_Click()Form1.Caption = 歡迎使用智能計算器If Check1.Value = 0 ThenElseIf Text1.Text = Or Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運算數(shù)值不能為空ElseIf Text1.Text = And Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運算數(shù)值不能為空ElseIf Val(Text2.Text) = 0 ThenForm1.Caption = xataliq kuruldiText3.Text = 分?jǐn)?shù)的分子不能為零ElseDim a, b, c As Doublea = Val(Text1.Text)b = Val(Text2.Text)c = a / bText3.Text = cText1.Text = Text2.Text = End IfIf Check1.Value = 1 ThenElseIf Text1.Text = Or Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運算數(shù)值不能為空ElseIf Text1.Text = And Text2.Text = ThenForm1.Caption = 錯誤Text3.Text = 運算數(shù)值不能為空ElseIf Val(Text2.Text) = 0 ThenForm1.Caption = 錯誤Text3.Text = 分?jǐn)?shù)的分子不能為零ElseDim d, e, f As Doubled = Val(Text1.Text)e = Val(Text2.Text)f = d / eText3.Text = fEnd IfEnd SubPrivate Sub munasiwetlik_Click()Form1.Caption = 歡迎使用智能計算器Form1.HideForm3.ShowEnd SubPrivate Sub 繼續(xù)_Click()Form1.Caption = 歡迎使用智能計算器If Text3.Text ThenText1.Text = Text3.TextText2.Text = Text3.Text = ElseForm1.Caption = xataliqText3.Text = 沒有結(jié)果無法繼續(xù)End IfEnd SubPrivate Sub 加_Click()Form1.Caption = 歡迎使用智能計算器If Check1.Value = 0 ThenElseIf Text1.Text = Or Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運算數(shù)值不能為空ElseIf Text1.Text = And Text2.Text = ThenForm1.Caption = 錯誤Text3.Text = 運算數(shù)值不能為空ElseDim a, b, c As Doublea = Val(Text1.Text)b = Val(Text2.Text)c = a + bText3.Text = cText1.Text = Text2.Text = End IfIf Check1.Value = 1 ThenElseIf Text1.Text = Or Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運算數(shù)值不能為空ElseIf Text1.Text = And Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運算數(shù)值不能為空ElseDim d, e, f As Doubled = Val(Text1.Text)e = Val(Text2.Text)f = d + eText3.Text = fEnd IfEnd SubPrivate Sub 減_Click()Form1.Caption = 歡迎使用智能計算器If Check1.Value = 1 ThenElseIf Text1.Text = Or Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運算數(shù)值不能為空ElseIf Text1.Text =
溫馨提示
- 1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 2024年安徽池州學(xué)院專職輔導(dǎo)員招聘真題
- 2024年長春中醫(yī)藥大學(xué)附屬醫(yī)院招聘真題
- 廣東梅州職業(yè)技術(shù)學(xué)院《中學(xué)生物學(xué)科知識強化訓(xùn)練》2023-2024學(xué)年第二學(xué)期期末試卷
- 新疆農(nóng)業(yè)職業(yè)技術(shù)學(xué)院《口腔專業(yè)外語》2023-2024學(xué)年第二學(xué)期期末試卷
- 廣西中遠職業(yè)學(xué)院《能源系統(tǒng)控制技術(shù)》2023-2024學(xué)年第二學(xué)期期末試卷
- 廣東海洋大學(xué)《兒童口腔醫(yī)學(xué)實驗》2023-2024學(xué)年第二學(xué)期期末試卷
- 齊齊哈爾理工職業(yè)學(xué)院《美術(shù)Ⅰ（素描）》2023-2024學(xué)年第二學(xué)期期末試卷
- 工業(yè)園區(qū)環(huán)保設(shè)施建設(shè)與管理研究
- 工業(yè)產(chǎn)品設(shè)計中的安全與防護
- 工業(yè)互聯(lián)網(wǎng)在橡膠機械行業(yè)的應(yīng)用與展望
- 浙江中考生物知識點大全
- 2023宿遷地生中考試卷
- 一人力資源轉(zhuǎn)型和價值
- 國家公務(wù)員考試準(zhǔn)考證模板
- 設(shè)備采購質(zhì)量保證措施
- GB/T 97.1-2002平墊圈A級
- GB/T 5121.27-2008銅及銅合金化學(xué)分析方法第27部分：電感耦合等離子體原子發(fā)射光譜法
- 【空間分析】01基于ArcGIS污水處理廠選址分析
- 公共信用信息平臺建設(shè)方案
- 蘇少版五年級美術(shù)全冊知識點歸納
- 第四單元 走進法治天地 復(fù)習(xí)課件-部編版道德與法治七年級下冊
評論
0/150
提交評論