帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
XY
" D  Y$ \9 ]1 n  v% EOn Error Resume Next
Dim x As Double, Y As Double
Randomize
- T3 {2 V6 ~  O: I# U) F# l  
        SC.Reset
3 D8 w3 C5 y' G; @        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
5 ~$ Q* R9 L5 d0 I       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
+ ~  u2 k% j1 N) v; g) i$ f4 {/ G/ e- ^         DoEvents
. t7 A5 A' c6 |  R          Picture1.PSet (x, Y), RGB(250, 0, 0)
0 h* ?. b8 B4 q! [4 D& x          Next x
' L* A9 G) V( N! WEnd Sub</P>
<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），请帮忙</P>

USER001

把完整代码发上来

llm3-1415926

<><b>帮帮忙，跪下谢谢斑竹，VB</b></P><>rivate Function PrintWord(x, Y, Word As String)
With Picture1
  d0 ?+ ~( s7 J* A.CurrentX = x
/ Z) f$ k# y% K. @.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
End With
( A" P) w" Z: `; s1 D' H* l/ pPicture1.Print Word
End Function
'定义画点函数
. M- r& }' x; Y& g2 h% |+ NPrivate Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
End Function
Sub XY() '建立直角坐标系
0 @' [; Y9 k8 UPicture1.DrawWidth = 1 '设置线条宽度
* a  A, i+ q  E  F  X' X9 JPicture1.Cls
; U+ ?8 I! B8 M4 g$ o/ g( S'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
5 z! R  b. L: vPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
) D# O+ k0 ~5 K1 p: q9 n% bPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
  T" W  Q5 k5 l' e6 p! cPicture1.Print "X"
3 a3 b) |7 r3 F: U3 G'画 X 轴
/ b# q! @1 E& j3 K7 [) P4 oPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
% Q3 C* n2 P, wPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
'画 Y 轴
- Q  d" z7 V8 Y6 JFor lin = -9 To 9
& p- {; Y/ L& x, ]/ nPicture1.Line (lin, 0)-(lin, 0.25)
# c1 y2 s+ d; K! L, D6 N0 Ewor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
- E% f1 S) U. a' Ewor = PrintWord(-0.9, lin, Str(lin))
End If
Next lin
Picture1.DrawWidth = 1
End Sub
; t1 U: r6 V$ _: T5 IPrivate Sub cmdPlot_Click()
XY
* A% n! L1 l$ O; Q0 j+ l* }) {On Error Resume Next
6 y: g* b: V: h# w Dim x As Double, Y As Double
Randomize
  
        SC.Reset
# w. J, P  o- t* R/ e' ]        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
) I. ]. D6 n( p5 \  d       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
         DoEvents
) w# W/ D, v6 w% @3 l8 F3 M7 d8 @          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
End Sub</P><>rivate Sub Command2_Click()
8 }( X" b9 d. D; h' ?9 _4 G' IXY
End Sub</P><>rivate Sub Command3_Click()
8 o) Q! Q1 _8 u4 H( ~1 X3 `# UEnd
End Sub</P><>
2 ~! s$ [0 T. z/ e2 E% fPrivate Sub Form_Load()
* B/ y$ y4 ~0 c" A* a/ d, DMe.Caption = "美丽曲线——山东省商河一中路来民"
Me.Show
Me.AutoRedraw = True
XY
End Sub
控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何
$ O3 r( e& {" j) A9 v" g& ^


9 A7 I% M- ~- q* X  z& Z, V; s+ q
) o$ y0 K3 ~1 n( W


8 k4 A% `1 T6 |
& o" M9 o2 r. a; F



大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！