vba实时错误5 系统错误5

跟踪出现错误处,看是否超出最大允许范围,如果超出了错误处的允许范围就会出现 5 的错误提示,比如 nName = Dir() 的允许长度是100,但是你到这里是101,那就会出错.

你用的是2007以后的版本就会出现这种情况.因为2007以后的版本菜单是使用功能区了,在添加菜单时位置和2003不同,所以before的位置参数在这无效.另所添加的菜.

具体原因不明,解决方法如下:private sub richtextbox1_selchange() doevents richtextbox1.selstrikethru = true end sub 多加点分吧!

rgb(r,g,b)运行的时候 r=-1,g=0,b=0 然后报错!你上面基本所有的变量都没声明,所以 也不清楚你的变量都表示的什么意思.可以肯定的是给颜色赋值的过程有问题

str1 = MSComm1.Input If str1 ＂＂ Then Text1.Text = str1 End If

由于在form_load阶段 text还没有画好,因此不能用text1.setfocus方法, 建议你把那些语句写在form_activate事件中,效果是一样的

Text2.Text = str(x2) & ＂ ＂ & str(y2) Text3.Text = str(Sqr((x1 - x2 * x2) + (y1 - y2 * y2))) 别懒,类型不匹配有时会出错,检查开平方根里面表达式计算结果是否为负

有些调用操作不能完成.此错误有以下的原因和解决方法: 参数值可能超出了允许的范围.例如,Sin 函数只接受特定范围的值.正的参数小于 2,147,483,648的是可接受的,而等于 2,147,483,648 则会产生错误. 检查参数的许可范围.如果所要调用的过程不适于当前平台的话,也会发生此错误.例如,有些程序可能只应用到 Microsoft Windows 或 Macintosh 等. 检查过程的特定平台信息.

实时错误5,其意思是b ^ 2 - 4 * a * c不能小于0,你给的值使其小于0,sqr无法运算;实时错误6,即a不能为零.

因为在form,窗体加载之前,txtA还没实例化,而且具象化哦,嘿嘿,建议加个timer延迟处理一下