vb简单的计算机源代码
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
vb简单的计算机源代码.txt如果青春的时光在闲散中度过，那么回忆岁月将是一场凄凉的悲剧。杂草多的地方庄稼少，空话多的地方智慧少。即使路上没有花朵，我仍可以欣赏荒芜。Private Sub Command1_Click()
= "欢迎使用智能计算器" '载入默认正常显示
If = "0" Then '1类分歧ElseIf = "" Or = "" Then '2类分歧
= "xataliq kuruldi"
= "运算数值不能为空"
ElseIf = "" And = "" Then '2类分歧
= "xataliq kuruldi"
= "运算数值不能为空"
Else '2类分歧
Dim a, b, c As Double
a = Val
b = Val
c = a + b
= c
= ""
= ""
End If
If = "1" Then '1类分歧ElseIf = "" Or = "" Then '2类分歧
= "xataliq kuruldi"
= "运算数值不能为空"
ElseIf = "" And = "" Then '2类分歧
= "xataliq kuruldi"
= "运算数值不能为空"
Else '2类分歧
Dim d, e, f As Double
d = Val
e = Val
f = d + e
= f
End If
End Sub
Private Sub Command2_Click() = "欢迎使用智能计算器"
If = "1" Then
ElseIf = "" Or = "" Then = "xataliq kuruldi"
= "运算数值不能为空"
ElseIf = "" And = "" Then = "xataliq kuruldi"
= "运算数值不能为空"
Else
Dim d, e, f As Double
d = Val
e = Val
f = d - e
= f
End If
If = "0" Then
ElseIf = "" Or = "" Then = "xataliq kuruldi"
= "运算数值不能为空"
ElseIf = "" And = "" Then = "xataliq kuruldi"
= "运算数值不能为空"
Else
Dim a, b, c As Double
a = Val
b = Val
c = a - b
= c
= ""
= ""
End If
End Sub
Private Sub Command3_Click() = "欢迎使用智能计算器"
If = "1" Then
ElseIf = "" Or = "" Then = "xataliq kuruldi"
= "运算数值不能为空"
ElseIf = "" And = "" Then = "xataliq kuruldi"
= "运算数值不能为空"
Else
Dim d, e, f As Double
d = Val
e = Val
f = d * e
= f
End If
If = "0" Then
ElseIf = "" Or = "" Then = "xataliq kuruldi"
= "运算数值不能为空"
ElseIf = "" And = "" Then = "xataliq kuruldi"
= "运算数值不能为空"
Else
Dim a, b, c As Double
a = Val
b = Val
c = a * b
= c
= ""
= ""
End If
End Sub
Private Sub Command4_Click()
= "欢迎使用智能计算器"
If = "0" Then
ElseIf = "" Or = "" Then = "xataliq kuruldi"
= "运算数值不能为空"
ElseIf = "" And = "" Then = "xataliq kuruldi"
= "运算数值不能为空"
ElseIf Val = "0" Then
= "xataliq kuruldi"
= "分数的分子不能为零" Else
Dim a, b, c As Double
a = Val
b = Val
c = a / b
= c
= ""
= ""
End If
If = "1" Then
ElseIf = "" Or = "" Then = "xataliq kuruldi"
= "运算数值不能为空"
ElseIf = "" And = "" Then = "xataliq kuruldi"
= "运算数值不能为空"
ElseIf Val = "0" Then
= "xataliq kuruldi"
= "分数的分子不能为零"