vb简单的计算机源代码.doc
《vb简单的计算机源代码.doc》由会员分享,可在线阅读,更多相关《vb简单的计算机源代码.doc(9页珍藏版)》请在冰豆网上搜索。
![vb简单的计算机源代码.doc](https://file1.bdocx.com/fileroot1/2022-10/7/69bb336d-dfb2-4dbd-87a8-f9b6a7a95322/69bb336d-dfb2-4dbd-87a8-f9b6a7a953221.gif)
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="运算数值不能为空"