帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
XY
( J# \9 N# W! f3 ROn Error Resume Next
3 p! J& l6 e6 P  t/ L3 S! ~ Dim x As Double, Y As Double
! t% k1 S9 s! d5 o Randomize
  
* j9 H+ d: j9 s4 t# m        SC.Reset
% v# b( t& N$ F+ K# \- \        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)
1 R+ }% q1 \" w! I         DoEvents
! C% D9 z& k( q9 Z          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
End Sub</P>
4 o$ M5 q8 x. N$ e7 ~9 F, j<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），请帮忙</P>

USER001

把完整代码发上来

llm3-1415926

<><b>帮帮忙，跪下谢谢斑竹，VB</b></P><>rivate Function PrintWord(x, Y, Word As String)
With Picture1
$ X$ N9 a0 v( C: T.CurrentX = x
- _, T  `$ I+ A.CurrentY = Y
" z: G! ?( ~8 h) L" l.ForeColor = RGB(0, 0, 255)
End With
  \. s+ c9 R& KPicture1.Print Word
End Function
'定义画点函数
) Z" x! h) s6 q$ n$ g- `Private Function DrawDot(Px, Py, Color)
+ A) p/ G' E( c5 S8 u+ Z- _& z9 zPicture1.PSet (Px, Py), Color
End Function
. J; ~4 N' ], d1 e" ~! y( s0 kSub XY() '建立直角坐标系
7 S  p8 a! z( a# hPicture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
2 c9 J6 n/ J# e5 [( S/ Y; u" m'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
( y4 m. O+ N3 \% S* R  Z4 sPicture1.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)
5 R; N6 j3 E5 O3 H9 B" |Picture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
  \( U$ I  x. K/ n'画 X 轴
1 Z& I# A5 E7 p+ h$ I) i" D+ FPicture1.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)
5 E" R% t( }6 ~) x% R2 j8 a0 jPicture1.Print "Y"
'画 Y 轴
8 q0 p; A% t1 |0 r" S; iFor lin = -9 To 9
2 T" D# K) |! A* s, l1 X4 M: OPicture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
0 O; C$ }% @) D- ]- x, r6 N9 BPicture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
. x; U/ j, g" g# vwor = PrintWord(-0.9, lin, Str(lin))
End If
Next lin
Picture1.DrawWidth = 1
9 H5 e9 B9 ~2 F+ n0 UEnd Sub
Private Sub cmdPlot_Click()
' l& y; F' z* H* s2 PXY
On Error Resume Next
3 c: B8 D' P/ @ Dim x As Double, Y As Double
. ~1 ~, ~# U7 u* ` Randomize
  
! h3 }3 l* B5 r; e0 y, I: f4 ^        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
* ^. b4 j- ~6 u" M2 }8 k% T: r       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
- M: V( @/ o) w! W         DoEvents
, W$ X4 W6 w( P9 V& p5 O          Picture1.PSet (x, Y), RGB(250, 0, 0)
+ ?9 d3 ]/ B, U5 Z' U7 H          Next x
End Sub</P><>rivate Sub Command2_Click()
0 F7 H6 d( @2 S! c2 {XY
* y/ b3 s- c+ h' B' ~+ h0 k" ^End Sub</P><>rivate Sub Command3_Click()
3 {; F  I1 b7 ?4 KEnd
$ J. r* @& n8 JEnd Sub</P><>
Private Sub Form_Load()
0 D8 R3 O- C9 P+ l; z+ T& K8 Q5 mMe.Caption = "美丽曲线——山东省商河一中路来民"
Me.Show
Me.AutoRedraw = True
! A6 |$ `6 o$ e" D2 ]0 GXY
End Sub
2 U4 X. y$ s/ N* ~' |% T& i5 i控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何
# l* _- f7 V- l1 Q" t% B
2 q+ d% M% m9 M0 d+ ^6 ]

6 I3 Q% p" ?+ b' r* [3 _


. }' a( M8 S  Y% r# x, b9 d
+ }8 n5 V; V$ J4 y, @2 S


2 P( F5 p$ b; N" Y& p9 |* @  n. L! p

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

ealx0yJu

我看不错噢 谢谢楼主！