第五课有一个作业，画抛物线y=0.5*x*x+3 x[-50，50]。我写了一个程序如下，监测显示参数都没问题，可在autocad中画出来的图形不对，能看看问题出在哪儿吗？
, ^* p q: q+ hSub PaoWuXian()
$ n; N3 J* W G3 J. pDim p(0 To 101) As Double
1 Q2 T4 Q, }. w- b# v- O& j/ c* UDim a As Integer" Y5 R/ {$ i0 T% P% S2 ^( z2 d
Dim i, j As Integer1 [1 d; L$ v5 H) k' t2 \
/ M5 G- s, ~! N9 d" e For j = 1 To 100 Step 1- i ^4 |& }+ c- {% {
a = -50 + j: L4 A: g! n# l7 h
p(j) = a8 {# f' ]. J+ G$ @% S
p(j + 1) = 0.5 * a * a + 3
& I2 L; W. d9 D0 O7 \+ I3 C. M Next j
- u/ f: G/ {* ~0 ?- z+ G" L/ e" v* X" N3 t
8 G, f+ J8 Y6 bThisDrawing.ModelSpace.AddLightWeightPolyline (p)
3 ~/ ^$ o9 Y1 G: lZoomExtents: O' z: i; T9 U; C- [
' D6 {$ p& d) c4 G+ j) O& b ?( \
End Sub |
发表于 2008-2-6 09:48
