帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
$ R, H. |* Y4 I: f( i, r& bXY
$ X4 l6 }4 {- O* g# B/ g% P/ ]# FOn Error Resume Next
Dim x As Double, Y As Double
Randomize
+ x9 G5 Q8 L4 G% r6 e& A% a* v" z  u  
8 t. m& c3 {/ q; \        SC.Reset
6 p$ N3 q8 B6 ~" C        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
          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
End Sub</P>
+ h2 x) R# i$ @; T<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），请帮忙</P>

USER001

把完整代码发上来

llm3-1415926

<><b>帮帮忙，跪下谢谢斑竹，VB</b></P><>rivate Function PrintWord(x, Y, Word As String)
, s- ?3 q: ^1 q% X, sWith Picture1
.CurrentX = x
$ m% Y. z. s1 ^5 W* P  f* A.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
End With
) U6 `$ I- G! r3 F7 ~* VPicture1.Print Word
End Function
0 h7 \7 b5 ~; U  ?'定义画点函数
6 g: @/ _! W( o3 l% y8 L$ vPrivate Function DrawDot(Px, Py, Color)
7 Z, F) s9 Q8 d$ sPicture1.PSet (Px, Py), Color
End Function
Sub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
" t4 H7 g5 S9 I( `5 rPicture1.Line -(9.5, 0.5), RGB(0, 0, 255)
7 e, _" f# N1 a/ \9 b* F3 [" X1 z" }2 y( P6 ^Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
" ?) }" n2 |2 U5 Z# z6 ZPicture1.ForeColor = RGB(0, 0, 255)
. H8 V; ]! J/ ~2 V: O: a. |9 ]+ ePicture1.Print "X"
'画 X 轴
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
' q8 o9 y6 Z) ?+ ~( q1 ]Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
" z0 m. x- x) N" M8 z1 B' `Picture1.Print "Y"
' p; ]8 W7 i" _# r'画 Y 轴
- |1 f' x( l. @# A" J$ WFor lin = -9 To 9
7 c; c) i# c- n9 q; R7 iPicture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
. q: X6 E( i. t) t! M' GIf lin &lt;&gt; 0 Then
$ }3 ?; R8 c! c% L- Rwor = PrintWord(-0.9, lin, Str(lin))
End If
Next lin
Picture1.DrawWidth = 1
End Sub
' A) |* Y+ I" uPrivate Sub cmdPlot_Click()
XY
2 O( q- S/ w6 ^( P9 ]On Error Resume Next
! L, e6 g, Y- u Dim x As Double, Y As Double
Randomize
  
        SC.Reset
) v1 P7 i# v7 A0 j/ w# z        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
       For x = -15 To 15 Step 0.001
& T! M9 S# w7 m         Y = SC.Run("runthis", x)
         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
) a+ Y, n' w5 ^4 i3 V- D6 g          Next x
1 R, d" X: |0 O+ j7 B- \End Sub</P><>rivate Sub Command2_Click()
XY
# N9 e7 q% T$ ]* ?End Sub</P><>rivate Sub Command3_Click()
End
$ [- {. l% l- WEnd Sub</P><>
Private Sub Form_Load()
Me.Caption = "美丽曲线——山东省商河一中路来民"
* a4 J8 C$ Z5 k  [: e/ fMe.Show
Me.AutoRedraw = True
; O) L& p7 @9 y2 ~1 qXY
2 j3 s  f0 O! m9 x) H4 IEnd Sub
控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何
0 E7 {6 H' V$ o( o7 y% W6 n
; ]" S/ a: \' c: A  {/ U

: \% Q4 H# r6 y  _# _


# f% C/ I- c3 j: |* _& G

6 O, y0 Q- q9 S; Y
- O  V+ R# B: v8 ]  f, {

4 i2 J: u  {  i7 |+ \% d) @
) E: |, `& K; i* z大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！