帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
% v+ C  Z0 b" u* iXY
On Error Resume Next
; }' S+ C8 u. X+ v2 o$ S0 ?! ] Dim x As Double, Y As Double
Randomize
  
/ `) x4 s( u; q3 V4 L/ w6 y7 d        SC.Reset
$ ^+ [+ W7 l6 |$ {# I( 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
, H" M) t) n& V" u         Y = SC.Run("runthis", x)
- O6 q' X" _/ o2 d1 q         DoEvents
0 f( _0 ^$ y: o# p5 N          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
* k1 _" x' a5 @; ~" JEnd Sub</P>
2 N8 ]8 M: b4 z0 I6 X! \<>为仕么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
8 b% G$ F4 {; n: Y, m.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
5 F  |/ r  B1 S) BEnd With
Picture1.Print Word
  E" H6 G+ K: K6 h" Y) j: W8 EEnd Function
'定义画点函数
Private Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
8 J9 Y/ B' x1 e5 DEnd Function
Sub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
8 d& }  x; {" a& m8 \3 k'设定用户坐标系，坐标原点在Picture1中心
! g, ?1 ?" }% r" Q7 I# w, bPicture1.Scale (-10, 10)-(10, -10)
( ?" M! B# l/ I4 @, }/ tPicture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
$ Q  J( n. b$ T+ A/ rPicture1.Line -(9.5, 0.5), RGB(0, 0, 255)
5 F- L& t7 l  UPicture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
! H( B/ @# U/ _1 S6 v* W6 Q'画 X 轴
1 ^3 }, K  e( K2 |Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
& t$ O0 i# j# t( O! Y' U: U) T' S1 vPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)
0 Z% [/ K' R$ ]& Y8 aPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
; D0 S+ c0 f# T5 O% s" y3 fPicture1.Print "Y"
- x, o, ?; x1 ?4 H'画 Y 轴
For lin = -9 To 9
4 K- B. U7 V: ~$ E0 ?Picture1.Line (lin, 0)-(lin, 0.25)
4 B* N  }7 p6 Ywor = PrintWord(lin - 0.5, -0.5, Str(lin))
' u2 w3 v- c- t* G0 APicture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
7 R1 e( h( K0 l" AEnd If
. h0 _, C. {: ]2 R9 H9 |8 s8 G+ {Next lin
% k0 ^: J6 Z3 a5 {1 ~Picture1.DrawWidth = 1
End Sub
  [* H& U8 D# HPrivate Sub cmdPlot_Click()
* Q/ I7 g2 Y* e6 i  ~, E( |XY
On Error Resume Next
4 [2 Q0 V- g, H2 L* s1 ] Dim x As Double, Y As Double
Randomize
3 x/ T2 p& m/ m  
        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
( y" s& O, z9 p' d       For x = -15 To 15 Step 0.001
& `7 J* @9 \/ z9 e+ w. S         Y = SC.Run("runthis", x)
         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
0 d1 G* ^9 A% p$ E% ?+ [End Sub</P><>rivate Sub Command2_Click()
0 ~% x3 y) {  J# y: f$ c' h! L; M, @XY
; m$ L. X; i3 A& gEnd Sub</P><>rivate Sub Command3_Click()
% l3 y3 |6 S  {/ W+ a% rEnd
: @5 J7 S( E, z; w! j6 }- }0 YEnd Sub</P><>
9 {: p" l, B) t$ ]Private Sub Form_Load()
4 Z, z! X) Y2 r# b3 t* ]! OMe.Caption = "美丽曲线——山东省商河一中路来民"
! M" ?* N0 O3 r6 k0 fMe.Show
Me.AutoRedraw = True
: P2 d% _9 |) t/ P' e& H9 aXY
1 g2 c: E8 Z# d2 n6 |9 {9 {End Sub
控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何




6 c! t+ `/ A0 z5 b6 J( t

! l9 p- B8 l5 g5 P/ R' b
+ D% U& V. t6 \% R2 y) L7 z

8 O$ ]; k. e4 j& {7 O
% j5 }' I2 P/ i  z
9 c+ m" t+ _/ [1 I% {# H/ a
大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！