vb简单的计算机源代码

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 = 运算数值不能为空 2 类分歧 ElseIf Te

2、xt1.Text = And Text2.Text = Then 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 类分歧 类分歧 Form

3、1.Caption = xataliq kuruldi Text3.Text = 运算数值不能为空 ElseIf Text1.Text = And Text2.Text = Then 2 类分歧 Form1.Caption = xataliq kuruldi Text3.Text = 运算数值不能为空 2 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 Command2_Click() Form1.

4、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 精品文库 Forml.Ca pti on = xataliq kuruldi Text3.Text =运算数值不能为空” Else Dim d, e, f As Double d = Val(Text1.Text) e = Val(Te

5、xt2.Text) f = d - e Text3.Text = f End If If CheckI.Value = 0 Then Elself TextI.Text = Or Text2.Text = Then Forml.Ca pti on = xataliq kuruldi Text3.Text =运算数值不能为空” ElseIf TextI.Text = A nd Text2.Text = Then Forml.Ca pti on = xataliq kuruldi Text3.Text =运算数值不能为空” Else Dim a, b, c As Double a = Val(Te

6、xtl.Text) b = Val(Text2.Text) c = a - b Text3.Text = c Text1.Text = Text2.Text = End If End Sub Private Sub Comma nd3_Click() Forml.Ca ption =欢迎使用智能计算器” If CheckI.Value = 1 The n ElseIf TextI.Text = Or Text2.Text = The n Forml.Ca pti on = xataliq kuruldi Text3.Text =运算数值不能为空” ElseIf TextI.Text = A n

7、d Text2.Text = Then Forml.Ca pti on = 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 CheckI.Value = 0 Then Elself TextI.Text = Or Text2.Text = Then Forml.Ca pti on = xataliq kuruldi Text3.Text =运算数值不能为空” Els

8、eIf TextI.Text = A nd Text2.Text = Then Forml.Ca pti on = 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 Comma nd4_Click() Forml.Ca ption =欢迎使用智能计算器” If CheckI.Valu

9、e = 0 The n ElseIf Text1.Text = Or Text2.Text = Then Forml.Ca pti on = xataliq kuruldi Text3.Text =运算数值不能为空” ElseIf Text1.Text = A nd Text2.Text = Then Forml.Ca pti on = xataliq kuruldi Text3.Text =运算数值不能为空” ElseIf Val(Text2.Text) = 0 The n Forml.Ca pti on = xataliq kuruldi Text3.Text = 分数的分子不能为零 ”

10、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 TextI.Text = Or Text2.Text = The n Forml.Ca pti on = xataliq kuruldi Text3.Text =运算数值不能为空” Elself TextI.Text = A nd Text2.Text = Then Form1.Ca

11、pti on = xataliq kuruldi Text3.Text =运算数值不能为空” ElseIf Val(Text2.Text) = 0 The n Form1.Ca pti on = 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 Comma nd5_Click() HH Form1.Ca ption =欢迎使用智能

12、计算器 Text1.Text = Text2.Text = HH Text3.Text = HH End Sub Private Sub Comma nd6_Click() Form1.Ca ption = 欢迎使用智能计算器 Form1.Hide Form3.Show End Sub Private Sub Comma nd7_Click() End End Sub Private Sub Comma nd8_Click() Form1.Ca ption =欢迎使用智能计算器 If Text3.Text The n Text1.Text = Text3.Text Text2.Text = T

13、ext3.Text = Else Form1.Ca pti on = xataliq kuruldi Text3.Text =没有结果无法继续” End If End Sub Private Sub Text2_Cha nge() End Sub Private Sub乘_ Click() Forml.Ca ption = 欢迎使用智能计算器” If CheckI.Value = 1 The n ElseIf TextI.Text = Or Text2.Text = The n Forml.Ca pti on = xataliq kuruldi Text3.Text =运算数值不能为空” El

14、self Text1.Text = A nd Text2.Text = Then Forml.Ca pti on = 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 ChecQ.Value = 0 Then ElseIf Text1.Text = Or Text2.Text = Then Forml.Ca pti on = xataliq kuruldi Text3

15、.Text =运算数值不能为空” ElseIf TextI.Text = A nd Text2.Text = Then Forml.Ca pti on = 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除 _Click() Forml.Ca ption = 欢迎使用智能计算器” I

16、f CheckI.Value = 0 Then Elself TextI.Text = Or Text2.Text = Then Form1.Ca pti on = xataliq kuruldi Text3.Text =运算数值不能为空” ElseIf Text1.Text = A nd Text2.Text = Then Form1.Ca pti on = xataliq kuruldi Text3.Text =运算数值不能为空” ElseIf Val(Text2.Text) = 0 The n Form1.Ca pti on = xataliq kuruldi Text3.Text =

17、分数的分子不能为零 ” 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 = The n Form1.Ca pti on = xataliq kuruldi Text3.Text =运算数值不能为空” ElseIf Text1.Text = A nd Text2.Text = Th

18、en Form1.Caption =错误 Text3.Text =运算数值不能为空” ElseIf Val(Text2.Text) = 0 The n 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 mun asiwetlik_Click() Form1.Ca ption =欢迎使用智能计算器” Form1.Hide

19、Form3.Show End Sub Private Sub 继续 _Click() Form1.Ca ption = 欢迎使用智能计算器” If Text3.Text Then TextI.Text = Text3.Text Text2.Text = Text3.Text = Else Form1.Ca pti on = xataliq Text3.Text =没有结果无法继续” End If End Sub Private Sub加 加 _Click() Form1.Ca ption =欢迎使用智能计算器” If Check1.Value = 0 The n ElseIf Text1.Te

20、xt = Or Text2.Text = The n Form1.Ca pti on = xataliq kuruldi Text3.Text =运算数值不能为空” ElseIf Text1.Text = A nd Text2.Text = Then Form1.Caption = ” 错误” Text3.Text =运算数值不能为空 Else Dim a, b, c As Double a = Val(Text1.Text) b = Val(Text2.Text) Text3.Text = c Text1.Text = Text2.Text = End If If ChecQ.Value =

21、 1 Then Then ElseIf Text1.Text = Or Text2.Text = Form1.Ca pti on = xataliq kuruldi Text3.Text =运算数值不能为空 ElseIf Text1.Text = A nd Text2.Text = Then Form1.Ca pti on = 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.Ca ption =欢迎使用智能计算器” If Check1.Value = 1 The n ElseIf Text1.Text = Or Text2.Text = The n Form1.Ca pti on = xataliq kuruldi Text3.Text =运算数值不能为空” ElseIf Text1.Text = A nd