vb溢出错误，高手请进来看看！！！急急急

来源：百度知道编辑：UC知道时间：2024/05/31 00:24:35

Dim z, y, aa, ll, MM, EEI, v As Double

Private Sub Picture1_Paint()
Dim x As Double

For I = 0 To Picture1.Width
Picture1.PSet (I, Int(Picture1.Height * 2 / 3)), vbRed
Next
For I = 0 To Picture1.Height
Picture1.PSet (200, I), vbRed
Next
For x = 0 To Picture1.Width * aa / ll
Picture1.PSet (x + 200, Int(Picture1.Height * 2 / 3) + 700 * MM * x * x / (2 * EI)), vbRed
Next
For x = Int(aa / ll * Picture1.Width) To Picture1.Width
Picture1.PSet (x + 200, Int(Picture1.Height * 2 / 3) + 700 * MM * aa * (aa / 2 + (x - aa))), vbRed
Next
End Sub
Private Sub Picture1_resize()
Picture1.Refresh
End Sub
编译时系统提示 For x = 0 To Picture1.Width * aa / ll这行出现了溢出错误。

Picture1.PSet (x + 200, Int(Picture1.Height * 2 / 3) + 700 * MM * x * x / (2 * EI)), vbRed
把(2*EI)改成(2*EII)

还有ll、MM、EII的初始值是多少？有没有设置。没有的话先给它们一个值

关于程序这块，一般情况下，我们不会出错的，出错的地方都是空格了，符号了，这些小错误，多注意细节！努力！

超出Double的范围~

很明显嘛: Picture1.Width * aa / ll
ll未赋值,你想,分母为0,还不溢出啊!

vb 高手~请进来看看高手请进来看看！！高手请进来看看~~ 高手们请进来看看英语翻译，高手请进来看看文学高手请进来看看！ ASP高手请进来看看！ ASP高手请进来看看!!! asp高手请进来看看高手门请进来看看