帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
XY
9 |6 ^/ t% [  XOn Error Resume Next
Dim x As Double, Y As Double
Randomize
  k& @) h2 W* i/ x3 J4 A! y4 U  
        SC.Reset
% b8 H" _' g; `/ G( g9 m5 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)
         DoEvents
          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
6 w4 b3 \! ]2 M7 ~: z$ U# l! bEnd Sub</P>
<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），请帮忙</P>

USER001

把完整代码发上来

llm3-1415926

<><b>帮帮忙，跪下谢谢斑竹，VB</b></P><>rivate Function PrintWord(x, Y, Word As String)
" W8 R: H, c7 L+ n6 u  v: PWith Picture1
# r) Q2 D5 U$ L, ^, o* |9 G5 H) r7 p.CurrentX = x
.CurrentY = Y
8 _3 z. U/ h* [.ForeColor = RGB(0, 0, 255)
/ H- f. w, ?4 yEnd With
; {$ i6 @: V! K' G) yPicture1.Print Word
6 ~) c$ ]* p# z' R' sEnd Function
'定义画点函数
# U! v9 S: {0 |* p/ U  U" [7 lPrivate Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
/ J1 X2 s8 q1 x3 ?End Function
Sub XY() '建立直角坐标系
7 f- `- r! T/ f9 r" sPicture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
Picture1.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)
; P% x$ s2 M# S' W( a% Q5 _Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
'画 X 轴
3 K# `& V) P: Y7 l% ^. nPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
! e1 ~- a' T$ y. @& PPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)
Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
9 \0 ^; E! l$ m! h! VPicture1.Print "Y"
'画 Y 轴
For lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
4 Q3 B4 U7 o. D+ Ywor = PrintWord(lin - 0.5, -0.5, Str(lin))
" y' Q( w5 P  f9 |Picture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
0 e) c& a% j/ h1 Awor = PrintWord(-0.9, lin, Str(lin))
End If
Next lin
Picture1.DrawWidth = 1
End Sub
Private Sub cmdPlot_Click()
XY
On Error Resume Next
Dim x As Double, Y As Double
Randomize
' W6 [9 `3 C! B1 P  
        SC.Reset
2 S" @2 f( f' @$ t8 t+ b5 Y        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)
( ?+ k' C+ g& Y% t+ S/ v0 S  V         DoEvents
2 q9 @* I  {; g5 i: R$ R          Picture1.PSet (x, Y), RGB(250, 0, 0)
          Next x
End Sub</P><>rivate Sub Command2_Click()
XY
End Sub</P><>rivate Sub Command3_Click()
End
: e1 k* x9 o- v6 U$ \$ H4 [End Sub</P><>
Private Sub Form_Load()
% L6 F+ u5 E2 Z" ?: K) B4 S1 M5 iMe.Caption = "美丽曲线——山东省商河一中路来民"
Me.Show
Me.AutoRedraw = True
- k1 K9 A( Y& S# G& J) gXY
End Sub
  D1 A" L+ o$ O; T控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何

+ O! B  \7 V% X
0 i( j" W( ^. q2 U" q) K


1 U1 _( p- b/ H! F5 l
! i2 l; Y, j! L6 Z+ ^! @
. x% P1 T) n2 _  P' [' {



6 e. x) ]) Q! Q4 K- r3 u4 w6 o
( P  S& ?, f0 _4 {4 c  S+ K大家好,能交朋友嘛？ok0633.com

ealx0yJu

我看不错噢 谢谢楼主！