vb简单的计算机源代码

/vb简单的计算机源代码.txt如果青春的时光在闲散中度过，那么回忆岁月将是一场凄凉的悲剧。杂草多的地方庄稼少，空话多的地方智慧少。即使路上没有花朵，我仍可以欣赏荒芜。PrivateSubCommand1_Click()Form1.Caption="欢迎使用智能计算器"'载入默认正常显示IfCheck1.Value="0"Then'1类分歧ElseIfText1.Text=""OrText2.Text=""Then'2类分歧Form1.Caption="xataliqkuruldi"Text3.Text="运算数值不能为空"ElseIfText1.Text=""AndText2.Text=""Then'2类分歧Form1.Caption="xataliqkuruldi"Text3.Text="运算数值不能为空"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="运算数值不能为空"ElseIfText1.Text=""AndText2.Text=""Then'2类分歧Form1.Caption="xataliqkuruldi"Text3.Text="运算数值不能为空"Else'2类分歧Dimd,e,fAsDoubled=Val(Text1.Text)e=Val(Text2.Text)f=d+eText3.Text=fEndIfEndSubPrivateSubCommand2_Click()Form1.Caption="欢迎使用智能计算器"IfCheck1.Value="1"ThenElseIfText1.Text=""OrText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="运算数值不能为空"ElseIfText1.Text=""AndText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="运算数值不能为空"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="运算数值不能为空"ElseIfText1.Text=""AndText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="运算数值不能为空"ElseDima,b,cAsDoublea=Val(Text1.Text)b=Val(Text2.Text)c=a-bText3.Text=cText1.Text=""Text2.Text=""EndIfEndSubPrivateSubCommand3_Click()Form1.Caption="欢迎使用智能计算器"IfCheck1.Value="1"ThenElseIfText1.Text=""OrText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="运算数值不能为空"ElseIfText1.Text=""AndText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="运算数值不能为空"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="运算数值不能为空"ElseIfText1.Text=""AndText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="运算数值不能为空"ElseDima,b,cAsDoublea=Val(Text1.Text)b=Val(Text2.Text)c=a*bText3.Text=cText1.Text=""Text2.Text=""EndIfEndSubPrivateSubCommand4_Click()Form1.Caption="欢迎使用智能计算器"IfCheck1.Value="0"ThenElseIfText1.Text=""OrText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="运算数值不能为空"ElseIfText1.Text=""AndText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="运算数值不能为空"ElseIfVal(Text2.Text)="0"ThenForm1.Caption="xataliqkuruldi"Text3.Text="分数的分子不能为零"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="运算数值不能为空"ElseIfText1.Text=""AndText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="运算数值不能为空"ElseIfVal(Text2.Text)="0"ThenForm1.Caption="xataliqkuruldi"Text3.Text="分数的分子不能为零"ElseDimd,e,fAsDoubled=Val(Text1.Text)e=Val(Text2.Text)f=d/eText3.Text=fEndIfEndSubPrivateSubCommand5_Click()Form1.Caption="欢迎使用智能计算器"Text1.Text=""Text2.Text=""Text3.Text=""EndSubPrivateSubCommand6_Click()Form1.Caption="欢迎使用智能计算器"Form1.HideForm3.ShowEndSubPrivateSubCommand7_Click()EndEndSubPrivateSubCommand8_Click()Form1.Caption="欢迎使用智能计算器"IfText3.Text<>""ThenText1.Text=Text3.TextText2.Text=""Text3.Text=""ElseForm1.Caption="xataliqkuruldi"Text3.Text="没有结果无法继续"EndIfEndSubPrivateSubText2_Change()EndSubPrivateSub乘_Click()Form1.Caption="欢迎使用智能计算器"IfCheck1.Value="1"ThenElseIfText1.Text=""OrText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="运算数值不能为空"ElseIfText1.Text=""AndText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="运算数值不能为空"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="运算数值不能为空"ElseIfText1.Text=""AndText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="运算数值不能为空"ElseDima,b,cAsDoublea=Val(Text1.Text)b=Val(Text2.Text)c=a*bText3.Text=cText1.Text=""Text2.Text=""EndIfEndSubPrivateSub除_Click()Form1.Caption="欢迎使用智能计算器"IfCheck1.Value="0"ThenElseIfText1.Text=""OrText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="运算数值不能为空"ElseIfText1.Text=""AndText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="运算数值不能为空"ElseIfVal(Text2.Text)="0"ThenForm1.Caption="xataliqkuruldi"Text3.Text="分数的分子不能为零"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="运算数值不能为空"ElseIfText1.Text=""AndText2.Text=""ThenForm1.Caption="错误"Text3.Text="运算数值不能为空"ElseIfVal(Text2.Text)="0"ThenForm1.Caption="错误"Text3.Text="分数的分子不能为零"ElseDimd,e,fAsDoubled=Val(Text1.Text)e=Val(Text2.Text)f=d/eText3.Text=fEndIfEndSubPrivateSubmunasiwetlik_Click()Form1.Caption="欢迎使用智能计算器"Form1.HideForm3.ShowEndSubPrivateSub继续_Click()Form1.Caption="欢迎使用智能计算器"IfText3.Text<>""ThenText1.Text=Text3.TextText2.Text=""Text3.Text=""ElseForm1.Caption="xataliq"Text3.Text="没有结果无法继续"EndIfEndSubPrivateSub加_Click()Form1.Caption="欢迎使用智能计算器"IfCheck1.Value="0"ThenElseIfText1.Text=""OrText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="运算数值不能为空"ElseIfText1.Text=""AndText2.Text=""ThenForm1.Caption="错误"Text3.Text="运算数值不能为空"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="运算数值不能为空"ElseIfText1.Text=""AndText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="运算数值不能为空"ElseDimd,e,fAsDoubled=Val(Text1.Text)e=Val(Text2.Text)f=d+eText3.Text=fEndIfEndSubPrivateSub减_Click()Form1.Caption="欢迎使用智能计算器"IfCheck1.Value="1"ThenElseIfText1.Text=""OrText2.Text=""ThenForm1.Caption="xataliqkuruldi"Text3.Text="运算数值不能为