帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
XY
On Error Resume Next
4 Z4 U# d3 M* O$ \9 v9 G Dim x As Double, Y As Double
+ N' L: l: Q9 c Randomize
9 p$ \" @  Z* ]  
        SC.Reset
) ^, z2 K+ c, R+ O        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
7 N+ x; H4 K4 v! w6 [+ I       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
* h/ a1 v% E. f; b         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)
With Picture1
.CurrentX = x
.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
( s5 s/ I' J. g* f6 E: s2 f/ }6 {1 OEnd With
9 ~* }5 Z! F" o8 a7 KPicture1.Print Word
  K- C1 _0 T  @# T2 B6 Y$ ~' u% gEnd Function
'定义画点函数
Private Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
6 }: w4 l& L/ [! K: ]+ q- R5 `End Function
% i8 o0 y) _- o2 }Sub XY() '建立直角坐标系
) T0 e6 Q: [; J6 s6 Y) b; e5 }Picture1.DrawWidth = 1 '设置线条宽度
" Y( b& I0 r8 l8 Q. b1 IPicture1.Cls
: G4 m' ^3 G7 v! x) I' A$ y'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
Picture1.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)
: j; [. U) ]; @7 S! n. V8 O4 qPicture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
7 t' r$ o8 f6 N+ F4 m) g'画 X 轴
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
! }7 I& I9 F  r% yPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)
" O* z# O( {2 a8 h. f8 g7 cPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
'画 Y 轴
$ v7 u8 {3 x& c% I- R8 gFor lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
End If
Next lin
/ I5 U- Y7 T; v6 u$ T& @  MPicture1.DrawWidth = 1
End Sub
: y$ e7 _3 {; q7 y* k5 jPrivate Sub cmdPlot_Click()
( f. b. W0 R3 @1 I0 ]XY
On Error Resume Next
5 i1 z. J. i. v- ?$ Z" ^ Dim x As Double, Y As Double
9 ^2 o0 N/ n4 ~6 B Randomize
; a' o4 c3 N* g, Y) [$ a  
        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
! y1 P" M* v/ j       For x = -15 To 15 Step 0.001
9 c3 M5 C- ]! Q( A         Y = SC.Run("runthis", x)
% s; }. y6 @! I1 x/ Y/ t3 d3 \         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
. `( e! D) X, ]: e          Next x
# X5 _5 m: P4 F& [! z" r9 XEnd Sub</P><>rivate Sub Command2_Click()
' A9 z+ |+ ]7 H7 aXY
# U+ q2 j$ v1 P1 U, x8 p) a0 _End Sub</P><>rivate Sub Command3_Click()
) v5 O4 |$ e. l6 R1 }End
2 J6 ~+ h" ^+ {8 W4 u4 YEnd Sub</P><>
Private Sub Form_Load()
Me.Caption = "美丽曲线——山东省商河一中路来民"
+ P3 P. @0 |+ a9 m1 E' zMe.Show
Me.AutoRedraw = True
XY
) s5 E4 T2 m$ E' z' _0 `# ]) f5 FEnd Sub
控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何

. P6 g1 B; Y1 k9 }% v

. Z! V1 \& E8 [! M3 I2 H

. ?2 d& l0 ?1 A
* c6 v9 n* ~; Z) z/ W' s1 r8 j
. W2 e( |2 _; q! T$ X
8 h$ K; Q2 @3 G5 {$ m0 P

' k! z3 o% `: j

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

ealx0yJu

我看不错噢 谢谢楼主！