下載本文檔
版權(quán)說(shuō)明：本文檔由用戶(hù)提供并上傳，收益歸屬內(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)凄涼的悲 劇。雜草多的地方莊稼少，空話(huà)多的地方智慧少。即使路上沒(méi)有花朵，我仍可以欣賞荒蕪。 Private Sub Command1_Click()Form1.Caption =" 歡迎使用智能計(jì)算器 " '載入默認(rèn)正常顯示If Check1.Value ="0" Then '1類(lèi)分歧ElseIf Text1.Text= "" Or Text2.Text = "" Then'2類(lèi)分歧Form1.Captio
2、n ="xataliq kuruldi"Text3.Text = "運(yùn)算數(shù)值不能為空 "ElseIf Text1.Text= "" And Text2.Text = "" Then'2類(lèi)分歧Form1.Caption ="xataliq kuruldi"Text3.Text = "運(yùn)算數(shù)值不能為空 "Else'2類(lèi)分歧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類(lèi)分歧ElseIf Text1.Text= "" Or Text2.Text ="" Then '2類(lèi)分歧Form1.Caption ="xataliq kuruldi"Text3.Text = "運(yùn)算數(shù)值不能為空IIElseIf Text1.Text= "" And Te
4、xt2.Text= "" Then'2類(lèi)分歧Form1.Caption ="xataliq kuruldi"Text3.Text = "運(yùn)算數(shù)值不能為空IIElse'2類(lèi)分歧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)益歸上傳用戶(hù)所有。
- 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ì)用戶(hù)上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對(duì)用戶(hù)上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請(qǐng)與我們聯(lián)系，我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶(hù)因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 2025年生活垃圾焚燒爐項(xiàng)目建議書(shū)
- 產(chǎn)業(yè)研究報(bào)告-2024年中國(guó)錄播系統(tǒng)行業(yè)發(fā)展現(xiàn)狀、市場(chǎng)規(guī)模、投資前景分析（智研咨詢(xún)）
- 腦卒中各種量表培訓(xùn)
- 2025年碳纖維預(yù)浸布項(xiàng)目合作計(jì)劃書(shū)
- 麥秸板企業(yè)數(shù)字化轉(zhuǎn)型與智慧升級(jí)戰(zhàn)略研究報(bào)告
- 2025年干部休養(yǎng)所服務(wù)項(xiàng)目建議書(shū)
- 硫酸鋁銨企業(yè)ESG實(shí)踐與創(chuàng)新戰(zhàn)略研究報(bào)告
- 活性酵母企業(yè)數(shù)字化轉(zhuǎn)型與智慧升級(jí)戰(zhàn)略研究報(bào)告
- 母乳儲(chǔ)存袋與吸奶器套裝企業(yè)制定與實(shí)施新質(zhì)生產(chǎn)力戰(zhàn)略研究報(bào)告
- 合成甜味劑企業(yè)ESG實(shí)踐與創(chuàng)新戰(zhàn)略研究報(bào)告
- 2025年安全員C證（專(zhuān)職安全員）考試題庫(kù)
- 地理-天一大聯(lián)考2025屆高三四省聯(lián)考（陜晉青寧）試題和解析
- 2025年廣州市公安局招考聘用交通輔警200人高頻重點(diǎn)模擬試卷提升（共500題附帶答案詳解）
- 貴州省貴陽(yáng)市2024-2025學(xué)年九年級(jí)上學(xué)期期末語(yǔ)文試題（含答案）
- 2025年江蘇海事職業(yè)技術(shù)學(xué)院高職單招職業(yè)適應(yīng)性測(cè)試近5年?？及鎱⒖碱}庫(kù)含答案解析
- 計(jì)件工資計(jì)算表格模板
- 兩癌防治知識(shí)培訓(xùn)
- 《moldflow學(xué)習(xí)資料》課件
- 2025中國(guó)移動(dòng)安徽分公司春季社會(huì)招聘高頻重點(diǎn)提升（共500題）附帶答案詳解
- 2024年吉安職業(yè)技術(shù)學(xué)院?jiǎn)握新殬I(yè)技能測(cè)試題庫(kù)附答案
- 湖南省對(duì)口招生考試醫(yī)衛(wèi)專(zhuān)業(yè)試題(2024-2025年)
評(píng)論
0/150
提交評(píng)論