帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
XY
On Error Resume Next
Dim x As Double, Y As Double
: o4 t9 V- {% B' H Randomize
  
        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
0 ?/ _& _3 T6 q( E+ s' t0 j       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
* _$ M3 N1 L' L+ a% d+ w) ]         DoEvents
$ W7 I& I  s( N8 P8 n          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
End Sub</P>
/ i4 a$ e) ?. O+ E% g& a<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），请帮忙</P>

USER001

把完整代码发上来

llm3-1415926

<><b>帮帮忙，跪下谢谢斑竹，VB</b></P><>rivate Function PrintWord(x, Y, Word As String)
With Picture1
3 b. Z5 i0 G& z0 M# c8 [.CurrentX = x
.CurrentY = Y
, g( u6 b! v; T1 S8 Q# g. T.ForeColor = RGB(0, 0, 255)
1 \  d8 K# H% l2 nEnd With
* w( V$ ~. n6 i5 L. SPicture1.Print Word
End Function
  O5 {( k- P# R( z# K& f'定义画点函数
* Q( T% Z1 n- A/ s! d- hPrivate Function DrawDot(Px, Py, Color)
3 M7 I1 P4 R0 @Picture1.PSet (Px, Py), Color
2 x( i' j4 j- U* x. YEnd Function
* ?* V5 u9 d- h$ LSub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
# l, [' {/ Q# U: o: y  PPicture1.Scale (-10, 10)-(10, -10)
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
9 V: q3 m# t% f* w& _2 Y" E: F( C+ Z( |Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
. u. k# W1 v9 f" D1 M1 W" VPicture1.ForeColor = RGB(0, 0, 255)
  j8 c& [! |3 ^# P- |4 jPicture1.Print "X"
3 L5 L! ?& v6 O) ?" `& Z+ o* L'画 X 轴
6 ]( _+ Q/ k+ Z$ u( i6 W9 M, O) T# |$ t8 OPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
' r8 s- H9 k7 z+ F& vPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
! y/ G( ]: k9 x- F7 E3 [2 a# O+ y'画 Y 轴
For lin = -9 To 9
* y- n% Y- F+ KPicture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
1 p" U% Q2 _9 Q$ F$ c1 BIf lin &lt;&gt; 0 Then
9 G# Q5 }9 B; r) @/ u' L2 Lwor = PrintWord(-0.9, lin, Str(lin))
8 t0 d) J' B6 O7 X0 R, x6 @End If
& R# J  T. g. m, y. s2 UNext lin
Picture1.DrawWidth = 1
& w  y2 h5 `: X# X# ^1 gEnd Sub
Private Sub cmdPlot_Click()
$ a: ~7 [$ U) h1 F, E. s+ SXY
: M0 A+ W; q, _; k* B8 D, `On Error Resume Next
7 E  H# _" j6 _& A9 n8 k Dim x As Double, Y As Double
/ F& m" @" \# F* s Randomize
. A0 J" a. o# P- l; ?  
        SC.Reset
  s4 {; }# F% w$ @        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
- v3 A- P2 C+ ]4 k! U# T% C       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
! D5 n% o1 G8 F  H# ~         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
/ G8 ^6 f. U* L) R" i9 k- ^# u1 \          Next x
End Sub</P><>rivate Sub Command2_Click()
8 D3 k4 A" K) H! b6 U  m. V4 kXY
( V( H6 K, i. S' XEnd Sub</P><>rivate Sub Command3_Click()
( Y$ f3 G* ^" ~3 F! K1 ^' d4 ~End
9 S8 r( v( h1 L& Q- j- a$ L- HEnd Sub</P><>
8 u0 a8 ^2 A/ S+ `3 G8 ~5 @Private Sub Form_Load()
2 d; {- B3 f2 I  V5 ]1 a2 K& nMe.Caption = "美丽曲线——山东省商河一中路来民"
Me.Show
Me.AutoRedraw = True
XY
End Sub
8 Y$ w8 x6 ]( ]6 U控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何


8 M6 V. g% B0 o3 q* Z
( m; u: D4 q7 X" E& f9 J2 M
: F; P% z( }7 E4 ^8 B3 j: ]: d, T

# E+ g* i( d' A+ Y: h

" @' ^& F# I9 d+ a2 T, N

' |1 x9 g! @; M* ~$ v7 ^

; u+ b) i) m- u- }大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！