版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(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í)光在閑散中度過， 那么回憶歲月將是一場(chǎng)凄涼的悲劇。雜草多的地方莊稼少，空話多的地方智慧少。即使路上沒有花朵，我仍可以欣賞荒蕪。 Private Sub Command1_Click()Form1.Caption = 歡迎使用智能計(jì)算器載入默認(rèn)正常顯示If Check1.Value = 0 Then1 類分歧ElseIf Text1.Text = Or Text2.Text = Then2 類分歧Form1.Caption = xataliq kuruldiText3.Text = 運(yùn)算數(shù)值不能為空ElseIf Text1.Text = And
2、Text2.Text = Then2 類分歧Form1.Caption = xataliq kuruldiText3.Text = 運(yùn)算數(shù)值不能為空Else2 類分歧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 Then1 類分歧ElseIf Text1.Text = Or Text2.Text = Then2 類分歧Form1.Caption = xataliq kurul
3、diText3.Text = 運(yùn)算數(shù)值不能為空ElseIf Text1.Text = And Text2.Text = Then2 類分歧Form1.Caption = xataliq kuruldiText3.Text = 運(yùn)算數(shù)值不能為空Else2 類分歧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 Th
4、enElseIf Text1.Text = Or Text2.Text = ThenForm1.Caption = xataliq kuruldiText3.Text = 運(yùn)算數(shù)值不能為空ElseIf Text1.Text = And Text2.Text = Then精選范本.Form1.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
5、= 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.Te
6、xt = 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 D
7、oubled = Val(Text1.Text)e = Val(Text2.Text)f = d * eText3.Text = fEnd If精選范本.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ù)值不能為空ElseDim a, b,
8、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 =
9、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 ThenE
10、lseIf 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
11、= 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
12、 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.
13、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
14、.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 SubPr
15、ivate 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.Capt
16、ion = 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
17、 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.HideForm
18、3.ShowEnd Sub精選范本.Private 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 =
19、 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 =
20、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 = f精選范本.End 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 = And Te
溫馨提示
- 1. 本站所有資源如無特殊說明，都需要本地電腦安裝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ù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
- 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ì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 西華師范大學(xué)《商務(wù)文案設(shè)計(jì)》2023-2024學(xué)年第一學(xué)期期末試卷
- 西安理工大學(xué)《跨文化商務(wù)交際導(dǎo)論》2023-2024學(xué)年第一學(xué)期期末試卷
- 2024年高鐵站區(qū)建筑勞務(wù)清包合同
- 2024版條碼設(shè)備維護(hù)保養(yǎng)協(xié)議版
- 2024房地產(chǎn)買賣合同（含裝修及配套設(shè)施）
- 二零二五年度跨境電商代理運(yùn)輸服務(wù)協(xié)議
- 2024版禁牧管理員合同
- 2024版二人合作創(chuàng)業(yè)開店協(xié)議要覽版B版
- 二零二五年度能源行業(yè)核心技術(shù)人員保密及競(jìng)業(yè)限制合同2篇
- 二零二五版國(guó)有企業(yè)法人借款合同合規(guī)審查要點(diǎn)3篇
- 火災(zāi)應(yīng)急處理課件
- 創(chuàng)新者的逆襲3：新質(zhì)生產(chǎn)力的十八堂案例課-記錄
- 2024年河南省公務(wù)員考試《行測(cè)》真題及答案解析
- 2022-2024北京初三二模英語(yǔ)匯編：話題作文
- 人教版八年級(jí)英語(yǔ)上冊(cè)Unit1-10完形填空閱讀理解專項(xiàng)訓(xùn)練
- 2024年湖北省武漢市中考英語(yǔ)真題(含解析)
- GB/T 44561-2024石油天然氣工業(yè)常規(guī)陸上接收站液化天然氣裝卸臂的設(shè)計(jì)與測(cè)試
- 《城市綠地設(shè)計(jì)規(guī)范》2016-20210810154931
- 網(wǎng)球場(chǎng)經(jīng)營(yíng)方案
- 2024年公司保密工作制度（四篇）
- 重慶市康德卷2025屆高一數(shù)學(xué)第一學(xué)期期末聯(lián)考試題含解析
評(píng)論
0/150
提交評(píng)論