VB程式请计算y=x^2+2X-1於x=1x=11问:与X轴所夹之面积且误差不大於0.1%如何用for还有do不同方式写呢用主控台应用程式donextloopdoloop两个程式不是用再一起

Question

VB程式 请计算y=x^2+2X-1 於x=1 x=11 问:与X轴所夹之面积且误差不大於0.1% 如何用for 还有do 不同方式写呢
用主控台应用程式　do next loop 　　do loop 两个程式　不是用再一起

Answer 1

Private Sub Command1_Click() Dim x1 As Double, y1 As Double s = 1: j = 11 jg = 100000 mj = 0 For n = 1 To jg - 1 x1 = s + n * (j - s) / jg - (j - s) / (2 * jg) y1 = Abs(x1 ^ 2 + 2 * x1 - 1) mj = mj...