版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進行舉報或認領(lǐng)
文檔簡介
1、.vb 簡單的計算機源代碼 .txt 如果青春的時光在閑散中度過，那么回憶歲月將是一場凄涼的悲劇。雜草多的地方莊稼少，空話多的地方智慧少。即使路上沒有花朵，我仍可以欣賞荒蕪。Private Sub Command1_Click()Form1.Caption = " 歡迎使用智能計算器 "'載入默認正常顯示If Check1.Value = "0" Then'1類分歧ElseIf Text1.Text = "" Or Text2.Text = "" Then'2類分歧Form1.Caption
2、 = "xataliq kuruldi"Text3.Text = "運算數(shù)值不能為空 "ElseIf Text1.Text = "" And Text2.Text = "" Then'2類分歧Form1.Caption = "xataliq kuruldi"Text3.Text = "運算數(shù)值不能為空 "Else'2類分歧Dim a, b, c As Doublea = Val(Text1.Text)b = Val(Text2.Text)c = a + bTe
3、xt3.Text = cText1.Text = ""Text2.Text = ""End IfIf Check1.Value = "1" Then'1類分歧ElseIf Text1.Text = "" Or Text2.Text = "" Then'2類分歧Form1.Caption = "xataliq kuruldi"Text3.Text = "運算數(shù)值不能為空 "ElseIf Text1.Text = "" An
4、d Text2.Text = "" Then'2類分歧Form1.Caption = "xataliq kuruldi"Text3.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 Chec
5、k1.Value = "1" ThenElseIf Text1.Text = "" Or Text2.Text = "" ThenForm1.Caption = "xataliq kuruldi"Text3.Text = "運算數(shù)值不能為空 "ElseIf Text1.Text = "" And Text2.Text = "" Then1 / 9.Form1.Caption = "xataliq kuruldi"Text3.Text =
6、 "運算數(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 kuruldi"Text3.Text = "運算數(shù)值不能為空"ElseIf Te
7、xt1.Text = "" And Text2.Text = "" ThenForm1.Caption = "xataliq kuruldi"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 IfEnd SubPrivate Sub Comma
8、nd3_Click()Form1.Caption = "歡迎使用智能計算器"If Check1.Value = "1" ThenElseIf Text1.Text = "" Or Text2.Text = "" ThenForm1.Caption = "xataliq kuruldi"Text3.Text = "運算數(shù)值不能為空"ElseIf Text1.Text = "" And Text2.Text = "" ThenForm1.C
9、aption = "xataliq kuruldi"Text3.Text = "運算數(shù)值不能為空"ElseDim d, e, f As Doubled = Val(Text1.Text)e = Val(Text2.Text)f = d * eText3.Text = fEnd If2 / 9.If Check1.Value = "0" ThenElseIf Text1.Text = "" Or Text2.Text = "" ThenForm1.Caption = "xataliq k
10、uruldi"Text3.Text = "運算數(shù)值不能為空"ElseIf Text1.Text = "" And Text2.Text = "" ThenForm1.Caption = "xataliq kuruldi"Text3.Text = "運算數(shù)值不能為空"ElseDim a, b, c As Doublea = Val(Text1.Text)b = Val(Text2.Text)c = a * bText3.Text = cText1.Text = ""T
11、ext2.Text = ""End IfEnd SubPrivate Sub Command4_Click()Form1.Caption = "歡迎使用智能計算器"If Check1.Value = "0" ThenElseIf Text1.Text = "" Or Text2.Text = "" ThenForm1.Caption = "xataliq kuruldi"Text3.Text = "運算數(shù)值不能為空"ElseIf Text1.Text =
12、"" And Text2.Text = "" ThenForm1.Caption = "xataliq kuruldi"Text3.Text = "運算數(shù)值不能為空"ElseIf Val(Text2.Text) = "0" ThenForm1.Caption = "xataliq kuruldi"Text3.Text = "分?jǐn)?shù)的分子不能為零"ElseDim a, b, c As Doublea = Val(Text1.Text)b = Val(Text2
13、.Text)c = a / bText3.Text = cText1.Text = ""Text2.Text = ""End IfIf Check1.Value = "1" ThenElseIf Text1.Text = "" Or Text2.Text = "" ThenForm1.Caption = "xataliq kuruldi"Text3.Text = "運算數(shù)值不能為空"3 / 9.ElseIf Text1.Text = ""
14、; And Text2.Text = "" ThenForm1.Caption = "xataliq kuruldi"Text3.Text = "運算數(shù)值不能為空"ElseIf Val(Text2.Text) = "0" ThenForm1.Caption = "xataliq kuruldi"Text3.Text = "分?jǐn)?shù)的分子不能為零"ElseDim d, e, f As Doubled = Val(Text1.Text)e = Val(Text2.Text)f = d
15、 / 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()En
16、dEnd SubPrivate Sub Command8_Click()Form1.Caption = "歡迎使用智能計算器"If Text3.Text <> "" ThenText1.Text = Text3.TextText2.Text = ""Text3.Text = ""ElseForm1.Caption = "xataliq kuruldi"Text3.Text = "沒有結(jié)果無法繼續(xù)"4 / 9.End IfEnd SubPrivate Sub Tex
17、t2_Change()End SubPrivate Sub乘_Click()Form1.Caption = "歡迎使用智能計算器"If Check1.Value = "1" ThenElseIf Text1.Text = "" Or Text2.Text = "" ThenForm1.Caption = "xataliq kuruldi"Text3.Text = "運算數(shù)值不能為空"ElseIf Text1.Text = "" And Text2.Text
18、 = "" ThenForm1.Caption = "xataliq kuruldi"Text3.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.Capt
19、ion = "xataliq kuruldi"Text3.Text = "運算數(shù)值不能為空"ElseIf Text1.Text = "" And Text2.Text = "" ThenForm1.Caption = "xataliq kuruldi"Text3.Text = "運算數(shù)值不能為空"ElseDim a, b, c As Doublea = Val(Text1.Text)b = Val(Text2.Text)c = a * bText3.Text = cText1
20、.Text = ""Text2.Text = ""End IfEnd SubPrivate Sub除_Click()Form1.Caption = "歡迎使用智能計算器"5 / 9.If Check1.Value = "0" ThenElseIf Text1.Text = "" Or Text2.Text = "" ThenForm1.Caption = "xataliq kuruldi"Text3.Text = "運算數(shù)值不能為空"E
21、lseIf Text1.Text = "" And Text2.Text = "" ThenForm1.Caption = "xataliq kuruldi"Text3.Text = "運算數(shù)值不能為空"ElseIf Val(Text2.Text) = "0" ThenForm1.Caption = "xataliq kuruldi"Text3.Text = "分?jǐn)?shù)的分子不能為零"ElseDim a, b, c As Doublea = Val(Text1
22、.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 kuruldi"Text3.Text = "運算數(shù)值不能為空"ElseIf Text1.Text
23、= "" 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.T
24、ext = fEnd IfEnd SubPrivate Sub munasiwetlik_Click()Form1.Caption = "歡迎使用智能計算器"Form1.HideForm3.ShowEnd Sub6 / 9.Private Sub繼續(xù) _Click()Form1.Caption = " 歡迎使用智能計算器"If Text3.Text <> "" ThenText1.Text = Text3.TextText2.Text = ""Text3.Text = ""ElseF
25、orm1.Caption = "xataliq"Text3.Text = "沒有結(jié)果無法繼續(xù) "End IfEnd SubPrivate Sub加_Click()Form1.Caption = " 歡迎使用智能計算器"If Check1.Value = "0" ThenElseIf Text1.Text = "" Or Text2.Text = "" ThenForm1.Caption = "xataliq kuruldi"Text3.Text = &qu
26、ot;運算數(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
27、.Value = "1" ThenElseIf Text1.Text = "" Or Text2.Text = "" ThenForm1.Caption = "xataliq kuruldi"Text3.Text = "運算數(shù)值不能為空"ElseIf Text1.Text = "" And Text2.Text = "" ThenForm1.Caption = "xataliq kuruldi"Text3.Text = "運算
28、數(shù)值不能為空"ElseDim d, e, f As Doubled = Val(Text1.Text)e = Val(Text2.Text)f = d + eText3.Text = f7 / 9.End IfEnd SubPrivate Sub減_Click()Form1.Caption = "歡迎使用智能計算器"If Check1.Value = "1" ThenElseIf Text1.Text = "" Or Text2.Text = "" ThenForm1.Caption = "xataliq kuruldi"Text3.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)容負責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 2025至2030中國電焊頭盔行業(yè)產(chǎn)業(yè)運行態(tài)勢及投資規(guī)劃深度研究報告
- 2025至2030中國電子設(shè)備維修服務(wù)行業(yè)產(chǎn)業(yè)運行態(tài)勢及投資規(guī)劃深度研究報告
- 2025至2030中國甜茶葉子市場投資風(fēng)險及運行狀況預(yù)測研究報告版
- 2025至2030中國環(huán)境質(zhì)量檢測行業(yè)市場發(fā)展分析及競爭格局與投資前景報告
- 培訓(xùn)需求調(diào)查課件
- 餐飲服務(wù)培訓(xùn)課件
- 兒童健康成長之路從骨關(guān)節(jié)健康知識普及開始
- 智慧教育新篇章技術(shù)如何重塑學(xué)習(xí)成效
- 學(xué)習(xí)者的創(chuàng)新思維培養(yǎng)與實踐
- 那智智能技術(shù)助力商業(yè)高效運營與決策
- 初一生活學(xué)習(xí)指導(dǎo)
- 下肢靜脈曲張
- 2024年露營帳篷項目可行性研究報告
- 《公務(wù)員錄用體檢操作手冊(試行)》
- 2024粵東西粵北地區(qū)教師全員輪訓(xùn)培訓(xùn)心得總結(jié)
- 2024-2025學(xué)年華東師大版數(shù)學(xué)七年級上冊計算題專項訓(xùn)練
- 福建省機關(guān)工作人員年度考核登記表
- JBT 7808-2010 無損檢測儀器 工業(yè)X射線探傷機主參數(shù)系列
- DB44-T 2474-2024 自然教育標(biāo)識設(shè)置指引
- 研學(xué)基地合作協(xié)議
- 駕駛員行為規(guī)范管理制度
評論
0/150
提交評論