vb简单的计算机源代码.doc
《vb简单的计算机源代码.doc》由会员分享，可在线阅读，更多相关《vb简单的计算机源代码.doc（9页珍藏版）》请在冰点文库上搜索。
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,cAsDouble
a=Val（Text1.Text）
b=Val（Text2.Text）
c=a+b
Text3.Text=c
Text1.Text=""
Text2.Text=""
EndIf
IfCheck1.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,fAsDouble
d=Val（Text1.Text）
e=Val（Text2.Text）
f=d+e
Text3.Text=f
EndIf
EndSub
PrivateSubCommand2_Click（）
Form1.Caption="欢迎使用智能计算器"
IfCheck1.Value="1"Then
ElseIfText1.Text=""OrText2.Text=""Then
Form1.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
ElseIfText1.Text=""AndText2.Text=""Then
Form1.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
Else
Dimd,e,fAsDouble
d=Val（Text1.Text）
e=Val（Text2.Text）
f=d-e
Text3.Text=f
EndIf
IfCheck1.Value="0"Then
ElseIfText1.Text=""OrText2.Text=""Then
Form1.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
ElseIfText1.Text=""AndText2.Text=""Then
Form1.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
Else
Dima,b,cAsDouble
a=Val（Text1.Text）
b=Val（Text2.Text）
c=a-b
Text3.Text=c
Text1.Text=""
Text2.Text=""
EndIf
EndSub
PrivateSubCommand3_Click（）
Form1.Caption="欢迎使用智能计算器"
IfCheck1.Value="1"Then
ElseIfText1.Text=""OrText2.Text=""Then
Form1.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
ElseIfText1.Text=""AndText2.Text=""Then
Form1.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
Else
Dimd,e,fAsDouble
d=Val（Text1.Text）
e=Val（Text2.Text）
f=d*e
Text3.Text=f
EndIf
IfCheck1.Value="0"Then
ElseIfText1.Text=""OrText2.Text=""Then
Form1.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
ElseIfText1.Text=""AndText2.Text=""Then
Form1.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
Else
Dima,b,cAsDouble
a=Val（Text1.Text）
b=Val（Text2.Text）
c=a*b
Text3.Text=c
Text1.Text=""
Text2.Text=""
EndIf
EndSub
PrivateSubCommand4_Click（）
Form1.Caption="欢迎使用智能计算器"
IfCheck1.Value="0"Then
ElseIfText1.Text=""OrText2.Text=""Then
Form1.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
ElseIfText1.Text=""AndText2.Text=""Then
Form1.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
ElseIfVal（Text2.Text）="0"Then
Form1.Caption="xataliqkuruldi"
Text3.Text="分数的分子不能为零"
Else
Dima,b,cAsDouble
a=Val（Text1.Text）
b=Val（Text2.Text）
c=a/b
Text3.Text=c
Text1.Text=""
Text2.Text=""
EndIf
IfCheck1.Value="1"Then
ElseIfText1.Text=""OrText2.Text=""Then
Form1.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
ElseIfText1.Text=""AndText2.Text=""Then
Form1.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
ElseIfVal（Text2.Text）="0"Then
Form1.Caption="xataliqkuruldi"
Text3.Text="分数的分子不能为零"
Else
Dimd,e,fAsDouble
d=Val（Text1.Text）
e=Val（Text2.Text）
f=d/e
Text3.Text=f
EndIf
EndSub
PrivateSubCommand5_Click（）
Form1.Caption="欢迎使用智能计算器"
Text1.Text=""
Text2.Text=""
Text3.Text=""
EndSub
PrivateSubCommand6_Click（）
Form1.Caption="欢迎使用智能计算器"
Form1.Hide
Form3.Show
EndSub
PrivateSubCommand7_Click（）
End
EndSub
PrivateSubCommand8_Click（）
Form1.Caption="欢迎使用智能计算器"
IfText3.Text<>""Then
Text1.Text=Text3.Text
Text2.Text=""
Text3.Text=""
Else
Form1.Caption="xataliqkuruldi"
Text3.Text="没有结果无法继续"
EndIf
EndSub
PrivateSubText2_Change（）
EndSub
PrivateSub乘_Click（）
Form1.Caption="欢迎使用智能计算器"
IfCheck1.Value="1"Then
ElseIfText1.Text=""OrText2.Text=""Then
Form1.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
ElseIfText1.Text=""AndText2.Text=""Then
Form1.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
Else
Dimd,e,fAsDouble
d=Val（Text1.Text）
e=Val（Text2.Text）
f=d*e
Text3.Text=f
EndIf
IfCheck1.Value="0"Then
ElseIfText1.Text=""OrText2.Text=""Then
Form1.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
ElseIfText1.Text=""AndText2.Text=""Then
Form1.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
Else
Dima,b,cAsDouble
a=Val（Text1.Text）
b=Val（Text2.Text）
c=a*b
Text3.Text=c
Text1.Text=""
Text2.Text=""
EndIf
EndSub
PrivateSub除_Click（）
Form1.Caption="欢迎使用智能计算器"
IfCheck1.Value="0"Then
ElseIfText1.Text=""OrText2.Text=""Then
Form1.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
ElseIfText1.Text=""AndText2.Text=""Then
Form1.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
ElseIfVal（Text2.Text）="0"Then
Form1.Caption="xataliqkuruldi"
Text3.Text="分数的分子不能为零"
Else
Dima,b,cAsDouble
a=Val（Text1.Text）
b=Val（Text2.Text）
c=a/b
Text3.Text=c
Text1.Text=""
Text2.Text=""
EndIf
IfCheck1.Value="1"Then
ElseIfText1.Text=""OrText2.Text=""Then
Form1.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
ElseIfText1.Text=""AndText2.Text=""Then
Form1.Caption="错误"
Text3.Text="运算数值不能为空"
ElseIfVal（Text2.Text）="0"Then
Form1.Caption="错误"
Text3.Text="分数的分子不能为零"
Else
Dimd,e,fAsDouble
d=Val（Text1.Text）
e=Val（Text2.Text）
f=d/e
Text3.Text=f
EndIf
EndSub
PrivateSubmunasiwetlik_Click（）
Form1.Caption="欢迎使用智能计算器"
Form1.Hide
Form3.Show
EndSub
PrivateSub继续_Click（）
Form1.Caption="欢迎使用智能计算器"
IfText3.Text<>""Then
Text1.Text=Text3.Text
Text2.Text=""
Text3.Text=""
Else
Form1.Caption="xataliq"
Text3.Text="没有结果无法继续"
EndIf
EndSub
PrivateSub加_Click（）
Form1.Caption="欢迎使用智能计算器"
IfCheck1.Value="0"Then
ElseIfText1.Text=""OrText2.Text=""Then
Form1.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
ElseIfText1.Text=""AndText2.Text=""Then
Form1.Caption="错误"
Text3.Text="运算数值不能为空"
Else
Dima,b,cAsDouble
a=Val（Text1.Text）
b=Val（Text2.Text）
c=a+b
Text3.Text=c
Text1.Text=""
Text2.Text=""
EndIf
IfCheck1.Value="1"Then
ElseIfText1.Text=""OrText2.Text=""Then
Form1.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
ElseIfText1.Text=""AndText2.Text=""Then
Form1.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
Else
Dimd,e,fAsDouble
d=Val（Text1.Text）
e=Val（Text2.Text）
f=d+e
Text3.Text=f
EndIf
EndSub
PrivateSub减_Click（）
Form1.Caption="欢迎使用智能计算器"
IfCheck1.Value="1"Then
ElseIfText1.Text=""OrText2.Text=""Then
Form1.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
ElseIfText1.Text=""AndText2.Text=""Then
Form1.Caption="错误"
Text3.Text="运算数值不能为空"
Else
Dimd,e,fAsDouble
d=Val（Text1.Text）
e=Val（Text2.Text）
f=d-e
Text3.Text=f
EndIf
IfCheck1.Value="0"Then
ElseIfText1.Text=""OrText2.Text=""Then
Form1.Caption="错误"
Text3.Text="运算数值不能为空"
ElseIfText1.Text=""AndText2.Text=""Then
Form1.Caption="错误"
Text3.Text="运算数值不能为空"
Else
Dima,b,cAsDouble
a=Val（Text1.Text）
b=Val（Text2.Text）
c=a-b
Text3.Text=c
Text1.Text=""
Text2.Text=""
EndIf
EndSub
PrivateSub清空_Click（）
Form1.Caption="欢迎使用智能计算器"
Text1.Text=""
Text2.Text=""
Text3.Text=""
EndSub
----------------------------------------------
form2?
?
?
?
?
?
?
?
?
?
?
?
PrivateSubCommand1_Click（）
Form3.Hide
Form1.Show
Form1.Text3.Text=""
EndSub
PrivateSubCommand2_Click（）
End
EndSub
升级会员 