帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
: p5 d9 Q+ m$ O0 MXY
, r0 E0 B7 m* {$ tOn Error Resume Next
Dim x As Double, Y As Double
  V* ~5 a: }  w Randomize
  
        SC.Reset
  b& {7 p! n% }" N        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
; H4 H5 x5 n' r0 [# @4 W       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
9 n( S# c! k( S4 ~) d$ S  \         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
0 w, D# H. g  z) P$ P          Next x
5 |- c# o3 Q" ]" E; t% g  o' I" \% H% cEnd 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
' }: O, E4 N5 J3 a: S  q$ `.CurrentX = x
% t" `& C; @) k) W* g.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
2 z: O, o+ ]# N7 QEnd With
- a: A' f0 Y; F+ vPicture1.Print Word
3 e, e9 V$ c% d0 ]1 LEnd Function
'定义画点函数
/ l6 b/ X8 e  f' S/ ], R  I; X" RPrivate Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
1 J  c* k" R, F7 q+ |End Function
) U- M# P# r. y: f" WSub XY() '建立直角坐标系
; v+ L9 p. d( y* dPicture1.DrawWidth = 1 '设置线条宽度
4 P. B9 i0 }9 BPicture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
/ [" X1 L4 \! ]  ZPicture1.Scale (-10, 10)-(10, -10)
( i: k4 |% {1 h, v" ~Picture1.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)
. i% R4 ^6 Z. Z9 F9 s1 y/ k! SPicture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
' [% t& i6 q$ E- e3 E# u; U'画 X 轴
; A) x0 T' o/ `Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
4 l6 J  O7 ?1 w' K& S) N5 F9 p1 fPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)
Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
7 z3 w1 x4 B' n9 J) DPicture1.Print "Y"
5 p  I6 G2 _0 J6 _# e5 G'画 Y 轴
# j( w5 {' v5 g" ~% E: h- pFor lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
  y5 W1 N, [# R- v+ `4 J1 ewor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
' y! }+ _) X* C% Q5 XIf lin &lt;&gt; 0 Then
$ {: Q2 i: C5 owor = PrintWord(-0.9, lin, Str(lin))
End If
Next lin
Picture1.DrawWidth = 1
End Sub
Private Sub cmdPlot_Click()
XY
. f0 l4 \% h) F. s$ @$ [. ]On Error Resume Next
Dim x As Double, Y As Double
' f7 j7 D- R: ^3 L& y  q6 \/ Z Randomize
4 q( X9 e) g% ]9 A6 H  
) w3 k5 l7 h: d: S0 \        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
$ i* M5 `8 \* J/ B8 J/ j       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
. M2 ^! {- F' R$ |9 ~         DoEvents
/ V3 n) r$ ?, y          Picture1.PSet (x, Y), RGB(250, 0, 0)
% ?) t( `, B, c, O+ y; |7 w          Next x
$ [" v/ Q" {  n% H3 N5 o6 Y! {End Sub</P><>rivate Sub Command2_Click()
XY
End Sub</P><>rivate Sub Command3_Click()
. W  e- g+ T& p; I7 V! FEnd
End Sub</P><>
9 ~' T3 R+ U: _+ \4 ^+ MPrivate Sub Form_Load()
+ w$ Y8 K9 p; h) KMe.Caption = "美丽曲线——山东省商河一中路来民"
Me.Show
4 W# J) A- B4 HMe.AutoRedraw = True
. v- K2 q1 e6 pXY
0 P2 k* b  L8 {' W. e; Z1 |End Sub
控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何
& x$ v  M, t$ Z7 c' z6 @* W

2 {3 b( {$ Z+ N" a# n! f: z




3 v& q7 C# Y2 f9 v  D0 z4 k
: r7 r  E9 k) k7 T9 s  |


" b' t+ W& z0 T3 R
9 s: G+ O# q$ \5 v大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！