已閱讀5頁，還剩4頁未讀， 繼續(xù)免費閱讀
版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進行舉報或認領(lǐng)
文檔簡介
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 = 運算數(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 = 分數(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 = 分數(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 = 分數(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 = 分數(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)容里面會有圖紙預覽，若沒有圖紙預覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負責。
- 6. 下載文件中如有侵權(quán)或不適當內(nèi)容，請與我們聯(lián)系，我們立即糾正。
- 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 山東省濱州市五校聯(lián)合2025屆生物七下期末經(jīng)典試題含解析
- 代理社保工傷險合同范例
- 2025屆北京市通州區(qū)物理八下期末學業(yè)質(zhì)量監(jiān)測模擬試題含解析
- 2025年浙江北侖區(qū)第三人民醫(yī)院醫(yī)療健康服務(wù)集團招聘筆試參考題庫含答案解析
- 2025年山東東營綜合保稅區(qū)通達招商服務(wù)有限公司招聘筆試參考題庫含答案解析
- 安全教育課件教學
- 山西中考英語試題單選題100道及答案
- 浙江省衢州二中等五校聯(lián)考2023-2024學年高三3月階段考試生物試題生 無答案
- 員工安全素質(zhì)教育培訓
- 助力衛(wèi)生資格考試成功的復習策略試題與答案
- 基于單片機的恒壓供水系統(tǒng)設(shè)計（附原理圖、程序清單及外文翻譯）
- 賓館飯店消防安全培訓課件
- 2022杭州新教科版六年級科學下冊第四單元《物質(zhì)的變化》全部教案（共7課）
- 客房物品擺放標準
- 弘揚新時代科學家精神（課件）-小學愛國主義教育主題班會通用版
- 當代社會問題課件
- 小學語文教師基本功大賽試卷及答案
- 某切眼掘進工作面開口施工的安全技術(shù)措施
- 古代職業(yè)-三教九流
- 某醫(yī)院安全生產(chǎn)三項制度（安全生產(chǎn)責任制、制度、操作規(guī)程）匯編
- 2022年我國新能源汽車產(chǎn)業(yè)發(fā)展趨勢分析
評論
0/150
提交評論