帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
, o& O5 Z- l7 B5 `7 v, ^* dXY
4 d0 Y& v: a' u2 C" A* e* zOn Error Resume Next
Dim x As Double, Y As Double
) Y0 ?8 P) l" `  s% P Randomize
  
        SC.Reset
; D$ t2 p" W! v/ n3 K        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
. a6 H2 N& X  h+ u       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
8 v& E8 M+ A- s" Z7 M1 e         DoEvents
. B: D5 v% C' D% o          Picture1.PSet (x, Y), RGB(250, 0, 0)
6 ^! M' \6 K' |- I1 Y          Next x
# {( H3 D- y3 N( f- GEnd 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
6 [% h1 `2 t. L+ o4 [.CurrentY = Y
+ R. R  v, }( @; T. Q+ i.ForeColor = RGB(0, 0, 255)
, G" s9 V" `% M8 \; e/ ?End With
$ n6 @' P% _* J% z. L  aPicture1.Print Word
% k3 A7 @7 Q+ W6 TEnd Function
'定义画点函数
Private Function DrawDot(Px, Py, Color)
1 z9 J" U7 r6 {+ n3 o5 [Picture1.PSet (Px, Py), Color
End Function
* ~9 t7 F1 f( s  n* USub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
2 n( }; j. E1 b: \0 H1 @* Q'设定用户坐标系，坐标原点在Picture1中心
6 b! B$ L' p& d* CPicture1.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)
Picture1.ForeColor = RGB(0, 0, 255)
2 I, P) F. {  ZPicture1.Print "X"
'画 X 轴
% Z9 P$ [  R2 zPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
3 j! g0 M- n; C, `; S. i2 EPicture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
8 z( q8 P" T7 V: I) K9 j) R  NPicture1.Print "Y"
  s/ h1 U3 A! p! s- _( d1 u'画 Y 轴
For lin = -9 To 9
+ o. j6 ^) D7 H) S$ s, tPicture1.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
+ G7 ?  A  S- S, \% y6 j' zwor = PrintWord(-0.9, lin, Str(lin))
2 s' `& @* O/ CEnd If
Next lin
Picture1.DrawWidth = 1
End Sub
Private Sub cmdPlot_Click()
XY
On Error Resume Next
1 l/ `! {) ]" \# w Dim x As Double, Y As Double
Randomize
  
        SC.Reset
" O- k: ^4 K7 U0 o        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)
         DoEvents
( f& ~9 X; G5 @: T) e) Q! S          Picture1.PSet (x, Y), RGB(250, 0, 0)
- C0 }/ H' P1 |& [3 _3 V          Next x
0 O/ G1 ]2 c- hEnd Sub</P><>rivate Sub Command2_Click()
* [( `+ k; t2 C) X+ g: b. p0 xXY
- o) h8 G; C( JEnd Sub</P><>rivate Sub Command3_Click()
. G- h: f' L+ O" P3 O% y0 [End
2 U5 p: e( ~$ yEnd Sub</P><>
Private Sub Form_Load()
Me.Caption = "美丽曲线——山东省商河一中路来民"
' j+ P0 k  P$ IMe.Show
Me.AutoRedraw = True
XY
End Sub
/ ~7 W4 `8 {$ E5 B3 x6 K控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何


6 L0 P* a4 {2 ~$ }+ e& p: C9 ^




+ Y" B; q9 z/ ^; V

- k2 e" j; \( c2 D7 F
, t* ?4 R8 M. o4 T
! W7 Z5 M( N4 v5 \% E
大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！