帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
XY
1 q; p6 H7 ]7 u5 `. O) uOn Error Resume Next
, a0 s2 ?9 e8 V4 r& f8 W5 M Dim x As Double, Y As Double
0 h! J; }0 H$ R5 @ Randomize
& _) \8 M" u! @* l  
        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
7 P  p! q9 d+ f* t# n; W+ H0 E         Y = SC.Run("runthis", x)
0 H% A8 r  q' d$ `) E/ J( v2 _" N1 S         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
1 l; G3 W# O) w          Next x
End Sub</P>
; [/ N( t" K- Y1 c<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），请帮忙</P>

USER001

把完整代码发上来

llm3-1415926

<><b>帮帮忙，跪下谢谢斑竹，VB</b></P><>rivate Function PrintWord(x, Y, Word As String)
With Picture1
! X7 q- W% S6 v  G  W# F5 `.CurrentX = x
, Y6 T3 f$ K/ g1 f7 i) ?.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
End With
Picture1.Print Word
End Function
'定义画点函数
Private Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
End Function
6 M; q2 I) b6 g8 _Sub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
  w) R. `% X6 K  ]! N* u3 KPicture1.Cls
& t% a2 E: v/ s6 z( Z'设定用户坐标系，坐标原点在Picture1中心
Picture1.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)
  p  }$ c6 y9 G  CPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
; M/ R/ f6 ^  r! Y; |: ?Picture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
% m2 _. B6 p. s& N. s; D* Y- }'画 X 轴
Picture1.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)
  R" O' h' r5 Y+ {, yPicture1.Print "Y"
'画 Y 轴
4 R: T( k. J# k7 W. ZFor lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
3 A( y" @. V$ u! i$ u6 Awor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
$ B8 z$ T& F3 {' ^9 u$ ~, rIf lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
0 U* W% u' y# n$ D& I, N) ]End If
Next lin
Picture1.DrawWidth = 1
! B& k7 t; X: W( V/ H" G/ T# a# r9 ?End Sub
8 |# [+ p0 V: `Private Sub cmdPlot_Click()
XY
On Error Resume Next
' V4 ^& p8 V$ z) @" M, r% M3 p Dim x As Double, Y As Double
' S, k& ~# B+ b8 T2 _ Randomize
. v1 Y+ |0 _7 _  
        SC.Reset
$ U( q; O9 B% Z4 k" t        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
- n( r! l. \: x/ E4 @. c       For x = -15 To 15 Step 0.001
1 I" m3 i  d% B+ A1 X6 L2 g         Y = SC.Run("runthis", x)
  m1 c/ [0 |: z/ y, ~. a& f         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
  H: X7 C* d3 z3 \7 `+ J- gEnd Sub</P><>rivate Sub Command2_Click()
XY
End Sub</P><>rivate Sub Command3_Click()
# q0 q9 ?/ W; `$ s1 O3 g2 j/ pEnd
5 x2 U1 ]7 a) e1 |9 MEnd Sub</P><>
/ M4 ]/ w) ^/ UPrivate Sub Form_Load()
Me.Caption = "美丽曲线——山东省商河一中路来民"
Me.Show
Me.AutoRedraw = True
XY
% d- A% d5 Z7 j: y# p' VEnd Sub
2 a9 ]' Y' ~6 Y8 _4 F$ L! u控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何
  i- s# A5 t: s2 W; g' \1 D

. a0 U# d, _9 m9 S7 T" Q
* f$ C3 N$ J( h4 f


0 j1 N) F# x- q5 ]$ R& J0 r


2 M  \) [; U0 P- `9 U- m$ z
# {( n: L3 B( Z
% u5 G& F0 A& `
大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！