帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
2 s2 D9 ~/ M- h( dXY
On Error Resume Next
1 l* t5 }! h; D5 S& [8 E; d Dim x As Double, Y As Double
Randomize
  
3 r: W' H, q9 i- G3 X        SC.Reset
% V: c6 I5 F( i/ [' N4 l        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
       For x = -15 To 15 Step 0.001
0 m7 ~4 V) Y# }5 {3 J7 a3 O         Y = SC.Run("runthis", x)
         DoEvents
8 n! h) U- ~5 {: A8 F3 g          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
6 g) Y7 q! s' z/ [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)
4 ^! J& `- J8 S$ a$ hWith Picture1
# D" k' w* M: Q" T- e.CurrentX = x
' ~0 o7 g- R8 F5 I.CurrentY = Y
) o' A" b9 H$ o, k/ H.ForeColor = RGB(0, 0, 255)
End With
Picture1.Print Word
% [5 E0 d& Q$ ~9 i$ u! N1 a  U1 aEnd Function
'定义画点函数
7 @  L/ j  `4 t' C: W  {Private Function DrawDot(Px, Py, Color)
; l% p4 a& W6 F* LPicture1.PSet (Px, Py), Color
End Function
$ w# m7 Y1 M7 K( t% I% \% @Sub XY() '建立直角坐标系
& n: E2 H6 s) {Picture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
+ N( [2 `$ R- R6 ^, g'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
% e( G2 a. R/ P% CPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
; E7 E: H  E5 x- Z& D2 j" k) fPicture1.Line -(9.5, 0.5), RGB(0, 0, 255)
. O! W8 a7 q& iPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
7 G4 v' ]6 t: m2 ?$ ~Picture1.Print "X"
'画 X 轴
6 v) g0 k" y+ \' jPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
+ Z4 s) K/ a' XPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
: N7 w" K* C" j, VPicture1.Print "Y"
'画 Y 轴
For lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
: `4 Z) D, G: q8 ~) f  P& ~3 awor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
3 ]* h9 r2 I4 m% q  n9 i/ T( iIf lin &lt;&gt; 0 Then
  J( j2 @2 S+ ?* s4 `  jwor = PrintWord(-0.9, lin, Str(lin))
End If
Next lin
9 ?9 N  Y9 j. E! b: ?5 ^* F) wPicture1.DrawWidth = 1
1 v/ G2 h/ U  U* L. J. q% z. z8 [End Sub
Private Sub cmdPlot_Click()
XY
: k3 n# ^% E, P7 ~, HOn Error Resume Next
* Y9 W, B  Y" S7 z: P" E Dim x As Double, Y As Double
! C. g$ Z  k/ ]2 m9 \ Randomize
7 e9 r9 O; D# }% x, Y6 t2 V3 ?1 |  
        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
% ?3 d4 `3 s& D2 i1 r: o* X       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
         DoEvents
" `0 z  x$ g4 ^/ T4 z5 z! E% G- O4 y! d          Picture1.PSet (x, Y), RGB(250, 0, 0)
- q7 H! T2 M! {          Next x
4 z! ?1 I. v" O  k! W9 B$ JEnd Sub</P><>rivate Sub Command2_Click()
XY
* E0 ^' G% a2 oEnd Sub</P><>rivate Sub Command3_Click()
  m6 a# S1 a) s5 X2 j9 i) I) gEnd
; ?2 M( f( y% I* Y, YEnd Sub</P><>
0 S! Q0 y8 {; p/ g6 qPrivate Sub Form_Load()
# r6 ?+ [5 O. e5 v+ h1 u7 JMe.Caption = "美丽曲线——山东省商河一中路来民"
Me.Show
- W  W7 y) K1 S5 mMe.AutoRedraw = True
XY
End Sub
控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何

  R5 `; l+ }" I
8 P3 [9 R! W! o




* M7 j6 q! C" c1 V; U  x* z* }

2 b: V' M; T  W) d& ^

: K/ g2 l, o4 c+ U5 c# Y: b
大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！