急急(实时错误‘6’ 溢出)
Dim n1 As Integer, i As Single, P As Single, KA As Single, Pca As Single, b As Single
n1 = Val(Text1.Text)
i = Val(Text2.Text)
P = Val(Text3.Text)
KA = Val(Text4.Text)
Pca = KA * P
b = n1 / Pca
为什么编译的时候会出现'实时错误‘6’ 溢出'，就是‘b = n1 / Pca’，是错误的
[解决办法]
你这里的溢出就是被0除，也就是Pca=0，自己用程序预防一下。
[解决办法]
Pca = KA * P
if pca<>0 then
b = n1 / Pca
else
msgbox "KA或P不能为0"
exit sub
endif
[解决办法]
这个错误与数据类型无关，你小学时就应该知道0不能做除数。
[解决办法]
同意楼上，另：
“为什么编译的时候会出现'实时错误‘6’ 溢出'”？？？楼主你说的是按F5运行时吧，怎么可能是编译时出现这种错误
[解决办法]
单步调试，看看Pca是多少？看看是不是零除溢出？还有可能是因为你的b1的原因
