mechatronics mechatronics
1.有事可以直接发消息给我
关注数: 0 粉丝数: 25 发帖数: 4,903 关注贴吧数: 13
请问在vb中当除数是0的时候怎么处理呢?【谢谢】 Public Sub Command4_Click()txt1 = Val(Text1)txt2 = Val(Text2)txt3 = Val(Text3)txt4 = Val(Text4)txt5 = Val(Text5)txt6 = Val(Text6)txt7 = Val(Text7)txt8 = Val(Text8)txt9 = Val(Text9)txt10 = Val(Text10)txt11 = Val(Text11)txt12 = Val(Text12)txt13 = Val(Text13)txt14 = Val(Text14)txt15 = Val(Text15)txt16 = Val(Text16)txt17 = Val(Text17)txt18 = Val(Text18)txt19 = Val(Text19)txt20 = Val(Text20)txt21 = Val(Text21)txt22 = Val(Text22)txt23 = Val(Text23)txt24 = Val(Text24)txt25 = Val(Text25)txt26 = Val(Text26)txt27 = Val(Text27)txt28 = Val(Text28)txt29 = Val(Text29)txt30 = Val(Text30)txt31 = Val(Text31)txt32 = Val(Text32)txt33 = Val(Text33)txt34 = Val(Text34)txt35 = Val(Text35)If Val(Text27) = 0 ThenMsgBox "轴向进给量不可能为0"End Ifca = Fix((Val(Text21) - Val(Text1)) / 2 / Val(Text27) + 2)cb = Fix((Val(Text21) - Val(Text2)) / 2 / Val(Text27) + 2)cc = Fix((Val(Text21) - Val(Text3)) / 2 / Val(Text27) + 2)cd = Fix((Val(Text21) - Val(Text4)) / 2 / Val(Text27) + 2)ce = Fix((Val(Text21) - Val(Text5)) / 2 / Val(Text27) + 2)ta = Val(Text6) * ca / Val(Text26) / Val(Text25)tb = Val(Text6) * cb / Val(Text26) / Val(Text25)tc = Val(Text6) * cc / Val(Text26) / Val(Text25)td = Val(Text6) * cd / Val(Text26) / Val(Text25)te = Val(Text6) * ce / Val(Text26) / Val(Text25)xta = 2 * Val(Text11) * Val(Text16) / Val(Text28) / Val(Text29) / Val(Text30)xtb = 2 * Val(Text12) * Val(Text17) / Val(Text28) / Val(Text29) / Val(Text30)xtc = 2 * Val(Text13) * Val(Text18) / Val(Text28) / Val(Text29) / Val(Text30)xtd = 2 * Val(Text14) * Val(Text19) / Val(Text28) / Val(Text29) / Val(Text30)xte = 2 * Val(Text15) * Val(Text20) / Val(Text28) / Val(Text29) / Val(Text30)Form3.ShowEnd Sub-----------------------------------------有些时候text28或者27中的数就是零了。。怎么处理不让他弹出窗口报错呢?
1 下一页