2022年vb简单的计算机源代码 .pdf
《2022年vb简单的计算机源代码 .pdf》由会员分享,可在线阅读,更多相关《2022年vb简单的计算机源代码 .pdf(9页珍藏版)》请在淘文阁 - 分享文档赚钱的网站上搜索。
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 T
2、ext2.Text = 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 = xatali
3、q kuruldi Text3.Text = 运算数值不能为空 ElseIf 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
4、 Check1.Value = 1 Then ElseIf Text1.Text = Or Text2.Text = Then Form1.Caption = xataliq kuruldi Text3.Text = 运算数值不能为空 ElseIf Text1.Text = And Text2.Text = Then 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页,共 9 页 - - - - - - - - - Form1.Caption = xataliq kuruldi
5、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 = xataliq kuruldi Text3.Text = 运算数值不能为空 ElseIf Text1.Text = And Text2.Text = Then Form1.Caption = x
6、ataliq 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.Value = 1 Then ElseIf Text1.Text = Or Text2.Text = Then Form1.Cap
7、tion = 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 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精
8、心整理 - - - - - - - 第 2 页,共 9 页 - - - - - - - - - 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(T
9、ext1.Text) b = Val(Text2.Text) c = a * b Text3.Text = c Text1.Text = Text2.Text = End If End Sub Private Sub Command4_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 Text
10、2.Text = Then Form1.Caption = xataliq kuruldi Text3.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
11、Then ElseIf Text1.Text = Or Text2.Text = Then Form1.Caption = xataliq kuruldi Text3.Text = 运算数值不能为空 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页,共 9 页 - - - - - - - - - ElseIf Text1.Text = And Text2.Text = Then Form1.Caption = xataliq kuruldi Text3.Text = 运算数值不
12、能为空 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
13、Private Sub 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 =
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 2022年vb简单的计算机源代码 2022 vb 简单 计算机 源代码
限制150内