帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
XY
On Error Resume Next
Dim x As Double, Y As Double
. A$ S0 o  e$ e; B( s. u Randomize
  
        SC.Reset
1 @$ d- w; Y! a- e1 S- c        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
" l# `/ G% O% z7 e5 B       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
- p$ T  f9 M; S3 G# ^         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
; t. X% P& F) u" i4 C& j: LEnd Sub</P>
<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），请帮忙</P>

USER001

把完整代码发上来

llm3-1415926

<><b>帮帮忙，跪下谢谢斑竹，VB</b></P><>rivate Function PrintWord(x, Y, Word As String)
* q+ d! q8 x. s4 DWith Picture1
.CurrentX = x
.CurrentY = Y
) ], r' c: ?& w+ K.ForeColor = RGB(0, 0, 255)
End With
Picture1.Print Word
- ]8 F5 f" B! v$ T4 Y" gEnd Function
. U# `- N9 Y; f! i* C' e'定义画点函数
Private Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
! c& D% J8 J8 M' s2 L) mEnd Function
- m# M$ _7 Y9 e" C/ ]Sub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
. y# {9 O/ M5 ~# `, dPicture1.Cls
. k5 x- J7 `. Q/ \: F/ A" t$ m1 R0 z'设定用户坐标系，坐标原点在Picture1中心
6 `: N$ w9 c7 ]- L$ e: @1 CPicture1.Scale (-10, 10)-(10, -10)
+ v$ M) g' v5 f9 A# g, s1 p: X4 iPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
Picture1.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)
& P: [  a$ K  e' SPicture1.Print "X"
'画 X 轴
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
! X3 _$ U: Q. t6 u# WPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)
1 ^, G, j7 M' e0 fPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
'画 Y 轴
For lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
6 c; {2 B( o: y$ qwor = PrintWord(lin - 0.5, -0.5, Str(lin))
( @% T% x6 i" C6 w  OPicture1.Line (0, lin)-(-0.25, lin)
- v7 A9 i. F: ]4 ~/ @" yIf lin &lt;&gt; 0 Then
& u7 ], Q. B$ c9 m$ k1 n8 @8 o) Jwor = PrintWord(-0.9, lin, Str(lin))
End If
# C( O, ~1 C0 U) o  t) L# {  O% iNext lin
1 X0 C, M) K* x0 E$ VPicture1.DrawWidth = 1
2 W2 x# O# x( \- w/ ~End Sub
2 U8 }# _7 p# R9 _Private Sub cmdPlot_Click()
XY
# l, o$ Z6 j9 i) V! yOn 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"
       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
3 B2 S6 B, V* F* ?) g% P! V         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
0 H6 Q6 w. L# n  {2 fEnd Sub</P><>rivate Sub Command2_Click()
XY
End Sub</P><>rivate Sub Command3_Click()
End
3 K+ n* o  p) o! g* ~3 W3 e7 r; xEnd Sub</P><>
( C8 Z$ N, b) q. KPrivate Sub Form_Load()
Me.Caption = "美丽曲线——山东省商河一中路来民"
/ f* e- E* a* c+ vMe.Show
Me.AutoRedraw = True
& G8 w% m- |5 \) e& d" FXY
/ M* Q8 ?# W1 cEnd Sub
2 I& ^2 V; _" a9 Q4 k: t控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何

9 A7 q. u0 H, ?9 W3 m
. ?: }: M; J  q0 H* A0 O
" V4 c5 y2 B8 r1 j( x5 o


" g! L" `9 X* y& j+ Q. I6 m
! K4 g7 m7 Q; t) L
& ]! P& Y4 {! v
# l+ o0 R  e1 a7 u5 H
0 H, h7 Q" u# y
+ Y/ v6 y/ ?; e
大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！