帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
# W* u/ t- d$ q3 kXY
On Error Resume Next
* p1 R' ^. s* i% i Dim x As Double, Y As Double
* e8 B! w8 ?) N" f$ C8 l0 n Randomize
  
4 D3 N9 U. \3 o3 D4 N8 i: V        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)
         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)
2 v; @1 \: M( _* \" ]With Picture1
.CurrentX = x
. ~  i. f: p* j.CurrentY = Y
# N0 a- f( \2 N% S8 U4 o4 j.ForeColor = RGB(0, 0, 255)
9 Z7 L. n3 y3 Y' E1 LEnd With
Picture1.Print Word
2 s0 i; a; H% Q$ M* s) {End Function
'定义画点函数
% A) d" ~$ z0 t! A6 O( lPrivate Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
End Function
$ J& }5 q# L  F) X: ?2 tSub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
( T( F9 S" P, v: w4 t; @" U'设定用户坐标系，坐标原点在Picture1中心
7 S2 J8 I3 j* d) y% LPicture1.Scale (-10, 10)-(10, -10)
8 X, {$ S- h' o3 W/ C2 J8 jPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
# s9 `( d. c* [7 i9 r  ?Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
- b2 J6 C% s% m' I& Z6 O/ lPicture1.ForeColor = RGB(0, 0, 255)
- ~& i0 ^, X# U7 {- K' g) sPicture1.Print "X"
'画 X 轴
/ B4 H+ d2 m2 J# PPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
8 u. Z" v6 Z+ {: X$ C- LPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)
- B' T# B9 E; Z% s2 Y, n* zPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
/ y$ }2 u" h9 wPicture1.Print "Y"
'画 Y 轴
For lin = -9 To 9
% {, E0 o( O, I' r) e9 B# FPicture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
7 V1 |( o4 q2 iPicture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
: `( Q8 K% _% k- [! B* l7 w. lwor = PrintWord(-0.9, lin, Str(lin))
( }. |7 w' H1 M, M9 eEnd If
' y: ^" @$ i1 j% F9 ?1 ANext lin
2 |5 g9 K/ w: V$ `0 G* f) l" RPicture1.DrawWidth = 1
: D2 N* O" {$ ]+ AEnd Sub
' a: N9 Y: D2 G2 m* t8 g8 S; o  MPrivate Sub cmdPlot_Click()
3 {6 x* U, b6 }2 s+ L: |1 YXY
3 Z8 d& W- a7 V0 ]On Error Resume Next
" V3 v# s' w. J Dim x As Double, Y As Double
" e: F$ ?' l8 L" i& t Randomize
  
0 G( E8 h" D) ~; T6 Y        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
9 l3 |9 s# U$ A4 t. H       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
& K) ?( l) g7 a8 b* ?         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
2 ^2 M/ I. @/ _9 r* Q7 ZEnd Sub</P><>rivate Sub Command2_Click()
XY
" u" X% Q/ x" [& R0 tEnd Sub</P><>rivate Sub Command3_Click()
7 N0 O) e1 w- [' PEnd
! p  C0 v. t$ ~. c% \End Sub</P><>
Private Sub Form_Load()
  t: z5 E0 p5 V% P" cMe.Caption = "美丽曲线——山东省商河一中路来民"
Me.Show
3 C  b- C+ b/ [Me.AutoRedraw = True
' W, ~8 |/ p' H8 R% x1 U* fXY
3 S$ D4 B& t6 `1 ^  FEnd Sub
控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何
, l. Y. y6 m4 c+ R  V
  @; E+ z: S  S3 f' r( l
/ w  A! s3 x& V. G, m& j1 o9 ^8 R
- O; }/ I( ~" y' J6 ^
  s; w, ]# z- M4 O! y' X

% R% H5 a2 z" `: ]* a" f: X
8 L: X  l" m7 O" ]& N$ b  N
5 l" a# t, b# O: U


: I9 C+ x. p. F# E  w" f% s2 b- [
大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！