下载本文档
版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领
文档简介
1、vb简单的计算机源代码.txt如果青春的时光在闲散中度过，那么回忆岁月将是一场凄凉的悲剧。杂草多的地方庄稼少，空话多的地方智慧少。即使路上没有花朵，我仍可以欣赏荒芜。PrivateSubCommand1_Click()Form1.Caption=欢迎使用智能计算器载入默认正常显示IfCheck1.Value=0Then1类分歧ElseIfText1.Text=OrText2.Text=Then2类分歧Form1.Caption=xataliqkuruldiText3.Text=运算数值/、能为空”ElseIfText1.Text=AndText2.Text=Then2类分歧Form1.Capt
2、ion=xataliqkuruldiText3.Text=运算数值/、能为空”Else2类分歧Dima,b,cAsDoublea=Val(Text1.Text)b=Val(Text2.Text)c=a+bText3.Text=cText1.Text=Text2.Text=EndIfIfCheck1.Value=1Then1类分歧ElseIfText1.Text=OrText2.Text=Then2类分歧Form1.Caption=xataliqkuruldiText3.Text=运算数值/、能为空”ElseIfText1.Text=AndText2.Text=Then2类分歧Form1.Cap
3、tion=xataliqkuruldiText3.Text=运算数值/、能为空”Else2类分歧Dimd,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=xataliqkuruldiText3.Text=运算数值不能为空ElseIfText1.Text=AndText
4、2.Text=ThenForml.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=AndText2.Text=ThenForm1.Caption=xataliqkuruldiTe
5、xt3.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=xataliqkuruldiText3.Text=运算数值不能为空ElseIfText1.Text=AndText2.Tex
6、t=ThenForm1.Caption=xataliqkuruldiText3.Text=运算数值不能为空ElseDimd,e,fAsDoubled=Val(Text1.Text)e=Val(Text2.Text)f=d*eText3.Text=fEndIfIfCheckl.Value=0ThenElselfTextl.Text=OrText2.Text=ThenForml.Caption=xataliqkuruldiText3.Text=运算数值不能为空ElseIfText1.Text=AndText2.Text=ThenForm1.Caption=xataliqkuruldiText3.T
7、ext=运算数值不能为空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.Text=运算数值不能为空ElseIfText1.Text=AndText2.Text=The
8、nForm1.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.Text=OrText2.Text=ThenForm1.Caption=xataliqkuru
9、ldiElselfTextl.Text=AndText2.Text=ThenForml.Caption=xataliqkuruldiText3.Text=运算数值不能为空ElseIfVal(Text2.Text)=0ThenForm1.Caption=xataliqkuruldiText3.Text=分数的分子不能为零ElseDimd,e,fAsDoubled=Val(Text1.Text)e=Val(Text2.Text)f=d/eText3.Text=fEndIfEndSubPrivateSubCommand5_Click()Form1.Caption=欢迎使用智能计算器Text1.Tex
10、t=Text2.Text=Text3.Text=EndSubPrivateSubCommand6_Click()Form1.Caption=欢迎使用智能计算器Form1.HideForm3.ShowEndSubPrivateSubCommand7_Click()EndEndSubPrivateSubCommand8_Click()Form1.Caption=欢迎使用智能计算器IfText3.TextThenText1.Text=Text3.TextText2.Text=Text3.Text=ElseForm1.Caption=xataliqkuruldiText3.Text=没有结果无法继续E
11、ndIfEndSubPrivateSubText2_Change()EndSubPrivateSub乘_Click()Form1.Caption=欢迎使用智能计算器IfCheck1.Value=1ThenElseIfText1.Text=OrText2.Text=ThenForm1.Caption=xataliqkuruldiText3.Text=运算数值不能为空ElseIfText1.Text=AndText2.Text=ThenForm1.Caption=xataliqkuruldiText3.Text=运算数值不能为空ElseDimd,e,fAsDoubled=Val(Text1.Tex
12、t)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,cAsDoublea=Val(Text1.Text)b=Val(Text2.Text)c=a*bText3.Text=cText1
13、.Text=Text2.Text=EndIfEndSubPrivateSub除_Click()Form1.Caption=欢迎使用智能计算器IfCheckl.Value=0ThenElselfTextl.Text=OrText2.Text=ThenForml.Caption=xataliqkuruldiText3.Text=运算数值不能为空ElseIfText1.Text=AndText2.Text=ThenForm1.Caption=xataliqkuruldiText3.Text=运算数值不能为空ElseIfVal(Text2.Text)=0ThenForm1.Caption=xatali
14、qkuruldiText3.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=错误Text3.Text=运算数值不能为空Els
15、eIfVal(Text2.Text)=0ThenForm1.Caption=错误Text3.Text=分数的分子不能为零ElseDimd,e,fAsDoubled=Val(Text1.Text)e=Val(Text2.Text)f=d/eText3.Text=fEndIfEndSubPrivateSubmunasiwetlik_Click()Form1.Caption=欢迎使用智能计算器Form1.HideForm3.ShowEndSubPrivateSub继续_Click()Forml.Caption=欢迎使用智能计算器IfText3.TextThenText1.Text=Text3.Tex
16、tText2.Text=Text3.Text=ElseForm1.Caption=xataliqText3.Text=没有结果无法继续EndIfEndSubPrivateSub加_Click()Form1.Caption=欢迎使用智能计算器IfCheck1.Value=0ThenElseIfText1.Text=OrText2.Text=ThenForm1.Caption=xataliqkuruldiText3.Text=运算数值不能为空ElseIfText1.Text=AndText2.Text=ThenForm1.Caption=错误Text3.Text=运算数值不能为空ElseDima,
17、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=xataliqkuruldiText3.Text=运算数值不能为空ElseDimd,e,fAsDoubled=Val(Te
18、xt1.Text)e=Val(Text2.Text)f=d+eText3.Text=fEndIfEndSubPrivateSub减_Click()Forml.Caption=欢迎使用智能计算器IfCheck1.Value=1ThenElseIfText1.Text=OrText2.Text=ThenForm1.Caption=xataliqkuruldiText3.Text=运算数值不能为空ElseIfText1.Text=AndText2.Text=ThenForm1.Caption=错误Text3.Text=运算数值不能为空ElseDimd,e,fAsDoubled=Val(Text1.Text)e=Val(Text2.Text)f=d-eText3.Text=fEndIfIfCheck1.Value=0ThenElseIfText1.Text=OrText2.Text=ThenForm1.Caption=错误Text3.Text=运算数值不能为空ElseIfText1.Text=AndText2.Text=ThenForm1.Caption=错误Text3.Text=运算数值不能为空El
温馨提示
- 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2025年度创意园区场地租赁合同
- 2025年度新能源储能技术股权合作开发合同
- 2025年度教育机构图书资料采购合同
- 2025年度教育贷款担保借贷合同书范本
- 2025年度体育赛事组织挂靠运营管理协议
- 2025年幕墙项目可行性研究报告
- 2025年度广告宣传效果评估与反馈协议
- 2025年UV激光切割机项目风险可行性方案
- 2025年度个性化简易离婚协议书模板开发合同
- 2025年度光伏电站建设与管理合同范本
- 张五常子女和婚姻合约中的产权执行问题
- 2024年广东深圳高三二模英语读后续写试题讲评课件
- 校园安全派出所
- 餐厅值班管理培训
- （正式版）JBT 11517-2024 刮板取料机
- XXXX无线维护岗位认证教材故障处理思路及案例分析
- 2024年浙江省自然资源集团有限公司招聘笔试参考题库附带答案详解
- 酒店春节营销方案
- 营销管理方案中的定价策略与盈利模式
- 2024年西宁城市职业技术学院高职单招（英语／数学／语文）笔试历年参考题库含答案解析
- 2024年临沂市高三一模（学业水平等级考试模拟试题）物理试卷
评论
0/150
提交评论