帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
4 {4 l! c; u0 J- e0 W; qXY
On Error Resume Next
7 y  T% V& q" B4 Z" {" g5 |5 K1 ~ Dim x As Double, Y As Double
Randomize
  
  A9 J1 `/ d. `8 t/ N* E, e        SC.Reset
+ [$ c# W$ E7 s- Q        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
       For x = -15 To 15 Step 0.001
4 |( A6 ^$ u+ Y4 r* a5 W6 q         Y = SC.Run("runthis", x)
         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
End Sub</P>
<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），请帮忙</P>

USER001

把完整代码发上来

llm3-1415926

<><b>帮帮忙，跪下谢谢斑竹，VB</b></P><>rivate Function PrintWord(x, Y, Word As String)
& n- t: q( u# o7 aWith Picture1
* l# O# ]7 i* K* K& Q  I.CurrentX = x
$ g) h1 {+ \: R/ ].CurrentY = Y
* z6 P3 X4 K% q$ n( K- n.ForeColor = RGB(0, 0, 255)
8 q$ E1 N$ `) W1 C+ B! S" |1 HEnd With
Picture1.Print Word
End Function
'定义画点函数
1 W: h+ ~# r3 O- O+ U4 Y' W  DPrivate Function DrawDot(Px, Py, Color)
: I9 u. C* H2 e9 T3 K. l" EPicture1.PSet (Px, Py), Color
End Function
Sub XY() '建立直角坐标系
. I4 l! Y# s/ x' E: jPicture1.DrawWidth = 1 '设置线条宽度
; s' O, p, S0 u7 z0 I6 a' ]+ QPicture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
; R9 C& }7 B1 w, u, U  {Picture1.Scale (-10, 10)-(10, -10)
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
& d  L' F5 M& a1 E, x# I$ mPicture1.Line -(9.5, 0.5), RGB(0, 0, 255)
4 m8 G! m" k0 e% R  D' `Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
  @* H% T6 I& V+ f. w! g+ U# xPicture1.Print "X"
% o$ t+ u8 d5 t4 G5 s6 R'画 X 轴
% P. A& _/ f+ k' n& v0 I& n8 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 F# V+ Q" I; _( WPicture1.Print "Y"
'画 Y 轴
For lin = -9 To 9
- `6 F+ N* g* m) F) p* i+ V8 IPicture1.Line (lin, 0)-(lin, 0.25)
  l% {# X' e8 z$ |, ]  R7 H7 H" gwor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
3 D, H% V4 C7 ?2 n& }; U) H- z. ZIf lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
End If
Next lin
# P% m" g$ V' g7 W2 V- APicture1.DrawWidth = 1
End Sub
Private Sub cmdPlot_Click()
' o. f1 X3 D& f% p, \3 r5 JXY
6 @  ?5 V1 g" o/ p# XOn Error Resume Next
) ~& S4 Y& \5 @. x2 N2 R2 V2 \ Dim x As Double, Y As Double
/ b1 B1 D- l) O7 k) l Randomize
0 C- }$ H* ~( W" y" T! c4 d) r  
        SC.Reset
/ b3 y. Z# @3 _" R# J6 A( }' f1 Q2 c        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
       For x = -15 To 15 Step 0.001
) t, _1 P- X# g         Y = SC.Run("runthis", x)
         DoEvents
+ I$ x) T3 s# B* i+ h          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
* G2 L6 S7 l8 j0 dEnd Sub</P><>rivate Sub Command2_Click()
* Z+ w8 {; C  X$ I, i; n1 XXY
7 \1 @4 u+ ^5 l% d. ~! QEnd Sub</P><>rivate Sub Command3_Click()
End
End Sub</P><>
Private Sub Form_Load()
Me.Caption = "美丽曲线——山东省商河一中路来民"
: |& P1 T; ~( wMe.Show
! B: @2 E* r) s, S; P# ?Me.AutoRedraw = True
XY
End Sub
控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何


# j! H6 y+ X# B5 Z; b7 d& ~

3 n! H8 B# O  a! o+ h. W
) f% q9 m9 \" J3 s2 L. o


1 }  A3 _' a/ z0 n+ G

3 u0 v: ]* V" b" J! u; }" C' u* v

大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！