帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
XY
On Error Resume Next
Dim x As Double, Y As Double
" D9 H* I9 a# X3 R0 N% @$ |) B Randomize
  
        SC.Reset
. u9 b* Q  |, h8 W3 D+ q; w+ u        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
       For x = -15 To 15 Step 0.001
# i8 @! u3 K5 @& V         Y = SC.Run("runthis", x)
         DoEvents
% D4 Q/ k1 n! F/ N6 x6 t0 |) i          Picture1.PSet (x, Y), RGB(250, 0, 0)
  [* C) p+ L7 @          Next x
" n8 S9 B$ t+ w# G- f. E1 KEnd 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 e# P- U  ?: q4 H; iWith Picture1
4 x, m& ]0 @8 X& p$ c! M9 _.CurrentX = x
.CurrentY = Y
2 v& t! V; ~: ]1 |.ForeColor = RGB(0, 0, 255)
3 t  Z& f( i1 REnd With
Picture1.Print Word
: |3 `% I9 L" j! f$ bEnd Function
'定义画点函数
# b$ W* U# X9 J1 Y) bPrivate Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
End Function
Sub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
( ~* j/ I3 p) m0 yPicture1.Scale (-10, 10)-(10, -10)
5 K1 U5 q: @" Z! s$ ?Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
2 ~" m* q( l" y6 o! x, Y1 kPicture1.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)
6 i  Y) Q0 k$ cPicture1.Print "X"
'画 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)
9 D# e- _, o# YPicture1.Print "Y"
) n/ c. X4 ~+ _+ c; U+ }'画 Y 轴
. {: v; v+ ~& Z+ `8 i9 @2 R# F, N8 oFor lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
2 y" K% t2 T3 v1 d0 E  ^/ k- b" lwor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
! {$ R7 `2 ]' w# S- X. QIf lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
End If
Next lin
Picture1.DrawWidth = 1
End Sub
Private Sub cmdPlot_Click()
XY
, F; |* o8 k5 k. L. \1 rOn Error Resume Next
Dim x As Double, Y As Double
Randomize
/ O( }9 U  V5 ?' v4 Z3 L& ?* a  
! o5 w' p1 z4 Z        SC.Reset
9 w6 l& @1 H: c: O0 S2 y5 d        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
" w( g3 h4 j+ [+ j. `+ j( e1 z       For x = -15 To 15 Step 0.001
4 S0 R& q3 B7 C2 C( B         Y = SC.Run("runthis", x)
" V8 v, R) k# p: Z         DoEvents
5 Y0 i- P9 L9 A1 b0 s4 Q  O; B          Picture1.PSet (x, Y), RGB(250, 0, 0)
: P7 F+ O3 `+ ?          Next x
End Sub</P><>rivate Sub Command2_Click()
* [# _0 W4 N2 A" f6 FXY
& m8 ^3 g  ]6 z8 ^2 \End Sub</P><>rivate Sub Command3_Click()
End
1 w0 z9 N# o9 Z' W: EEnd Sub</P><>
1 g7 ~" l8 I) \2 r) LPrivate Sub Form_Load()
( B1 Y+ a$ O) c8 mMe.Caption = "美丽曲线——山东省商河一中路来民"
Me.Show
$ B7 r' L8 K) {. r  f) uMe.AutoRedraw = True
" g3 x- B# [) d) @XY
1 E2 Q. q" }$ [+ g8 kEnd Sub
控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何

6 C' t- l# ^6 @' S. s
% W& F+ Z- F3 O6 @
! e% A+ n* J2 T








8 i0 c: ?4 s( U6 B% u$ }) L大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！