帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
XY
- F- H2 \* K* f/ I5 LOn Error Resume Next
Dim x As Double, Y As Double
: }3 t- ^! z0 C Randomize
  
( ~9 m; |# _# @/ V0 V* x9 V/ T        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)
. N- z0 p' b% _' i( T         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
7 m0 C1 Z2 U5 [& r4 B; T3 ~8 i/ h          Next x
% [8 ]) }: s, K+ n1 }1 EEnd Sub</P>
6 Y* l+ P, e9 G& ^<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），请帮忙</P>

USER001

把完整代码发上来

llm3-1415926

<><b>帮帮忙，跪下谢谢斑竹，VB</b></P><>rivate Function PrintWord(x, Y, Word As String)
( ~6 }# t/ ~$ L) W8 x; |With Picture1
.CurrentX = x
.CurrentY = Y
4 O3 {8 |8 y) U) x.ForeColor = RGB(0, 0, 255)
% V4 d6 p+ @7 f7 Z0 A' T, @, H1 B0 \/ @End With
Picture1.Print Word
& b# y  r  q" d& w  ?* y  M3 y# XEnd Function
'定义画点函数
/ i) y+ s4 I, m3 B/ YPrivate Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
" o' y1 F2 }6 v. N2 t* AEnd Function
Sub XY() '建立直角坐标系
7 C& T$ C5 c! I  F1 q8 U' n) y* GPicture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
$ R/ l+ n: p' _'设定用户坐标系，坐标原点在Picture1中心
# p# r# y. @  q0 `  g9 iPicture1.Scale (-10, 10)-(10, -10)
1 R2 `& S5 d; a8 Y& V" \% mPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
9 G9 ?6 i; `1 U2 MPicture1.Line -(9.5, 0.5), RGB(0, 0, 255)
; m. G4 j: i- u; b( gPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
1 e* h- n- v3 O- x* jPicture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
'画 X 轴
7 {3 S5 a5 W+ `' X% H; C. i2 PPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
1 ^. E. ?! u5 r) LPicture1.Print "Y"
'画 Y 轴
For lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
! M% L" w) {/ Y7 d# g; kwor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
. H7 O9 ~# U6 t, d$ ywor = PrintWord(-0.9, lin, Str(lin))
End If
* ?$ L$ ]3 s. dNext lin
Picture1.DrawWidth = 1
End Sub
Private Sub cmdPlot_Click()
, c" u; s& I0 u7 kXY
# U% g/ }  U# r, BOn Error Resume Next
Dim x As Double, Y As Double
Randomize
  
        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
" Q2 t! k7 M7 y/ b       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
( d+ c: j2 ]$ Z9 g& D& A( [          Next x
* y7 y/ Y; E% y* Y4 n/ }( h0 NEnd Sub</P><>rivate Sub Command2_Click()
XY
End Sub</P><>rivate Sub Command3_Click()
( F+ K. ?( X+ PEnd
7 c" d9 E+ r' Y) \" [End Sub</P><>
Private Sub Form_Load()
) p- e6 d! ?( q5 @+ v; fMe.Caption = "美丽曲线——山东省商河一中路来民"
. ^! B( j7 ?. n) V# o% V/ b/ @* X, RMe.Show
Me.AutoRedraw = True
XY
End Sub
9 Q$ w" p9 y+ U! a% R控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何
; s" E1 g: B9 `% f

* ~+ F; J. \6 h& W5 r
4 O6 n; U3 j+ g! C6 i4 {
- ^  P5 ^  T! ]) y

/ E- q5 C4 d) C# W8 Q3 Q0 v% X8 |7 L/ B
5 N8 U/ O1 N, M2 S6 d4 w


: ?6 l% {+ K3 n8 t. Z- l
2 n. R& ?/ B1 w' U8 u8 W1 Z- E  q9 v
- z2 u7 p  s5 e, {8 r9 M大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！