帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
0 i  D3 K% W( d) b6 SXY
On Error Resume Next
$ E6 ]  h' m' r& ? Dim x As Double, Y As Double
Randomize
  
3 B5 G7 y3 ?0 d/ W; R        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
& D0 H( d) Q9 W% O, |) ~' X0 p5 n& G         Y = SC.Run("runthis", x)
         DoEvents
5 _& t: k' v- O# |+ p4 |/ N          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
0 R/ I2 \; m- `4 S9 v! j.CurrentX = x
& A  t5 R6 z8 O.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
6 `! U" Q) v9 V. `7 y; v3 z6 I& MEnd With
Picture1.Print Word
$ j9 f6 s; K2 fEnd Function
" D/ Z6 v+ u5 f6 K% ^'定义画点函数
Private Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
End Function
% @9 g6 L7 b! ZSub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
2 Q% J' ~6 Y8 R6 O% E% CPicture1.Cls
6 j2 ^/ @1 v: t/ z$ l: g'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
' r0 C0 f) {9 {2 ~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)
Picture1.ForeColor = RGB(0, 0, 255)
1 K# n& |7 C3 u% hPicture1.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)
Picture1.Print "Y"
'画 Y 轴
  r0 H2 Z4 Y' P9 ?7 P! j& T# n& FFor lin = -9 To 9
8 d5 L. |/ _7 B1 sPicture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
+ ]( \0 _" b# rPicture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
End If
Next lin
( q: ^8 q& r' Y0 d' IPicture1.DrawWidth = 1
4 U5 ?$ L8 J9 ^& e+ F% M0 nEnd Sub
Private Sub cmdPlot_Click()
, k; u: q" U2 D( s% ]9 R: N% WXY
7 |* B3 Y, R7 WOn Error Resume Next
* H, ?) O% Z( y: ^, o Dim x As Double, Y As Double
Randomize
  
        SC.Reset
  z% S2 J+ a! s6 l0 k! f        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
       For x = -15 To 15 Step 0.001
  D( N( W6 W3 k0 C7 r$ F4 X         Y = SC.Run("runthis", x)
8 |$ D) S: p0 H) ]1 @5 X* e8 x         DoEvents
0 |3 V. ^4 Y4 `* E3 p& A$ N2 j          Picture1.PSet (x, Y), RGB(250, 0, 0)
" K' e/ z( {: S# v          Next x
End Sub</P><>rivate Sub Command2_Click()
XY
End Sub</P><>rivate Sub Command3_Click()
End
8 c1 E2 F: F0 I* gEnd Sub</P><>
Private Sub Form_Load()
Me.Caption = "美丽曲线——山东省商河一中路来民"
* O8 ]0 y5 w6 H8 {+ VMe.Show
) p; J/ l' w8 g5 T$ F3 `Me.AutoRedraw = True
) q/ J- u6 j) Z3 TXY
End Sub
: i+ I) N, k3 h5 l控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何


, R# j! i) X. X, U) L3 q  x
# v7 y. h8 c' N7 Y9 E
: R; r( k' o% W# C) r


( c: Z" W/ b4 T# `4 x
8 G( s* z+ j9 j

/ K; X/ g% |) R+ t. u' b

, [. l4 q# o' k+ J$ v6 D8 t大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！