帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
4 W$ O2 I9 [" n. ], ^! RXY
On Error Resume Next
Dim x As Double, Y As Double
1 o! ^  O& p# O! f9 H6 \ Randomize
; u1 I( P$ d; x5 A  
! p! f3 o: q8 p7 v        SC.Reset
1 p( I$ a: i3 Q  b        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
       For x = -15 To 15 Step 0.001
" o  ?0 n  W: x* k( [         Y = SC.Run("runthis", x)
         DoEvents
1 B  H$ x6 L8 E# n2 Z          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
4 X* ?, Z0 k3 Q3 _End 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
.CurrentX = x
) Y# J7 j$ [' g.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
End With
Picture1.Print Word
End Function
'定义画点函数
Private Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
% q4 N6 ]9 n' G! sEnd Function
! o9 ], ?- k! n9 n& h  aSub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
# ]" b6 E* ~7 P: c" Z8 {'设定用户坐标系，坐标原点在Picture1中心
, H0 E7 Z. J9 T; O$ y" g9 a: TPicture1.Scale (-10, 10)-(10, -10)
2 Z4 _. ?$ E, V, ^  E7 i. U9 @Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
+ T" F, A, o/ H8 N! \- qPicture1.Line -(9.5, 0.5), RGB(0, 0, 255)
Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
6 y% _4 K% p9 Q* j2 P1 y'画 X 轴
) \8 M" U+ s& P5 w6 @# _. MPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
$ P7 M$ ]! J8 x* u4 ~4 v- gPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
4 t! q0 Y* @4 v9 p'画 Y 轴
For lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
  r; a' h" p5 t: l+ F4 g! @- R0 yIf lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
End If
* Q0 r9 h) E3 j/ u- k7 cNext lin
Picture1.DrawWidth = 1
End Sub
5 k' F$ p6 P$ s- S7 [, U% Q; C% Z# wPrivate Sub cmdPlot_Click()
+ ]2 \; O) N- J  r& }7 NXY
On Error Resume Next
Dim x As Double, Y As Double
3 m/ m  L6 D9 @6 ~& ^6 r4 n- I Randomize
, H3 O/ s- Z! e6 r0 V  
        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
) U  c( J* H. U0 l1 w9 r8 `         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
End Sub</P><>rivate Sub Command2_Click()
, x$ ~- ^& O2 i( R' ]5 HXY
' e3 J4 b" P9 P4 W0 K5 P) C' fEnd Sub</P><>rivate Sub Command3_Click()
End
( J8 {0 H2 f' W) F* P  ^- R( R, X3 lEnd Sub</P><>
Private Sub Form_Load()
2 p4 E2 v, f; {* d' [  yMe.Caption = "美丽曲线——山东省商河一中路来民"
Me.Show
Me.AutoRedraw = True
XY
End Sub
控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何
8 s: ?  u6 z1 Q- ?: A
* F' c3 O) X9 d6 h( }. o" v

0 i3 x1 p7 C6 j  R  R2 g

/ w: j! x7 k% g* L, F$ Q% h

# T% X/ l$ K3 Y1 g


4 \8 @9 j+ D9 e8 I7 G
  T' ^/ k+ A4 a( l( g5 U1 H8 q' W
大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！