vb简单的计算机源代码.docx
《vb简单的计算机源代码.docx》由会员分享,可在线阅读,更多相关《vb简单的计算机源代码.docx(14页珍藏版)》请在冰豆网上搜索。
vb简单的计算机源代码
vb简单的计算机源代码.txt如果XX的时光在闲散中度过,那么回忆岁月将是一场凄凉的悲剧。
杂草多的地方庄稼少,空话多的地方XX少。
即使路上没有花朵,我仍可以欣赏荒芜。
PrivateSubCommand1_Click()
Forml.Caption='欢迎使用智能计算器"'载入默认正常显示
IfCheck1.Value="0"Then'1类分歧
ElselfText1.Text=""OrText2.Text=""Then'契分歧
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类分歧
ElselfTextl.Text=""OrText2.Text=""Then'契分歧
Forml.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
Forml.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
Textl.Text=""
Text2.Text=""
EndIf
EndSub
PrivateSubCommand3_Click()
Forml.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
IfCheckl.Value="0"Then
ElselfTextl.Text=""OrText2.Text=""Then
Forml.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
Textl.Text=""
Text2.Text=""
EndIf
EndSub
PrivateSubCommand4_Click()
Forml.Caption='欢迎使用智能计算器”
IfCheckl.Value="0"Then
ElselfTextl.Text=""OrText2.Text=""Then
Forml.Caption二"xataliqkuruldi"
Text3.Text='运算数值不能为空"
ElselfTextl.Text=""AndText2.Text=""Then
Forml.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='运算数值不能为空"
ElselfTextl.Text=""AndText2.Text=""Then
Forml.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()
Forml.Caption='欢迎使用智能计算器
Forml.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()
Forml.Caption='欢迎使用智能计算器”
IfCheckl.Value="1"Then
ElselfTextl.Text=""OrText2.Text=""Then
Forml.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
IfCheckl.Value="0"Then
ElselfTextl.Text=""OrText2.Text=""Then
Forml.Caption二"xataliqkuruldi"
Text3.Text='运算数值不能为空"
ElselfTextl.Text=""AndText2.Text=""Then
Forml.Caption二"xataliqkuruldi"
Text3.Text='运算数值不能为空"
Else
Dima,b,cAsDouble
a=Val(Textl.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
Forml.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(Textl.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()
Forml.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
IfCheckl.Value="1"Then
ElselfTextl.Text=""OrText2.Text=""Then
Forml.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='运算数值不能为空"
ElselfTextl.Text=""AndText2.Text=""Then
Forml.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
Textl.Text=""
Text2.Text=""
EndIf
EndSub
PrivateSub清空_Click()
Forml.Caption='欢迎使用智能计算器
Text1.Text=""
Text2.Text=""
Text3.Text=""
EndSub
form2
PrivateSubCommand1_Click()
Form3.Hide
Form1.Show
Form1.Text3.Text=""
EndSub
PrivateSubCommand2_Click()
End
EndSub