有溢出错误

cigswin · 发表于 2019-11-1 23:46

Sub test()
Dim i as inteeger, k as long
i = 8 / 3
k = 32765 + i
End Sub

最后显示溢出错误，这是根据杨洋老师的课后练习做的。大家帮忙看看怎么回事

月关 · 发表于 2019-11-2 07:19

inteeger，这是个什么数据类型？

microyip · 发表于 2019-11-2 07:57

cigswin · 发表于 2019-11-2 08:19

月关发表于 2019-11-2 07:19
inteeger，这是个什么数据类型？

写错了，是iinteger，整数

月关 · 发表于 2019-11-2 08:25

cigswin 发表于 2019-11-2 08:19
写错了，是iinteger，整数

很显然是数据类型声明错误，楼上的老师说了改成double即可。但如果精度要求不那么高的话（16位），声明为single 效率更高一点

liulang0808 · 发表于 2019-11-2 08:33

Sub test()
Dim i As Integer, k As Long
i = 8 / 3
k = clng(32765) + i
End Sub
这样看看是否可行

		自动登录	找回密码
密码			免费注册

最新热点 /1