vba画一条抛物线:y=0.5*x*x+3问题?Subpwx()Dimp(0To101)AsDouble'定义点坐标Fora=0To100Step1'开始循环画抛物线Fori=-50To50Step1'开始画多段线p(a)=i'横坐标p(a+1)=0.5*i*i+3'纵坐标NextiThis

Question

vba画一条抛物线:y=0.5*x*x+3问题?
Sub pwx()
Dim p(0 To 101) As Double '定义点坐标
For a = 0 To 100 Step 1 '开始循环画抛物线
For i = -50 To 50 Step 1 '开始画多段线
p(a) = i '横坐标
p(a + 1) = 0.5 * i * i + 3 '纵坐标
Next i
ThisDrawing.ModelSpace.AddLightWeightPolyline (p) '画多段线
Next a
ZoomExtents '显示整个图形
End Sub

Answer 1

外循环根本没有用,应该是：
Sub pwx()
Dim p(0 To 201) As Double
'定义点坐标
'开始循环画抛物线
For i = -50 To 50 Step 1
'开始画多段线
p(a) = i
'横坐标
p(a + 1) = 0.5 * i * i + 3
'纵坐标
a = a + 2
Next i
ThisDrawing.ModelSpace.AddLightWeightPolyline (p)
'画多段线
ZoomExtents
'显示整个图形
End Sub