帮帮忙，谢谢大侠，VB

llm3-1415926

<>rivate Sub cmdPlot_Click()
) @/ y& }8 {, H+ A; j4 O- U+ _2 hXY
On Error Resume Next
Dim x As Double, Y As Double
Randomize
  
& t& O. Q2 S$ E# ^: e3 z        SC.Reset
# }% G- |5 R: U! a2 m$ M1 a        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
: w" F" K3 _. m% f+ L! Z' @End Sub</P>
<>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴），请帮忙</P>

USER001

把完整代码发上来

llm3-1415926

<><b>帮帮忙，跪下谢谢斑竹，VB</b></P><>rivate Function PrintWord(x, Y, Word As String)
) Z' O8 p1 q- c" ]5 F- W( nWith Picture1
.CurrentX = x
1 H% `7 H, O2 l  d3 ^& ~: T/ {% O.CurrentY = Y
.ForeColor = RGB(0, 0, 255)
End With
7 J$ U3 O$ o* C& [- \/ @Picture1.Print Word
End Function
( |) A9 I) R) ?'定义画点函数
2 j4 Q# a, ?" H  o+ ~; U# \; ^+ CPrivate Function DrawDot(Px, Py, Color)
+ ^& _: Q8 F! ]+ L) c$ NPicture1.PSet (Px, Py), Color
End Function
5 a& P2 ]# x" o* G' m0 v( b; |Sub XY() '建立直角坐标系
& b+ [8 p& p1 m8 N; h- N0 [Picture1.DrawWidth = 1 '设置线条宽度
3 b: D$ U; a+ V* P$ n0 \Picture1.Cls
'设定用户坐标系，坐标原点在Picture1中心
6 L% x* g5 G* p; A" B; ~& pPicture1.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)
Picture1.Print "X"
'画 X 轴
# i4 Z8 [" r8 m2 OPicture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
* F1 o1 Q6 I+ l  _. iPicture1.Line -(0.5, 9.5), RGB(0, 0, 255)
Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
'画 Y 轴
For lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
' }) f9 R0 e; j# N' W; p8 b4 Owor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
If lin &lt;&gt; 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
/ M' Z4 K% \+ s1 A% _5 S% qEnd If
Next lin
Picture1.DrawWidth = 1
End Sub
* F. F7 z7 Q0 ]( Y0 R: E# Z5 kPrivate Sub cmdPlot_Click()
' H5 K3 [* G1 s4 v+ h4 o, k4 gXY
On Error Resume Next
Dim x As Double, Y As Double
Randomize
& u& {- d$ p1 ]  
        SC.Reset
        SC.AddCode "Function RunThis(X)" &amp; vbCrLf &amp; "RunThis=" &amp; txtEquation &amp; vbCrLf &amp; "End Function"
5 i% H  t. ^! R0 Q% i       For x = -15 To 15 Step 0.001
         Y = SC.Run("runthis", x)
         DoEvents
* D* W* g1 J2 H/ T- f; k  T% _          Picture1.PSet (x, Y), RGB(250, 0, 0)
% J0 S+ f  k5 I* G          Next x
End Sub</P><>rivate Sub Command2_Click()
XY
End Sub</P><>rivate Sub Command3_Click()
End
/ s- n( F* U' b- K! K- h  YEnd Sub</P><>
! H) B: m% G. W- M3 g! G. p" YPrivate Sub Form_Load()
: S9 f" Y4 V! D3 VMe.Caption = "美丽曲线——山东省商河一中路来民"
  z5 u0 l9 ?  T$ r& ^Me.Show
Me.AutoRedraw = True
9 q* d; E$ k1 D5 |4 oXY
End Sub
8 z: i6 [# l' V- K控件</P><>为仕么Y=LOG（X），SQR（X）也有图象（X轴负半轴）， SC为MS.SCRIPT.control请帮忙,谢谢斑竹,跪谢！！！</P>

秋天的风儿

呵呵，看大家评论如何


( c, h) q6 q0 I& O6 y9 Y4 r
9 ?4 J' K' y7 h* g1 G' Z


7 N/ [4 k$ v# d5 l
8 C; s1 w5 b) r7 N5 Y
, @, |: `- ^4 e1 C
# d8 W' q% m4 _2 A" n


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

ealx0yJu

我看不错噢 谢谢楼主！