已閱讀5頁，還剩4頁未讀， 繼續(xù)免費閱讀
版權說明：本文檔由用戶提供并上傳，收益歸屬內容提供方，若內容存在侵權，請進行舉報或認領
文檔簡介
vb簡單的計算機源代碼.txt如果青春的時光在閑散中度過，那么回憶歲月將是一場凄涼的悲劇。雜草多的地方莊稼少，空話多的地方智慧少。即使路上沒有花朵，我仍可以欣賞荒蕪。Private Sub Command1_Click()Form1.Caption = 歡迎使用智能計算器 載入默認正常顯示If Check1.Value = 0 Then 1類分歧ElseIf Text1.Text = Or Text2.Text = Then 2類分歧Form1.Caption = xataliq kuruldiText3.Text = 運算數值不能為空ElseIf Text1.Text = And Text2.Text = Then 2類分歧Form1.Caption = xataliq kuruldiText3.Text = 運算數值不能為空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 = 運算數值不能為空ElseIf Text1.Text = And Text2.Text = Then 2類分歧Form1.Caption = xataliq kuruldiText3.Text = 運算數值不能為空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 = 運算數值不能為空ElseIf Text1.Text = And Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運算數值不能為空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 = 運算數值不能為空ElseIf Text1.Text = And Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運算數值不能為空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 = 運算數值不能為空ElseIf Text1.Text = And Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運算數值不能為空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 = 運算數值不能為空ElseIf Text1.Text = And Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運算數值不能為空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 = 運算數值不能為空ElseIf Text1.Text = And Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運算數值不能為空ElseIf Val(Text2.Text) = 0 ThenForm1.Caption = xataliq kuruldiText3.Text = 分數的分子不能為零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 = 運算數值不能為空ElseIf Text1.Text = And Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運算數值不能為空ElseIf Val(Text2.Text) = 0 ThenForm1.Caption = xataliq kuruldiText3.Text = 分數的分子不能為零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 = 沒有結果無法繼續(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 = 運算數值不能為空ElseIf Text1.Text = And Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運算數值不能為空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 = 運算數值不能為空ElseIf Text1.Text = And Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運算數值不能為空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 = 運算數值不能為空ElseIf Text1.Text = And Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運算數值不能為空ElseIf Val(Text2.Text) = 0 ThenForm1.Caption = xataliq kuruldiText3.Text = 分數的分子不能為零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 = 運算數值不能為空ElseIf Text1.Text = And Text2.Text = ThenForm1.Caption = 錯誤Text3.Text = 運算數值不能為空ElseIf Val(Text2.Text) = 0 ThenForm1.Caption = 錯誤Text3.Text = 分數的分子不能為零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 = 沒有結果無法繼續(xù)End IfEnd SubPrivate Sub 加_Click()Form1.Caption = 歡迎使用智能計算器If Check1.Value = 0 ThenElseIf Text1.Text = Or Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運算數值不能為空ElseIf Text1.Text = And Text2.Text = ThenForm1.Caption = 錯誤Text3.Text = 運算數值不能為空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 = 運算數值不能為空ElseIf Text1.Text = And Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運算數值不能為空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 = 運算數值不能為空ElseIf Text1.Text =
溫馨提示
- 1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯系上傳者。文件的所有權益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙，網頁內容里面會有圖紙預覽，若沒有圖紙預覽就沒有圖紙。
- 4. 未經權益所有人同意不得將文件中的內容挪作商業(yè)或盈利用途。
- 5. 人人文庫網僅提供信息存儲空間，僅對用戶上傳內容的表現方式做保護處理，對用戶上傳分享的文檔內容本身不做任何修改或編輯，并不能對任何下載內容負責。
- 6. 下載文件中如有侵權或不適當內容，請與我們聯系，我們立即糾正。
- 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 《GB-T 36841-2018桃叢簇花葉病毒檢疫鑒定方法》專題研究報告
- 《GBT 29607-2013橡膠制品 鎘含量的測定 原子吸收光譜法》專題研究報告
- 《GB-T 2909-2014橡膠工業(yè)用棉本色帆布》專題研究報告
- 《AQ 1059-2008煤礦安全檢查工安全技術培訓大綱及考核標準》專題研究報告
- 2026年哈爾濱城市職業(yè)學院單招綜合素質考試題庫附答案詳解
- 企業(yè) ESG 信息披露咨詢服務合同
- 中式面點師考試試卷與答案
- 助聽器驗配師技師（中級）考試試卷及答案
- 單位2025年應急管理工作情況報告
- 2025年(超)短波數字話音保密機項目合作計劃書
- 高層建筑火災風險評估與管理策略研究
- 綜合管線探挖安全專項施工方案
- GB/T 37507-2025項目、項目群和項目組合管理項目管理指南
- 華為管理手冊-新員工培訓
- 社保補繳差額協議書
- 2025成人有創(chuàng)機械通氣氣道內吸引技術操作
- 2025年江蘇省職業(yè)院校技能大賽高職組（人力資源服務）參考試題庫資料及答案
- 東北農業(yè)大學教案課程肉品科學與技術
- 成都市金牛區(qū)2025屆初三一診（同期末考試）語文試卷
- 如何應對網絡暴力和欺凌行為
- 現代技術服務費合同1
評論
0/150
提交評論