《vb简单的计算机源代码》由会员分享，可在线阅读，更多相关《vb简单的计算机源代码（9页珍藏版）》请在金锄头文库上搜索。
1、vb简单的计算机源代码.txt如果青春的时光在闲散中度过，那么回忆岁月将是一场凄凉的悲剧。杂草多的地方庄稼少，空话多的地方智慧少。即使路上没有花朵，我仍可以欣赏荒芜。Private Sub Command1_Click()Form1.Caption = 欢迎使用智能计算器If Check1.Value = 0 Then1ElseIf Text1.Text = Or Text2.Text = Then 2Form1.Caption = xataliq kuruldiText3.Text = 运算数值不能为空ElseIf Text1.Text = And Text2.Text = Then 2Fo
2、rm1.Caption = xataliq kuruldiText3.Text = 运算数值不能为空Else2Dim a, b, c As Doublea = Val(Text1.Text)b = Val(Text2.Text) c = a + bText3.Text = cText1.Text = Text2.Text = End If载入默认正常显示类分歧类分歧类分歧类分歧类分歧 类分歧类分歧类分歧IfCheck1.Value=1Then1ElseIfText1.Text=OrText2.Text=Then2Form1.Caption=xataliqkuruldiText3.Text=运算
3、数值不能为空ElseIfText1.Text=AndText2.Text=Then2Form1.Caption=xataliqkuruldiText3.Text=运算数值不能为空Else2Dimd,e,fAsDoubled=Val(Text1.Text)e=Val(Text2.Text)f=d+eText3.Text=fEndIfEndSubPrivateSubCommand2_Click()Form1.Caption=欢迎使用智能计算器IfCheck1.Value=1ThenElseIfText1.Text=OrText2.Text=ThenForm1.Caption=xataliqkuru
4、ldiText3.Text=运算数值不能为空ElseIfText1.Text=AndText2.Text=ThenForm1.Caption=xataliqkuruldiText3.Text=运算数值不能为空ElseDimd,e,fAsDoubled=Val(Text1.Text)e=Val(Text2.Text)f=d-eText3.Text=fEndIfIfCheck1.Value=0ThenElseIfText1.Text=OrText2.Text=ThenForm1.Caption=xataliqkuruldiText3.Text=运算数值不能为空ElseIfText1.Text=An
5、dText2.Text=ThenForm1.Caption=xataliqkuruldiText3.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=1ThenElseIfText1.Text=OrText2.Text=ThenForm1.Caption=xataliqkuruldiTe
6、xt3.Text=运算数值不能为空ElseIfText1.Text=AndText2.Text=ThenForm1.Caption=xataliqkuruldiText3.Text=运算数值不能为空ElseDimd,e,fAsDoubled=Val(Text1.Text)e=Val(Text2.Text)f=d*eText3.Text=fEndIfIfCheck1.Value=0ThenElseIfText1.Text=OrText2.Text=ThenForm1.Caption=xataliqkuruldiText3.Text=运算数值不能为空ElseIfText1.Text=AndText
7、2.Text=ThenForm1.Caption=xataliqkuruldiText3.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=0ThenElseIfText1.Text=OrText2.Text=ThenForm1.Caption=xataliqkuruldiText3.T
8、ext=运算数值不能为空ElseIfText1.Text=AndText2.Text=ThenForm1.Caption=xataliqkuruldiText3.Text=运算数值不能为空ElseIfVal(Text2.Text)=0ThenForm1.Caption=xataliqkuruldiText3.Text=分数的分子不能为零ElseDima,b,cAsDoublea=Val(Text1.Text)b=Val(Text2.Text)c=a/bText3.Text=cText1.Text=Text2.Text=EndIfIfCheck1.Value=1ThenElseIfText1.T
9、ext=OrText2.Text=ThenForm1.Caption=xataliqkuruldiText3.Text=运算数值不能为空ElseIfText1.Text=AndText2.Text=ThenForm1.Caption=xataliqkuruldiText3.Text=运算数值不能为空ElseIfVal(Text2.Text)=0ThenForm1.Caption=xataliqkuruldiText3.Text=分数的分子不能为零ElseDimd,e,fAsDoubled=Val(Text1.Text)e=Val(Text2.Text)f=d/eText3.Text=fEndI
10、fEndSubPrivateSubCommand5_Click()Form1.Caption=欢迎使用智能计算器Text1.Text=Text2.Text=Text3.Text=EndSubPrivateSubCommand6_Click()Form1.Caption=欢迎使用智能计算器Form1.HideForm3.ShowEndSubPrivateSubCommand7_Click()EndEndSubPrivateSubCommand8_Click()Form1.Caption=欢迎使用智能计算器IfText3.TextThenText1.Text=Text3.TextText2.Tex
11、t=Text3.Text=ElseForm1.Caption=xataliqkuruldiText3.Text=没有结果无法继续EndIfEndSubPrivateSubText2_Change()EndSubPrivateSub乘_Click()Form1.Caption=欢迎使用智能计算器IfCheck1.Value=1ThenElseIfText1.Text=OrText2.Text=ThenForm1.Caption=xataliqkuruldiText3.Text=运算数值不能为空ElseIfText1.Text=AndText2.Text=ThenForm1.Caption=xat
12、aliqkuruldiText3.Text=运算数值不能为空ElseDimd,e,fAsDoubled=Val(Text1.Text)e=Val(Text2.Text)f=d*eText3.Text=fEndIfIfCheck1.Value=0ThenElseIfText1.Text=OrText2.Text=ThenForm1.Caption=xataliqkuruldiText3.Text=运算数值不能为空ElseIfText1.Text=AndText2.Text=ThenForm1.Caption=xataliqkuruldiText3.Text=运算数值不能为空ElseDima,b,
13、cAsDoublea=Val(Text1.Text)b=Val(Text2.Text)c=a*bText3.Text=cText1.Text=Text2.Text=EndIfEndSubPrivateSub除_Click()Form1.Caption=欢迎使用智能计算器IfCheck1.Value=0ThenElseIfText1.Text=OrText2.Text=ThenForm1.Caption=xataliqkuruldiText3.Text=运算数值不能为空ElseIfText1.Text=AndText2.Text=ThenForm1.Caption=xataliqkuruldiT
14、ext3.Text=运算数值不能为空ElseIfVal(Text2.Text)=0ThenForm1.Caption=xataliqkuruldiText3.Text=分数的分子不能为零ElseDima,b,cAsDoublea=Val(Text1.Text)b=Val(Text2.Text)c=a/bText3.Text=cText1.Text=Text2.Text=EndIfIfCheck1.Value=1ThenElseIfText1.Text=OrText2.Text=ThenForm1.Caption=xataliqkuruldiText3.Text=运算数值不能为空ElseIfText1.Text=AndText2.Text=ThenForm1.Caption=错误
