版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领
文档简介
Vb简单的计算机源代码.txt如果青春的时光在闲散中度过，那么回忆岁月将是一场凄凉的悲
剧。杂草多的地方庄稼少，空话多的地方智慧少。即使路上没有花朵，我仍可以欣赏荒芜。
PrivateSubCommandl_Click()
Forml.Caption="欢迎使用智能计算器”'载入默认正常显示
IfCheckl.Value="0"Then'1类分歧
ElselfTextl.Text=OrFext2.Text=""Then'2类分歧
Forml.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
ElselfTextl.Text=AndText2.Text=Then'2类分歧
Forml.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
Else'2类分岐
Dima,b,cAsDouble
a=Vai(Textl.Text)
b=Val(Text2.Text)
c=a+b
Text3.Text=c
Textl.Text=""
Text2.Text=""
EndIf
IfCheckl.Value="1"Then'1类分歧
ElselfTextl.Text=OrText2.Text=*"Then'2类分歧
Forml.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
ElselfTextl.Text=""AndText2.Text=""Then'2类分岐
Forml.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
Else'2类分歧
Dimcl,e,fAsDouble
d=Vai(Textl.Text)
e=Vai(Text2.Text)
f=d+e
Text3.Text=f
EndIf
EndSub
PrivateSubCommand2_Click()
Forml.Caption="欢迎使用智能计算器"
IfCheckl.Value="1"Then
ElselfTextl.Text=""OrText2.Text=""Then
Forml.Caption="xalaliqkuruldi"
Text3.Text="运算数值不能为空"
ElselfTextl.Text=AndText2.Text=""Then
Forml.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
Else
Dimd,e,fAsDoub1e
d=Vai(Textl.Text)
e=Vai(Text2.Text)
f=d-e
Text3.Text=f
EndIf
IfCheck!.Value="0"Then
ElselfTextl.Text=""OrPext2.Text=""Then
Forml.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
ElselfTextl.Text=""AndText2.Text=""Then
Forml.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
Else
Dima,b.cAsDouble
a=Vai(Textl.Text)
b=Vai(Tcxt2.Text)
c=a-b
Text3.Text=c
Textl.Text=*'
Text2.Text=""
EndIf
EndSub
PrivateSubCommand3_Click()
Forml.Caption="欢迎使用智能计算器”
IfCheckl.Value="1"Then
ElselfTextl.Text=""OrText2.Text=""Then
Forml.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
ElselfTextl.Text=""AndText2.Text=""Then
Forml.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
Else
Dimd.e.fAsDouble
d=Vai(Textl.Text)
e=Vai(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=Vai(Textl.Text)
b=Vai(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="运算数值不能为空"
ElselfVai(Text2.Text)="0"Then
Forml.Caption="xataliqkuruldi"
Text3.Text="分数的分子不能为零"
Else
Dima,b,cAsDouble
a=Vai(Textl.Text)
b=Vai(Text2.Text)
c=a/b
Text3.Text=c
Textl.Text=""
Text2.Text=
EndIf
IfCheckl.Value="1"Then
ElselfTextl.Text=""OrTex12.Text=""Then
Forml.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
ElselfTextl.Text=AndText2.Text=""Then
Forml.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
ElselfVai(Text2.Text)="0"Then
Forml.Caption="xataliqkuruldi"
Text3,Text="分数的分子不能为零"
Else
Dimd,e,fAsDouble
d=Vai(Textl.Text)
e=Vai(Text2.Text)
f=d/e
Text3.Text=f
EndIf
EndSub
PrivateSubCommand5_Click()
Forml.Caption="欢迎使用智能计算器"
Textl.Text:
Text2.Text=""
Tcxt3.Text=""
EndSub
PrivateSubCommand6_Click()
Forml.Caption="欢迎使用智能计算器"
Forml.Hide
Form3.Show
EndSub
PrivateSubCommand7_Click()
End
EndSub
PrivateSubConunand8_Click()
Forml.Caption="欢迎使用智能计算器"
IfText3.Text<>""Then
Textl.Text=Tcxt3.Text
Text2.Text=*'
Text3.Text=""
Else
Forml.Caption="xataliqkuruldi"
Text3.Text="没有结果无法继续"
EndIf
EndSub
PrivateSubText2_Change()
EndSub
PrivateSub乘_Click()
Forml.Caption="欢迎使用智能计算器"
IfCheck!.Value="1"Then
ElselfTextl.Text=""OrText2.Text=""Then
Forml.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
ElselfTextl.Text=""AndText2.Text=""Then
Forml.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
Else
Dimd,c,fAsDouble
d=Vai(Textl.Text)
e=Vai(Text2.Text)
f=d*e
Text3.Text=f
EndIf
IfCheckl.Value="0"Then
ElselfTextl.Text=OrText2.Text=""Then
Forml.Caption="xataliqkuruldi"
Tcxt3.Text="运算数值不能为空"
ElselfTextl.Text=AndText2.Text=Then
Forml.Caption="xataliqkuruldi"
Tcxt3.Text="运算数值不能为空"
Else
Dima,b,cAsDouble
a=Vai(Textl.Text)
b=Vai(Text2.Text)
c=a*b
Text3.Text=c
Textl.Text=
Text2.Text=""
EndIf
EndSub
PrivateSub除_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="运算数值不能为空"
ElselfVai(Text2.Text)="0"Then
Forml.Caption="xataliqkuruldi"
Text3.Text="分数的分子不能为零"
Else
Dima,b,cAsDouble
a=Vai(Textl.Text)
b=Vai(Text2.Text)
c=a/b
Text3.Text=c
Textl.Text=**
Tcxt2.Text=*'
EndIf
IfCheckl.Value="1"Then
ElselfTextl.Text=""Orrcxt2.Text=""Then
Forml.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
ElselfTextl.Text=""AndText2.Text=""Then
Forml.Caption="错误"
Text3.Text="运算数值不能为空"
ElselfVai(Text2.Text)="O'Then
Forml.Caption="错误"
Text3.Text="分数的分子不能为零"
Else
Dimd,e,fAsDouble
d=Vai(Textl.Text)
c=Vai(Text2.Text)
f=d/e
Text3.Text=f
EndIf
EndSub
PrivateSubmunasiwet1ik_Click()
F?orml.Caption="欢迎使用智能计算器"
Forml.Hide
Form3.Show
EndSub
PrivateSub继续_Click()
Forml.Caption="欢迎使用智能计算器"
IfText3.Text<>""Then
Textl.Text=Text3.Text
Text2.Text=""
Text3.Text=
Else
Forml.Caption="xataliq"
Text3.Text="没有结果无法继续"
EndIf
EndSub
PrivateSub加_Click()
Forml.Caption="欢迎使用智能计算器"
IfCheck!.Value="0"Then
ElselfTextl.Text=""OrText2.Text=""Then
Forml.Caption="xataliqkuruldi*'
Text3.Text="运算数值不能为空"
ElselfTextl.Text=""AndText2.Text=""Then
Forml.Caption="错误"
Text3.Text="运算数值不能为空"
Else
Dima,b,cAsDouble
a=Vai(Textl.Text)
b=Vai(Text2.Text)
c=a+b
Text3.Text=c
Textl.Text=""
Tcxt2.Text=
EndIf
IfCheck!.Value="1"Then
ElselfTextl.Text=""Orrcxt2.Text=""Then
Forml.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
ElselfTextl.Text=AndText2.Text=""Then
Forml.Caption="xataliqkuruldi"
Text3.Text="运算数值不能为空"
Else
Dimd,e,fAsDouble
d=Vai(Text).Text)
e=Vai(Text2.Text)
f=d+e
Text3.Text=f
EndIf
EndSub
PrivateSub减_Click()
Form1.Caption="欢迎使用智能计算器"
IfCheck1.Value="1"Then
ElselfTextl.Text=""OrText2.Text=""Then
Forml.Caption="xataliqkuruldi"
Text3,Text="运算数值不能为空"
ElselfTextl.Text=
温馨提示
- 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 河北保定竞秀区重点达标名校2026届初三下学期第十四次周考英语试题（A）试卷含解析
- 内蒙古巴彦淖尔市杭锦后旗2026届初三1月月考（期末）英语试题含解析
- 湖北武汉市武昌区十四中学市级名校2025-2026学年初三下学期“扬帆起航”语文试题含解析
- （正式版）DB37∕T 1598.2-2010 《家政培训服务规范 第2部分：母婴生活护理》
- 偷盗劳动合同
- 卵巢癌护理中的科研与教育
- 2026年价值共生生态共赢-平台型企业发展报告
- 2026年企业文化节组织与实施方案
- 妇产科子宫肌瘤保守治疗措施
- 快速阅读训练方法
- SH/T 0358-199510号航空液压油
- HG-T 2521-2022 工业硅溶胶介绍
- 高三高效课堂与尖子生培养课件
- 中药清热药医学课件
- 2023静脉治疗护理技术操作标准解读
- DK小庭院：家居小空间园艺设计方案
- 2023年南通市初中地理生物学业水平测试试题及答案
- 中医治疗“乳癖”医案41例
- 阵列信号处理基础教程
- Unit+5+Writing+Workshop+A+Picture+Description+课件【高效备课精研+知识精讲提升】 高中英语北师大版（2019）选择性必修第二册
- GB/T 29287-2012纸浆实验室打浆PFI磨法
评论
0/150
提交评论