版權(quán)說(shuō)明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
1、vb 簡(jiǎn)單的計(jì)算機(jī)源代碼 .txt 如果青春的時(shí)光在閑散中度過(guò)， 那么回憶歲月將是一場(chǎng)凄涼的悲 劇。雜草多的地方莊稼少，空話多的地方智慧少。即使路上沒(méi)有花朵，我仍可以欣賞荒蕪。 Private Sub Command1_Click()Form1.Caption =" 歡迎使用智能計(jì)算器 " '載入默認(rèn)正常顯示If Check1.Value ="0" Then '1類分歧ElseIf Text1.Text= "" Or Text2.Text = "" Then'2類分歧Form1.Captio
2、n ="xataliq kuruldi"Text3.Text = "運(yùn)算數(shù)值不能為空 "ElseIf Text1.Text= "" And Text2.Text = "" Then'2類分歧Form1.Caption ="xataliq kuruldi"Text3.Text = "運(yùn)算數(shù)值不能為空 "Else'2類分歧Dim a, b, c As Double a = Val(Text1.Text) b = Val(Text2.Text) c = a + b
3、Text3.Text = c Text1.Text = "" Text2.Text = ""End IfIf Check1.Value = "1" Then'1類分歧ElseIf Text1.Text= "" Or Text2.Text ="" Then '2類分歧Form1.Caption ="xataliq kuruldi"Text3.Text = "運(yùn)算數(shù)值不能為空IIElseIf Text1.Text= "" And Te
4、xt2.Text= "" Then'2類分歧Form1.Caption ="xataliq kuruldi"Text3.Text = "運(yùn)算數(shù)值不能為空IIElse'2類分歧Dim d, e, f As Double d = Val(Text1.Text) e = Val(Text2.Text)f = d + eText3.Text = fEnd IfEnd SubPrivate Sub Command2_Click()Form1.Caption = " 歡迎使用智能計(jì)算器 " If Check1.Value
5、 = "1" ThenElseIf Text1.Text = "" Or Text2.Text = "" ThenForm1.Caption = "xataliq kuruldi"Text3.Text = " 運(yùn)算數(shù)值不能為空 "ElseIf Text1.Text = "" And Text2.Text = "" ThenForm1.Caption = "xataliq kuruldi"Text3.Text = " 運(yùn)算數(shù)值不
6、能為空 ElseDim d, e, f As Double d = Val(Text1.Text) e = Val(Text2.Text) f = d - eText3.Text = fEnd IfIf Check1.Value = "0" ThenElseIf Text1.Text = "" Or Text2.Text = "" Then Form1.Caption = "xataliq kuruldi"Text3.Text = " 運(yùn)算數(shù)值不能為空 "ElseIf Text1.Text =
7、"" And Text2.Text = "" ThenForm1.Caption = "xataliq kuruldi"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 IfEnd SubPrivate Sub Command3_Click
8、() Form1.Caption = " 歡迎使用智能計(jì)算器 "If Check1.Value = "1" ThenElseIf Text1.Text = "" Or Text2.Text = "" Then Form1.Caption = "xataliq kuruldi"Text3.Text = " 運(yùn)算數(shù)值不能為空 "ElseIf Text1.Text = "" And Text2.Text = "" ThenForm1.Capt
9、ion = "xataliq kuruldi"Text3.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 = "" Then Form1.Caption = "xataliq kuruldi
10、"Text3.Text = " 運(yùn)算數(shù)值不能為空 "ElseIf Text1.Text = "" And Text2.Text = "" ThenForm1.Caption = "xataliq kuruldi"Text3.Text = " 運(yùn)算數(shù)值不能為空 "ElseDim a, b, c As Doublea = Val(Text1.Text)b = Val(Text2.Text)c = a * bText3.Text = cText1.Text = ""Tex
11、t2.Text = ""End IfEnd SubPrivate Sub Command4_Click() Form1.Caption = " 歡迎使用智能計(jì)算器 "If Check1.Value = "0" ThenElseIf Text1.Text = "" Or Text2.Text = "" ThenForm1.Caption = "xataliq kuruldi"Text3.Text = " 運(yùn)算數(shù)值不能為空 "ElseIf Text1.Text
12、 = "" And Text2.Text = "" ThenForm1.Caption = "xataliq kuruldi"Text3.Text = " 運(yùn)算數(shù)值不能為空 "ElseIf Val(Text2.Text) = "0" Then Form1.Caption = "xataliq kuruldi"Text3.Text = " 分?jǐn)?shù)的分子不能為零 "ElseDim a, b, c As Doublea = Val(Text1.Text)b = V
13、al(Text2.Text)c = a / bText3.Text = cText1.Text = ""Text2.Text = ""End IfIf Check1.Value = "1" ThenElseIf Text1.Text = "" Or Text2.Text = "" Then Form1.Caption = "xataliq kuruldi" Text3.Text = " 運(yùn)算數(shù)值不能為空 "ElseIf Text1.Text = "
14、;" And Text2.Text = "" ThenForm1.Caption = "xataliq kuruldi"Text3.Text = " 運(yùn)算數(shù)值不能為空ElseIf Val(Text2.Text) = "0" ThenForm1.Caption = "xataliq kuruldi" Text3.Text = " 分?jǐn)?shù)的分子不能為零 ElseDim d, e, f As Double d = Val(Text1.Text) e = Val(Text2.Text) f =
15、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 SubP
16、rivate Sub Command8_Click()Form1.Caption = " 歡迎使用智能計(jì)算器If Text3.Text <> "" ThenText1.Text = Text3.TextText2.Text = ""Text3.Text = ""ElseForm1.Caption = "xataliq kuruldi"Text3.Text = " 沒(méi)有結(jié)果無(wú)法繼續(xù) "End IfEnd SubPrivate Sub Text2_Change()End Sub
17、Private Sub 乘 _Click()Form1.Caption = " 歡迎使用智能計(jì)算器 "If Check1.Value = "1" ThenElseIf Text1.Text = "" Or Text2.Text = "" Then Form1.Caption = "xataliq kuruldi" Text3.Text = " 運(yùn)算數(shù)值不能為空 "ElseIf Text1.Text = "" And Text2.Text = "&
18、quot; ThenForm1.Caption = "xataliq kuruldi"Text3.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 = "" Then Form1.Caption = &
19、quot;xataliq kuruldi"Text3.Text = " 運(yùn)算數(shù)值不能為空 "ElseIf Text1.Text = "" And Text2.Text = "" ThenForm1.Caption = "xataliq kuruldi"Text3.Text = " 運(yùn)算數(shù)值不能為空 "ElseDim a, b, c As Doublea = Val(Text1.Text)b = Val(Text2.Text)c = a * bText3.Text = cText1.Te
20、xt = ""Text2.Text = ""End IfEnd SubPrivate Sub 除 _Click()Form1.Caption = " 歡迎使用智能計(jì)算器If Check1.Value = "0" ThenElseIf Text1.Text = "" Or Text2.Text = "" Then Form1.Caption = "xataliq kuruldi" Text3.Text = " 運(yùn)算數(shù)值不能為空 "ElseIf Te
21、xt1.Text = "" And Text2.Text = "" ThenForm1.Caption = "xataliq kuruldi"Text3.Text = " 運(yùn)算數(shù)值不能為空 "ElseIf Val(Text2.Text) = "0" ThenForm1.Caption = "xataliq kuruldi"Text3.Text = " 分?jǐn)?shù)的分子不能為零 "ElseDim a, b, c As Doublea = Val(Text1.Tex
22、t)b = Val(Text2.Text)c = a / bText3.Text = cText1.Text = ""Text2.Text = ""End IfIf Check1.Value = "1" ThenElseIf Text1.Text = "" Or Text2.Text = "" Then Form1.Caption = "xataliq kuruldi" Text3.Text = " 運(yùn)算數(shù)值不能為空 "ElseIf Text1.Text
23、= "" And Text2.Text = "" ThenForm1.Caption = " 錯(cuò)誤 "Text3.Text = " 運(yùn)算數(shù)值不能為空 "ElseIf Val(Text2.Text) = "0" Then Form1.Caption = " 錯(cuò)誤 "Text3.Text = " 分?jǐn)?shù)的分子不能為零 "ElseDim d, e, f As Doubled = Val(Text1.Text)e = Val(Text2.Text)f = d / e
24、Text3.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.Capt
25、ion = "xataliq"Text3.Text = " 沒(méi)有結(jié)果無(wú)法繼續(xù) "End IfEnd SubPrivate Sub 加 _Click()Form1.Caption = " 歡迎使用智能計(jì)算器 "If Check1.Value = "0" ThenElseIf Text1.Text = "" Or Text2.Text = "" Then Form1.Caption = "xataliq kuruldi"Text3.Text = "
26、運(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
27、.Value = "1" ThenElseIf Text1.Text = "" Or Text2.Text = "" ThenForm1.Caption = "xataliq kuruldi"Text3.Text = " 運(yùn)算數(shù)值不能為空 "ElseIf Text1.Text = "" And Text2.Text = "" ThenForm1.Caption = "xataliq kuruldi"Text3.Text = "
28、 運(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 = "" Then Form1.Caption = "xataliq kuruldi" Text3.Text = " 運(yùn)算數(shù)值不能為空 &quo
溫馨提示
- 1. 本站所有資源如無(wú)特殊說(shuō)明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間，僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請(qǐng)與我們聯(lián)系，我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 2024年廣西壯族自治區(qū)賀州市公開招聘警務(wù)輔助人員輔警筆試自考題1卷含答案
- 2022年云南省迪慶自治州公開招聘警務(wù)輔助人員輔警筆試自考題2卷含答案
- 2024年廣東省江門市公開招聘警務(wù)輔助人員輔警筆試自考題1卷含答案
- 2024年數(shù)據(jù)標(biāo)注與審核項(xiàng)目項(xiàng)目投資申請(qǐng)報(bào)告代可行性研究報(bào)告
- 綠色施工責(zé)任共擔(dān)-環(huán)保工程研討會(huì)
- 2024年街邊店鋪?zhàn)饧s合同
- 2024版智能穿戴設(shè)備供應(yīng)與技術(shù)支持合同
- 2022年-2023年護(hù)師類之主管護(hù)師模擬考試試卷A卷（含答案）
- 《紅樓夢(mèng)》高考文學(xué)常識(shí)單選題100道及答案
- 2022年中考化學(xué)單元復(fù)習(xí)【知識(shí)清單·必做題】第十單元 常見的酸和堿(解析版)
- 中建醫(yī)療工程交付指南
- 譯林版小學(xué)英語(yǔ)二年級(jí)上全冊(cè)教案
- DL∕T 821-2017 金屬熔化焊對(duì)接接頭射線檢測(cè)技術(shù)和質(zhì)量分級(jí)
- DL∕ T 1195-2012 火電廠高壓變頻器運(yùn)行與維護(hù)規(guī)范
- 小學(xué)五年級(jí)英語(yǔ)語(yǔ)法練習(xí)
- NB-T32004-2018光伏并網(wǎng)逆變器技術(shù)規(guī)范
- 領(lǐng)導(dǎo)與班子廉潔談話記錄(4篇)
- 衡陽(yáng)市耒陽(yáng)市2022-2023學(xué)年七年級(jí)上學(xué)期期末語(yǔ)文試題【帶答案】
- 文庫(kù)發(fā)布：strata手冊(cè)
- 2024-2030年中國(guó)大棚蔬菜種植行業(yè)市場(chǎng)發(fā)展監(jiān)測(cè)及投資前景展望報(bào)告
- 旋挖鉆孔灌注樁施工技術(shù)規(guī)程
評(píng)論
0/150
提交評(píng)論