我正在为Simpson 1/3规则的子代码编写代码。我有该功能的代码，但是它与Sub中需要做的细微调整不起作用。Sub必须使用SimpsonResultCell.Value以下任一显示：
要使用的消息是：“需要偶数个间隔（点数为奇数）”。
所以这是我的代码：
Sub Simpson13Sub()
Dim xData As Range, yData As Range
Dim x() As Double, y() As Double, h As Double, sum As Double
Dim n As Integer, i As Integer, np As Integer, SimpsonResultCell As Integer
Set xData = Application.InputBox("Select cell with x Data", Type:=8)
Set yData = Application.InputBox("Select cell with y Data", Type:=8)
Set SimpsonResultCell = Application.InputBox("Select cell to display result", Type:=8) ' object required appears here
np = xData.Count 'number of points
n = np - 1 'number of intervals
If (n Mod 2 <> 0) Then
SimpsonResultCell = "An even number of intervals is necessary (odd number of points)"
Exit Sub
Else
Do
ReDim x(0 To n)
ReDim y(0 To n)
For i = 0 To n
x(i) = xData(i + 1)
y(i) = yData(i + 1)
Next i
sum = y(0) + y(n)
For i = 1 To n - 1 Step 2
sum = sum + 4 * y(i)
Next i
For i = 2 To n - 2 Step 2
sum = sum + 2 * y(i)
Next i
h = (x(n) - x(0)) / n
SimpsonResultCell = h * sum / 3
Exit Do
End If
End Sub
您的错误来自以下声明：
SimpsonResultCell As Integer
和这个任务：
Set SimpsonResultCell = Application.InputBox("Select cell to display result", Type:=8)
该语法Set Foo = Application.InputBox返回一个Range对象。您正在尝试将其分配给Integer。您需要做的就是使用适当的Dim语句：
Dim SimpsonResultCell As Range
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句