输入任意一个加数8 立即提示出错，何解如何改

laoau128

Sub 加法计算器2()           '输入任意一个加数8  立即提示出错，何解如何改
Dim jiashu As Integer
Dim beijiashu As Integer
Dim he As Integer
jiashu = InputBox("请输入加数", "加法计算器")
If jiashu = "" Then Exit Sub
beijiashu = InputBox("主伐输入被加数", "加法计算器")
If beijiashu = "" Then Exit Sub
he = Val(jiashu) + Val(beijiashu)
MsgBox "两数求和的结果为:" & he, vbOKOnly, "加法计算器"
End Sub

wdx223

用application.inputbox

maditate

jiashu 定义为Integer。 “”   什么也没定义，我不知道，  “”   应该是什么数据类型，反正不是 Integer。两个数据类型不同的值没法作比较，因而出错。这是我的理解。


Sub 加法计算器2()           '输入任意一个加数8  立即提示出错，何解如何改
Dim jiashu As Integer
Dim beijiashu As Integer
Dim he As Integer
jiashu = InputBox("请输入加数", "加法计算器")
If jiashu = Empty Then Exit Sub
beijiashu = InputBox("主伐输入被加数", "加法计算器")
If beijiashu = Empty Then Exit Sub
he = Val(jiashu) + Val(beijiashu)
MsgBox "两数求和的结果为:" & he, vbOKOnly, "加法计算器"
End Sub

philijian

jiashu = Application.InputBox("请输入加数", "加法计算器")
If Not IsNumeric(jiashu) Then Exit Sub
beijiashu = Application.InputBox("主伐输入被加数", "加法计算器")
If Not IsNumeric(beijiashu) Then Exit Sub

laoau128

maditate 发表于 2017-4-25 16:45
jiashu 定义为Integer。 “”   什么也没定义，我不知道，  “”   应该是什么数据类型，反正不是 Integer ...

输入8，然后单击取消，提示出错了

huang1314wei

你能把 As Integer  都删除吗，看着咋这么难受呢

maditate

把声明类型改一下，改为变体


Sub 加法计算器2()           '输入任意一个加数8  立即提示出错，何解如何改
Dim jiashu As Variant
Dim beijiashu As Variant
Dim he As Integer
jiashu = InputBox("请输入加数", "加法计算器")
If jiashu = "" Then Exit Sub
beijiashu = InputBox("主伐输入被加数", "加法计算器")
If beijiashu = Empty Then Exit Sub
he = Val(jiashu) + Val(beijiashu)
MsgBox "两数求和的结果为:" & he, vbOKOnly, "加法计算器"
End Sub