帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
XY
On Error Resume Next
9 d6 q8 H" H1 N. x' p Dim x As Double, Y As Double
1 [+ p) K2 z0 y6 e8 B, ~ Randomize
/ I) z9 b& H: M  
( O- n8 [; X4 ^3 G  V: k        SC.Reset
. ~, b; z. y1 ^        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
4 j# u; _6 \) B( N" ^       For x = -15 To 15 Step 0.001
# Z" ]4 W3 G1 Q. p7 B, z5 c5 e         Y = SC.Run("runthis", x)
         DoEvents
( O4 V. I5 D$ X0 b& |1 a0 j          Picture1.PSet (x, Y), RGB(250, 0, 0)
8 [6 A& o+ v9 J, A! l2 m6 j          Next x
End Sub</P>
# o# x! n1 l9 d$ n0 Y<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），请帮忙</P>

USER001

把完整代码发上来

llm3-1415926

<><b>帮帮忙，跪下谢谢斑竹，VB</b></P><>rivate Function PrintWord(x, Y, Word As String)
With Picture1
: G4 X5 t: n# S& K8 @.CurrentX = x
, a5 o' }3 x3 L- I* ?; W2 b.CurrentY = Y
* O  N& C3 O2 p2 j.ForeColor = RGB(0, 0, 255)
End With
1 s: b! I- N* v* f" h6 [+ R# DPicture1.Print Word
7 i/ u* m6 Z$ v* }End Function
'定义画点函数
4 ]5 \, {, Y7 Z4 E/ Y- b* QPrivate Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
End Function
Sub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
' X% K3 D# G1 ]/ q2 |4 v! uPicture1.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)
Picture1.ForeColor = RGB(0, 0, 255)
0 B2 z% f6 @/ N$ {1 S3 GPicture1.Print "X"
( F) |& b0 x3 j3 k, _'画 X 轴
2 e3 o. M0 T6 N, h4 kPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
6 M3 T8 |2 @* G6 sPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
/ E- h5 }8 w9 d; P1 APicture1.Print "Y"
'画 Y 轴
For lin = -9 To 9
( W; l% _5 U( `! e5 V9 k; o1 w" v3 `$ ePicture1.Line (lin, 0)-(lin, 0.25)
$ @+ L: D) J% g5 V% {, Lwor = PrintWord(lin - 0.5, -0.5, Str(lin))
' n8 e1 l! [8 P" u! pPicture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
$ X. B6 o$ j) H+ c7 z) MEnd If
/ y1 P1 \( p8 l2 W9 h- bNext lin
Picture1.DrawWidth = 1
; z6 y  j: f6 d; J. T, s% [End Sub
Private Sub cmdPlot_Click()
" |3 v4 q( I1 MXY
On Error Resume Next
' L+ M% j- o! N) b' E3 x6 A- C* y. K Dim x As Double, Y As Double
4 V) ]5 j" x' k8 m) o% [5 u; d Randomize
  
        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)
+ \) K! m: X0 [         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
End Sub</P><>rivate Sub Command2_Click()
XY
End Sub</P><>rivate Sub Command3_Click()
2 `7 J. g$ D1 S- v  `" IEnd
$ e0 O( H, m: ^1 a  {) l* k; YEnd Sub</P><>
Private Sub Form_Load()
Me.Caption = "美丽曲线——山东省商河一中路来民"
& g' e" R: ]* y! b5 z/ W$ aMe.Show
  u  O3 l1 z% [  uMe.AutoRedraw = True
XY
End Sub
控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何
: J# P1 v! ^: g- }

. [% J3 o+ ^, Y) d$ ?; C
  e/ H5 i7 a, Q; z# W6 o1 a
) _2 r- v1 O2 f6 }, j

0 r9 a2 ]: r" s% J) E  ^$ d




7 q& I/ T% f) N! U& |
2 d9 c9 b; p% S1 ~! L  R6 F大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！