vb簡(jiǎn)單的計(jì)算機(jī)源代碼

/vb簡(jiǎn)單的計(jì)算機(jī)源代碼.txt如果青春的時(shí)光在閑散中度過(guò)，那么回憶歲月將是一場(chǎng)凄涼的悲劇。雜草多的地方莊稼少，空話多的地方智慧少。即使路上沒(méi)有花朵，我仍可以欣賞荒蕪。PrivateSubCommand1_Click()Form1.Caption="歡迎使用智能計(jì)算器"'載入默認(rèn)正常顯示IfCheck1.Value="0"Then'1類分歧ElseIfText1.Text=""OrText2.Text=""Then'2類分歧Form1.Caption="xataliqkuruldi"Text3.Text="運(yùn)算數(shù)值不能為空"ElseIfText1.Text=""AndText2.Text=""Then'2類分歧Form1.Caption="xataliqkuruldi"Text3.Text="運(yùn)算數(shù)值不能為空"Else'2類分歧Dima,b,cAsDoublea=Val(Text1.Text)b=Val(Text2.Text)c=a+bText3.Text=cText1.Text=""Text2.Text=""EndIfIfCheck1.Value="1"Then'1類分歧ElseIfText1.Text=""OrText2.Text=""Then'2類分歧Form1.Caption="xataliqkuruldi"Text3.Text="運(yùn)算數(shù)值不能為空"ElseIfText1.Text=""AndText2.Text=""Then'2類分歧Form1.Caption="xataliqkuruldi"Text3.Text="運(yùn)算數(shù)值不能為空"Else'2類分歧Dimd,e,fAsDoubled=Val(Text1.Text)e=Val(Text2.Text)f=d+eText3.Text=fEndIfEndSubPrivateSubCommand2_Click()Form1.Caption="歡迎使用智能計(jì)算器"IfCheck1.Value="1"ThenElseIfText1.Text=""OrText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="運(yùn)算數(shù)值不能為空"ElseIfText1.Text=""AndText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="運(yùn)算數(shù)值不能為空"ElseDimd,e,fAsDoubled=Val(Text1.Text)e=Val(Text2.Text)f=d-eText3.Text=fEndIfIfCheck1.Value="0"ThenElseIfText1.Text=""OrText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="運(yùn)算數(shù)值不能為空"ElseIfText1.Text=""AndText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="運(yùn)算數(shù)值不能為空"ElseDima,b,cAsDoublea=Val(Text1.Text)b=Val(Text2.Text)c=a-bText3.Text=cText1.Text=""Text2.Text=""EndIfEndSubPrivateSubCommand3_Click()Form1.Caption="歡迎使用智能計(jì)算器"IfCheck1.Value="1"ThenElseIfText1.Text=""OrText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="運(yùn)算數(shù)值不能為空"ElseIfText1.Text=""AndText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="運(yùn)算數(shù)值不能為空"ElseDimd,e,fAsDoubled=Val(Text1.Text)e=Val(Text2.Text)f=d*eText3.Text=fEndIfIfCheck1.Value="0"ThenElseIfText1.Text=""OrText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="運(yùn)算數(shù)值不能為空"ElseIfText1.Text=""AndText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="運(yùn)算數(shù)值不能為空"ElseDima,b,cAsDoublea=Val(Text1.Text)b=Val(Text2.Text)c=a*bText3.Text=cText1.Text=""Text2.Text=""EndIfEndSubPrivateSubCommand4_Click()Form1.Caption="歡迎使用智能計(jì)算器"IfCheck1.Value="0"ThenElseIfText1.Text=""OrText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="運(yùn)算數(shù)值不能為空"ElseIfText1.Text=""AndText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="運(yùn)算數(shù)值不能為空"ElseIfVal(Text2.Text)="0"ThenForm1.Caption="xataliqkuruldi"Text3.Text="分?jǐn)?shù)的分子不能為零"ElseDima,b,cAsDoublea=Val(Text1.Text)b=Val(Text2.Text)c=a/bText3.Text=cText1.Text=""Text2.Text=""EndIfIfCheck1.Value="1"ThenElseIfText1.Text=""OrText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="運(yùn)算數(shù)值不能為空"ElseIfText1.Text=""AndText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="運(yùn)算數(shù)值不能為空"ElseIfVal(Text2.Text)="0"ThenForm1.Caption="xataliqkuruldi"Text3.Text="分?jǐn)?shù)的分子不能為零"ElseDimd,e,fAsDoubled=Val(Text1.Text)e=Val(Text2.Text)f=d/eText3.Text=fEndIfEndSubPrivateSubCommand5_Click()Form1.Caption="歡迎使用智能計(jì)算器"Text1.Text=""Text2.Text=""Text3.Text=""EndSubPrivateSubCommand6_Click()Form1.Caption="歡迎使用智能計(jì)算器"Form1.HideForm3.ShowEndSubPrivateSubCommand7_Click()EndEndSubPrivateSubCommand8_Click()Form1.Caption="歡迎使用智能計(jì)算器"IfText3.Text<>""ThenText1.Text=Text3.TextText2.Text=""Text3.Text=""ElseForm1.Caption="xataliqkuruldi"Text3.Text="沒(méi)有結(jié)果無(wú)法繼續(xù)"EndIfEndSubPrivateSubText2_Change()EndSubPrivateSub乘_Click()Form1.Caption="歡迎使用智能計(jì)算器"IfCheck1.Value="1"ThenElseIfText1.Text=""OrText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="運(yùn)算數(shù)值不能為空"ElseIfText1.Text=""AndText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="運(yùn)算數(shù)值不能為空"ElseDimd,e,fAsDoubled=Val(Text1.Text)e=Val(Text2.Text)f=d*eText3.Text=fEndIfIfCheck1.Value="0"ThenElseIfText1.Text=""OrText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="運(yùn)算數(shù)值不能為空"ElseIfText1.Text=""AndText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="運(yùn)算數(shù)值不能為空"ElseDima,b,cAsDoublea=Val(Text1.Text)b=Val(Text2.Text)c=a*bText3.Text=cText1.Text=""Text2.Text=""EndIfEndSubPrivateSub除_Click()Form1.Caption="歡迎使用智能計(jì)算器"IfCheck1.Value="0"ThenElseIfText1.Text=""OrText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="運(yùn)算數(shù)值不能為空"ElseIfText1.Text=""AndText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="運(yùn)算數(shù)值不能為空"ElseIfVal(Text2.Text)="0"ThenForm1.Caption="xataliqkuruldi"Text3.Text="分?jǐn)?shù)的分子不能為零"ElseDima,b,cAsDoublea=Val(Text1.Text)b=Val(Text2.Text)c=a/bText3.Text=cText1.Text=""Text2.Text=""EndIfIfCheck1.Value="1"ThenElseIfText1.Text=""OrText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="運(yùn)算數(shù)值不能為空"ElseIfText1.Text=""AndText2.Text=""ThenForm1.Caption="錯(cuò)誤"Text3.Text="運(yùn)算數(shù)值不能為空"ElseIfVal(Text2.Text)="0"ThenForm1.Caption="錯(cuò)誤"Text3.Text="分?jǐn)?shù)的分子不能為零"ElseDimd,e,fAsDoubled=Val(Text1.Text)e=Val(Text2.Text)f=d/eText3.Text=fEndIfEndSubPrivateSubmunasiwetlik_Click()Form1.Caption="歡迎使用智能計(jì)算器"Form1.HideForm3.ShowEndSubPrivateSub繼續(xù)_Click()Form1.Caption="歡迎使用智能計(jì)算器"IfText3.Text<>""ThenText1.Text=Text3.TextText2.Text=""Text3.Text=""ElseForm1.Caption="xataliq"Text3.Text="沒(méi)有結(jié)果無(wú)法繼續(xù)"EndIfEndSubPrivateSub加_Click()Form1.Caption="歡迎使用智能計(jì)算器"IfCheck1.Value="0"ThenElseIfText1.Text=""OrText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="運(yùn)算數(shù)值不能為空"ElseIfText1.Text=""AndText2.Text=""ThenForm1.Caption="錯(cuò)誤"Text3.Text="運(yùn)算數(shù)值不能為空"ElseDima,b,cAsDoublea=Val(Text1.Text)b=Val(Text2.Text)c=a+bText3.Text=cText1.Text=""Text2.Text=""EndIfIfCheck1.Value="1"ThenElseIfText1.Text=""OrText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="運(yùn)算數(shù)值不能為空"ElseIfText1.Text=""AndText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="運(yùn)算數(shù)值不能為空"ElseDimd,e,fAsDoubled=Val(Text1.Text)e=Val(Text2.Text)f=d+eText3.Text=fEndIfEndSubPrivateSub減_Click()Form1.Caption="歡迎使用智能計(jì)算器"IfCheck1.Value="1"ThenElseIfText1.Text=""OrText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="運(yùn)算數(shù)值不能為