帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
% {2 o% t* D$ G- D1 y) mXY
6 G$ p2 c) g8 z2 zOn Error Resume Next
7 z2 i$ e5 M% g" d Dim x As Double, Y As Double
0 d! M9 K- j* s- j* m- F! y5 F7 g Randomize
' o8 x7 t9 f4 h8 L5 Z+ D  
        SC.Reset
; p2 y8 i* j3 E! w0 v  b6 S        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
5 x- T$ y! m" h- ]5 G0 d4 e& M       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
         DoEvents
( f5 t3 `' Y  B0 O( Z7 Q- K          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
/ i/ ?$ F: B. z9 ZEnd Sub</P>
2 f+ d' z8 T: B  O# R' e+ g5 F8 F<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），请帮忙</P>

USER001

把完整代码发上来

llm3-1415926

<><b>帮帮忙，跪下谢谢斑竹，VB</b></P><>rivate Function PrintWord(x, Y, Word As String)
6 z8 Z* g5 f' n1 \With Picture1
  d1 Q0 b4 B7 O& I& B.CurrentX = x
.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
End With
Picture1.Print Word
$ J# X1 K$ h2 }* r; a' @End Function
'定义画点函数
Private Function DrawDot(Px, Py, Color)
* f# h0 A  {6 F3 y7 L8 L+ F2 |+ jPicture1.PSet (Px, Py), Color
- N! E) ~; c7 @9 z; I' G& r6 yEnd Function
Sub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
$ \3 \" ?1 Y9 Q& r* [Picture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
3 J- g. {$ J: p+ vPicture1.Scale (-10, 10)-(10, -10)
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
9 S/ z2 X, r) q# J1 U7 N$ VPicture1.Line -(9.5, 0.5), RGB(0, 0, 255)
Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
1 Y9 p( e, I' X% U$ V4 N3 P8 jPicture1.ForeColor = RGB(0, 0, 255)
; n2 V2 y/ {0 L& I( ~Picture1.Print "X"
2 I) _# \0 i! W9 l) E$ _'画 X 轴
% j% S& m; p, K0 x: ~' ~8 }- T% K8 @; r$ FPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
/ }6 V& l8 G8 ~. I' p9 I1 R6 sPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)
Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
'画 Y 轴
1 ]" P: a# u+ T9 m9 C2 NFor lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
* K* v5 S) n" Zwor = PrintWord(lin - 0.5, -0.5, Str(lin))
) l. }8 s+ a9 k# v" j3 S; dPicture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
& n  S; R3 {9 p3 awor = PrintWord(-0.9, lin, Str(lin))
End If
Next lin
Picture1.DrawWidth = 1
3 g1 S4 p' o8 L* n1 b8 E1 _. V: EEnd Sub
( X5 Y7 `2 B1 w/ y* lPrivate Sub cmdPlot_Click()
XY
On Error Resume Next
Dim x As Double, Y As Double
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
4 O6 t* H& y/ I% p* w- |         Y = SC.Run("runthis", x)
  `. O5 @+ o# Y& T# x         DoEvents
. I2 N9 n, X8 |5 e, r( m. X          Picture1.PSet (x, Y), RGB(250, 0, 0)
9 G/ R9 ~2 ]- L1 a! z. w6 a  W. f          Next x
$ G% [% a, ^- Z, uEnd Sub</P><>rivate Sub Command2_Click()
# |) F  G) [! j! d1 r/ aXY
9 c  X  Z' J; T+ X4 \End Sub</P><>rivate Sub Command3_Click()
) o6 X. E  F3 h: {) b4 XEnd
End Sub</P><>
Private Sub Form_Load()
Me.Caption = "美丽曲线——山东省商河一中路来民"
Me.Show
9 C& e! S/ `- A9 o9 {: x) f1 JMe.AutoRedraw = True
* u# a' I1 L# n  `# qXY
End Sub
控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何
6 N9 c* t- A/ t4 H$ P

8 F7 l' z. g0 D6 z


! a. [! a  A; _

* b" B+ ?0 A- {' z6 u0 G

$ \- |- j- \: U. F6 e+ T, Z

: m! T" a$ S1 e2 S- C# D
' o6 @% S1 i* i% y大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！