b = Val(Text2)
h = 0.2
Picture1.CurrentX = a
Picture1.CurrentY = a * a
Picture1.FillStyle = 0
Picture1.ForeColor = RGB(255, 255, 0)
jifen = 0
For i = 1 To (b - a) / h
Picture1.Line -(a + i * h, 0), , B '画小矩形
Picture1.CurrentX = a + i * h
Picture1.CurrentY = (a + i * h) * (a + i * h) '准备下一个起点
jifen = jifen + (a + i * h) * (a + i * h) * h '求积分
Next i
帮忙讲解一下吧
这个是求积分的图形化示意图，line是个画线的函数，槐乱Picture1.Line -(a + i * h, 0), , B是以pincture1点坐标芹瞎为起点，以(a + i * h, 0)为对角点画矩铅首档形，B就是画矩形，中间省略的空格为颜色参数。
希望对你有所帮助