vb简单的计算机源代码.pdf

《vb简单的计算机源代码.pdf》由会员分享，可在线阅读，更多相关《vb简单的计算机源代码.pdf（9页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、 vb 简单的计算机源代码.txt 如果青春的时光在闲散中度过，那么回忆岁月将是一场凄凉的悲剧。杂草多的地方庄稼少，空话多的地方智慧少。即使路上没有花朵，我仍可以欣赏荒芜。Private Sub Command1_Click()Form1.Caption=欢迎使用智能计算器 载入默认正常显示 If Check1.Value=0 Then 1 类分歧 ElseIf Text1.Text=Or Text2.Text=Then 2 类分歧 Form1.Caption=xataliq kuruldi Text3.Text=运算数值不能为空 ElseIf Text1.Text=And Text2.Tex

2、t=Then 2 类分歧 Form1.Caption=xataliq kuruldi Text3.Text=运算数值不能为空 Else 2 类分歧 Dim a,b,c As Double a=Val(Text1.Text)b=Val(Text2.Text)c=a+b Text3.Text=c Text1.Text=Text2.Text=End If If Check1.Value=1 Then 1 类分歧 ElseIf Text1.Text=Or Text2.Text=Then 2 类分歧 Form1.Caption=xataliq kuruldi Text3.Text=运算数值不能为空 El

3、seIf Text1.Text=And Text2.Text=Then 2 类分歧 Form1.Caption=xataliq kuruldi Text3.Text=运算数值不能为空 Else 2 类分歧 Dim d,e,f As Double d=Val(Text1.Text)e=Val(Text2.Text)f=d+e Text3.Text=f End If End Sub Private Sub Command2_Click()Form1.Caption=欢迎使用智能计算器 If Check1.Value=1 Then ElseIf Text1.Text=Or Text2.Text=Th

4、en Form1.Caption=xataliq kuruldi Text3.Text=运算数值不能为空 ElseIf Text1.Text=And Text2.Text=Then Form1.Caption=xataliq kuruldi Text3.Text=运算数值不能为空 Else Dim d,e,f As Double d=Val(Text1.Text)e=Val(Text2.Text)f=d-e Text3.Text=f End If If Check1.Value=0 Then ElseIf Text1.Text=Or Text2.Text=Then Form1.Caption=

5、xataliq kuruldi Text3.Text=运算数值不能为空 ElseIf Text1.Text=And Text2.Text=Then Form1.Caption=xataliq kuruldi Text3.Text=运算数值不能为空 Else Dim a,b,c As Double a=Val(Text1.Text)b=Val(Text2.Text)c=a-b Text3.Text=c Text1.Text=Text2.Text=End If End Sub Private Sub Command3_Click()Form1.Caption=欢迎使用智能计算器 If Check1

6、.Value=1 Then ElseIf Text1.Text=Or Text2.Text=Then Form1.Caption=xataliq kuruldi Text3.Text=运算数值不能为空 ElseIf Text1.Text=And Text2.Text=Then Form1.Caption=xataliq kuruldi Text3.Text=运算数值不能为空 Else Dim d,e,f As Double d=Val(Text1.Text)e=Val(Text2.Text)f=d*e Text3.Text=f End If If Check1.Value=0 Then Els

7、eIf Text1.Text=Or Text2.Text=Then Form1.Caption=xataliq kuruldi Text3.Text=运算数值不能为空 ElseIf Text1.Text=And Text2.Text=Then Form1.Caption=xataliq kuruldi Text3.Text=运算数值不能为空 Else Dim a,b,c As Double a=Val(Text1.Text)b=Val(Text2.Text)c=a*b Text3.Text=c Text1.Text=Text2.Text=End If End Sub Private Sub C

8、ommand4_Click()Form1.Caption=欢迎使用智能计算器 If Check1.Value=0 Then ElseIf Text1.Text=Or Text2.Text=Then Form1.Caption=xataliq kuruldi Text3.Text=运算数值不能为空 ElseIf Text1.Text=And Text2.Text=Then Form1.Caption=xataliq kuruldi Text3.Text=运算数值不能为空 ElseIf Val(Text2.Text)=0 Then Form1.Caption=xataliq kuruldi Tex

9、t3.Text=分数的分子不能为零 Else Dim a,b,c As Double a=Val(Text1.Text)b=Val(Text2.Text)c=a/b Text3.Text=c Text1.Text=Text2.Text=End If If Check1.Value=1 Then ElseIf Text1.Text=Or Text2.Text=Then Form1.Caption=xataliq kuruldi Text3.Text=运算数值不能为空 ElseIf Text1.Text=And Text2.Text=Then Form1.Caption=xataliq kurul

10、di Text3.Text=运算数值不能为空 ElseIf Val(Text2.Text)=0 Then Form1.Caption=xataliq kuruldi Text3.Text=分数的分子不能为零 Else Dim d,e,f As Double d=Val(Text1.Text)e=Val(Text2.Text)f=d/e Text3.Text=f End If End Sub Private Sub Command5_Click()Form1.Caption=欢迎使用智能计算器 Text1.Text=Text2.Text=Text3.Text=End Sub Private Su

11、b Command6_Click()Form1.Caption=欢迎使用智能计算器 Form1.Hide Form3.Show End Sub Private Sub Command7_Click()End End Sub Private Sub Command8_Click()Form1.Caption=欢迎使用智能计算器 If Text3.Text Then Text1.Text=Text3.Text Text2.Text=Text3.Text=Else Form1.Caption=xataliq kuruldi Text3.Text=没有结果无法继续 End If End Sub Pri

12、vate Sub Text2_Change()End Sub Private Sub 乘_Click()Form1.Caption=欢迎使用智能计算器 If Check1.Value=1 Then ElseIf Text1.Text=Or Text2.Text=Then Form1.Caption=xataliq kuruldi Text3.Text=运算数值不能为空 ElseIf Text1.Text=And Text2.Text=Then Form1.Caption=xataliq kuruldi Text3.Text=运算数值不能为空 Else Dim d,e,f As Double d

13、=Val(Text1.Text)e=Val(Text2.Text)f=d*e Text3.Text=f End If If Check1.Value=0 Then ElseIf Text1.Text=Or Text2.Text=Then Form1.Caption=xataliq kuruldi Text3.Text=运算数值不能为空 ElseIf Text1.Text=And Text2.Text=Then Form1.Caption=xataliq kuruldi Text3.Text=运算数值不能为空 Else Dim a,b,c As Double a=Val(Text1.Text)b

14、=Val(Text2.Text)c=a*b Text3.Text=c Text1.Text=Text2.Text=End If End Sub Private Sub 除_Click()Form1.Caption=欢迎使用智能计算器 If Check1.Value=0 Then ElseIf Text1.Text=Or Text2.Text=Then Form1.Caption=xataliq kuruldi Text3.Text=运算数值不能为空 ElseIf Text1.Text=And Text2.Text=Then Form1.Caption=xataliq kuruldi Text3

15、.Text=运算数值不能为空 ElseIf Val(Text2.Text)=0 Then Form1.Caption=xataliq kuruldi Text3.Text=分数的分子不能为零 Else Dim a,b,c As Double a=Val(Text1.Text)b=Val(Text2.Text)c=a/b Text3.Text=c Text1.Text=Text2.Text=End If If Check1.Value=1 Then ElseIf Text1.Text=Or Text2.Text=Then Form1.Caption=xataliq kuruldi Text3.T

16、ext=运算数值不能为空 ElseIf Text1.Text=And Text2.Text=Then Form1.Caption=错误 Text3.Text=运算数值不能为空 ElseIf Val(Text2.Text)=0 Then Form1.Caption=错误 Text3.Text=分数的分子不能为零 Else Dim d,e,f As Double d=Val(Text1.Text)e=Val(Text2.Text)f=d/e Text3.Text=f End If End Sub Private Sub munasiwetlik_Click()Form1.Caption=欢迎使用智

17、能计算器 Form1.Hide Form3.Show End Sub Private Sub 继续_Click()Form1.Caption=欢迎使用智能计算器 If Text3.Text Then Text1.Text=Text3.Text Text2.Text=Text3.Text=Else Form1.Caption=xataliq Text3.Text=没有结果无法继续 End If End Sub Private Sub 加_Click()Form1.Caption=欢迎使用智能计算器 If Check1.Value=0 Then ElseIf Text1.Text=Or Text2

18、.Text=Then Form1.Caption=xataliq kuruldi Text3.Text=运算数值不能为空 ElseIf Text1.Text=And Text2.Text=Then Form1.Caption=错误 Text3.Text=运算数值不能为空 Else Dim a,b,c As Double a=Val(Text1.Text)b=Val(Text2.Text)c=a+b Text3.Text=c Text1.Text=Text2.Text=End If If Check1.Value=1 Then ElseIf Text1.Text=Or Text2.Text=Th

19、en Form1.Caption=xataliq kuruldi Text3.Text=运算数值不能为空 ElseIf Text1.Text=And Text2.Text=Then Form1.Caption=xataliq kuruldi Text3.Text=运算数值不能为空 Else Dim d,e,f As Double d=Val(Text1.Text)e=Val(Text2.Text)f=d+e Text3.Text=f End If End Sub Private Sub 减_Click()Form1.Caption=欢迎使用智能计算器 If Check1.Value=1 The

20、n ElseIf Text1.Text=Or Text2.Text=Then Form1.Caption=xataliq kuruldi Text3.Text=运算数值不能为空 ElseIf Text1.Text=And Text2.Text=Then Form1.Caption=错误 Text3.Text=运算数值不能为空 Else Dim d,e,f As Double d=Val(Text1.Text)e=Val(Text2.Text)f=d-e Text3.Text=f End If If Check1.Value=0 Then ElseIf Text1.Text=Or Text2.T

21、ext=Then Form1.Caption=错误 Text3.Text=运算数值不能为空 ElseIf Text1.Text=And Text2.Text=Then Form1.Caption=错误 Text3.Text=运算数值不能为空 Else Dim a,b,c As Double a=Val(Text1.Text)b=Val(Text2.Text)c=a-b Text3.Text=c Text1.Text=Text2.Text=End If End Sub Private Sub 清空_Click()Form1.Caption=欢迎使用智能计算器 Text1.Text=Text2.Text=Text3.Text=End Sub -form2?Private Sub Command1_Click()Form3.Hide Form1.Show Form1.Text3.Text=End Sub Private Sub Command2_Click()End End Sub Love is not a maybe thing.You know when you love someone.Love is not a maybe thing.You know when you love someone.