Dim J As Double=e.Form.controls("textbox4").text
改成:下面这样试试呢
Dim J As Double=e.Form.controls("textbox4").Value
我测试过了,就是这个问题,我现在基本上很少用text了,只有文本才用,如果其它的类型我一律用Value,因为他表示值,而text表示字符