已閱讀5頁，還剩4頁未讀， 繼續(xù)免費(fèi)閱讀
版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡介
vb簡單的計(jì)算機(jī)源代碼.txt如果青春的時(shí)光在閑散中度過，那么回憶歲月將是一場凄涼的悲劇。雜草多的地方莊稼少，空話多的地方智慧少。即使路上沒有花朵，我仍可以欣賞荒蕪。Private Sub Command1_Click()Form1.Caption = 歡迎使用智能計(jì)算器 載入默認(rèn)正常顯示If Check1.Value = 0 Then 1類分歧ElseIf Text1.Text = Or Text2.Text = Then 2類分歧Form1.Caption = xataliq kuruldiText3.Text = 運(yùn)算數(shù)值不能為空ElseIf Text1.Text = And Text2.Text = Then 2類分歧Form1.Caption = xataliq kuruldiText3.Text = 運(yùn)算數(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 = 運(yùn)算數(shù)值不能為空ElseIf Text1.Text = And Text2.Text = Then 2類分歧Form1.Caption = xataliq kuruldiText3.Text = 運(yùn)算數(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 = 歡迎使用智能計(jì)算器If Check1.Value = 1 ThenElseIf Text1.Text = Or Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運(yùn)算數(shù)值不能為空ElseIf Text1.Text = And Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運(yùn)算數(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 = 運(yùn)算數(shù)值不能為空ElseIf Text1.Text = And Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運(yùn)算數(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 = 歡迎使用智能計(jì)算器If Check1.Value = 1 ThenElseIf Text1.Text = Or Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運(yùn)算數(shù)值不能為空ElseIf Text1.Text = And Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運(yùn)算數(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 = 運(yùn)算數(shù)值不能為空ElseIf Text1.Text = And Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運(yùn)算數(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 = 歡迎使用智能計(jì)算器If Check1.Value = 0 ThenElseIf Text1.Text = Or Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運(yùn)算數(shù)值不能為空ElseIf Text1.Text = And Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運(yùn)算數(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 = 運(yùn)算數(shù)值不能為空ElseIf Text1.Text = And Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運(yùn)算數(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 = 歡迎使用智能計(jì)算器Text1.Text = Text2.Text = Text3.Text = End SubPrivate Sub Command6_Click()Form1.Caption = 歡迎使用智能計(jì)算器Form1.HideForm3.ShowEnd SubPrivate Sub Command7_Click()EndEnd SubPrivate Sub Command8_Click()Form1.Caption = 歡迎使用智能計(jì)算器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 = 歡迎使用智能計(jì)算器If Check1.Value = 1 ThenElseIf Text1.Text = Or Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運(yùn)算數(shù)值不能為空ElseIf Text1.Text = And Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運(yùn)算數(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 = 運(yùn)算數(shù)值不能為空ElseIf Text1.Text = And Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運(yùn)算數(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 = 歡迎使用智能計(jì)算器If Check1.Value = 0 ThenElseIf Text1.Text = Or Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運(yùn)算數(shù)值不能為空ElseIf Text1.Text = And Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運(yùn)算數(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 = 運(yùn)算數(shù)值不能為空ElseIf Text1.Text = And Text2.Text = ThenForm1.Caption = 錯(cuò)誤Text3.Text = 運(yùn)算數(shù)值不能為空ElseIf Val(Text2.Text) = 0 ThenForm1.Caption = 錯(cuò)誤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 = 歡迎使用智能計(jì)算器Form1.HideForm3.ShowEnd SubPrivate Sub 繼續(xù)_Click()Form1.Caption = 歡迎使用智能計(jì)算器If Text3.Text ThenText1.Text = Text3.TextText2.Text = Text3.Text = ElseForm1.Caption = xataliqText3.Text = 沒有結(jié)果無法繼續(xù)End IfEnd SubPrivate Sub 加_Click()Form1.Caption = 歡迎使用智能計(jì)算器If Check1.Value = 0 ThenElseIf Text1.Text = Or Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運(yùn)算數(shù)值不能為空ElseIf Text1.Text = And Text2.Text = ThenForm1.Caption = 錯(cuò)誤Text3.Text = 運(yù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 = 運(yùn)算數(shù)值不能為空ElseIf Text1.Text = And Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運(yùn)算數(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 = 歡迎使用智能計(jì)算器If Check1.Value = 1 ThenElseIf Text1.Text = Or Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運(yùn)算數(shù)值不能為空ElseIf Text1.Text =
溫馨提示
- 1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲(chǔ)空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 二零二五年度盆栽養(yǎng)護(hù)管理及售后服務(wù)合同
- 二零二五年度解聘勞動(dòng)合同補(bǔ)償標(biāo)準(zhǔn)及社會(huì)保險(xiǎn)銜接協(xié)議
- 二零二五年度民事糾紛和解協(xié)議書（附爭議解決專家評審）
- 2025年度砸墻工程安全施工人員健康管理協(xié)議合同
- 2025年度綠色建筑合伙公司股權(quán)合作協(xié)議書
- 2025年度跨境電商市場調(diào)研商務(wù)合作協(xié)議書
- 2025年度液化氣價(jià)格調(diào)整與結(jié)算合作協(xié)議
- 二零二五年度綠色建筑項(xiàng)目融資合同
- 二零二五農(nóng)村宅基地買賣與農(nóng)村土地整治與生態(tài)保護(hù)合同
- 二零二五年度生活垃圾清運(yùn)與廢棄物處理設(shè)施建設(shè)協(xié)議
- 數(shù)據(jù)管理（培訓(xùn)課件）
- 唇腺活檢的疾病查房課件
- 全套ISO45001職業(yè)健康安全管理體系文件(手冊及程序文件)
- tdp燙傷處理應(yīng)急預(yù)案
- ICD-9-CM-3手術(shù)與操作國家臨床版亞目表
- MQL4命令中文詳解手冊
- 辦公耗材采購 投標(biāo)方案（技術(shù)方案）
- 水利工程危險(xiǎn)源辨識(shí)清單全
- 家長會(huì)課件：六年級(jí)數(shù)學(xué)家長會(huì)老師課件
- ISO20000：2018版標(biāo)準(zhǔn)培訓(xùn)教材
- 創(chuàng)新中學(xué)化學(xué)教學(xué)中的實(shí)驗(yàn)設(shè)計(jì)
評論
0/150
提交評論