vb簡單的計算機源代碼資料_第1頁
vb簡單的計算機源代碼資料_第2頁
vb簡單的計算機源代碼資料_第3頁
免費預(yù)覽已結(jié)束，剩余6頁可下載查看

下載本文檔

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進行舉報或認(rèn)領(lǐng)

文檔簡介

1、vb 簡單的計算機源代碼 .txt 如果青春的時光在閑散中度過， 那么回憶歲月將是一場凄涼的悲 劇。雜草多的地方莊稼少，空話多的地方智慧少。即使路上沒有花朵，我仍可以欣賞荒蕪。 Private Sub Command1_Click()Form1.Caption =" 歡迎使用智能計算器 " '載入默認(rèn)正常顯示If Check1.Value ="0" Then '1類分歧ElseIf Text1.Text= "" Or Text2.Text = "" Then'2類分歧Form1.Captio

2、n ="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 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 = "運算數(shù)值不能為空IIElseIf Text1.Text= "" And Te

4、xt2.Text= "" Then'2類分歧Form1.Caption ="xataliq kuruldi"Text3.Text = "運算數(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 = " 歡迎使用智能計算器 " If Check1.Value

5、 = "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 = " 運算數(shù)值不

6、能為空 "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"Text3.Text = " 運算數(shù)值不能為空 "ElseIf Text1.Text

7、 = "" 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 Command3_Cl

8、ick() Form1.Caption = " 歡迎使用智能計算器 "If Check1.Value = "1" ThenElseIf Text1.Text = "" Or Text2.Text = "" Then Form1.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 IfIf Check1.Value = "0" ThenElseIf Text1.Text = "" Or Text2.Text = "" Then Form1.Caption = "xataliq kuru

10、ldi"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 = ""

11、Text2.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.T

12、ext = "" And Text2.Text = "" ThenForm1.Caption = "xataliq kuruldi"Text3.Text = " 運算數(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

13、= 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 = " 運算數(shù)值不能為空 "ElseIf Text1.Text = &q

14、uot;" 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 Double d = Val(Text1.Text) e = Val(Text2.Text) f

15、 = d / 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()EndEnd S

16、ubPrivate Sub Command8_Click()Form1.Caption = " 歡迎使用智能計算器If Text3.Text <> "" ThenText1.Text = Text3.TextText2.Text = ""Text3.Text = ""ElseForm1.Caption = "xataliq kuruldi"Text3.Text = " 沒有結(jié)果無法繼續(xù) "End IfEnd SubPrivate Sub Text2_Change()End

17、SubPrivate Sub 乘 _Click()Form1.Caption = " 歡迎使用智能計算器 "If Check1.Value = "1" ThenElseIf Text1.Text = "" Or Text2.Text = "" Then Form1.Caption = "xataliq kuruldi" Text3.Text = " 運算數(shù)值不能為空 "ElseIf Text1.Text = "" And Text2.Text = &quo

18、t;" 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 = "" Then Form1.Caption

19、= "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 = " 歡迎使用智能計算器If Check1.Value = "0" ThenElseIf Text1.Text = "" Or Text2.Text = "" Then Form1.Caption = "xataliq kuruldi" Text3.Text = " 運算數(shù)值不能為空 "ElseIf

21、 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 = "" Then Form1.Caption = "xataliq kuruldi" Text3.Text = " 運算數(shù)值不能為空 "ElseIf Text1.Te

23、xt = "" And Text2.Text = "" ThenForm1.Caption = " 錯誤 "Text3.Text = " 運算數(shù)值不能為空 "ElseIf Val(Text2.Text) = "0" Then Form1.Caption = " 錯誤 "Text3.Text = " 分?jǐn)?shù)的分子不能為零 "ElseDim d, e, f As Doubled = Val(Text1.Text)e = Val(Text2.Text)f = d

24、/ eText3.Text = fEnd IfEnd SubPrivate Sub munasiwetlik_Click()Form1.Caption = " 歡迎使用智能計算器Form1.HideForm3.ShowIIPrivate Sub 繼續(xù) _Click()Form1.Caption = " 歡迎使用智能計算器If Text3.Text <> "" ThenText1.Text = Text3.TextText2.Text = ""Text3.Text = ""ElseForm1.Captio

25、n = "xataliq"Text3.Text = " 沒有結(jié)果無法繼續(xù) "End IfEnd SubPrivate Sub 加 _Click()Form1.Caption = " 歡迎使用智能計算器 "If Check1.Value = "0" ThenElseIf Text1.Text = "" Or Text2.Text = "" Then Form1.Caption = "xataliq kuruldi"Text3.Text = " 運算

26、數(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.V

27、alue = "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 = fEnd IfEnd SubPrivate Sub 減 _Click()Form1.Caption = " 歡迎使用智能計算器 "If Check1.Value = "1" ThenElseIf Text1.Text = "" Or Text2.Text = "" Then Form1.Caption = "xataliq kuruldi" Text3.Text = " 運算數(shù)值不能為

溫馨提示

  • 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)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

最新文檔

評論

0/150

提交評論